このWindowsスクリプトでログと一時ファイルを管理下に置く

このWindowsスクリプトは、特定の1つのディレクトリに焦点を当て、そのディレクトリ全体を調べて、変更日が数日より古いファイルを探します。次に、それらのファイルを削除します。次に、スクリプトはすべてのサブディレクトリを通過し、同じチェックとクリーンアップを実行します。複雑に聞こえますか？そうではありません。スクリプトの最初の部分は次のようになります：

Option Explicit 

On Error Resume Next 
Dim oFSO, oFolder, sDirectoryPath 
Dim oFileCollection, oFile, sDir 
Dim iDaysOld 
iDaysOld = 3

このセクションでは、ディレクトリへのアクセスに使用するファイルシステム変数と、クリーンアップするファイルを宣言します。 「iDaysOld」変数を設定すると、保持するファイルの経過時間がスクリプトに通知されます。この場合、3日以上経過したファイルはすべて保持しています。

次は、非常にシンプルなクリーンアップセクションです。

' ***** CLEAR OUT OLD FILES IN LOG FOLDER *****

sDirectoryPath = "C:\Users\Owner\AppData\Local\Temp\" 
Set oFSO = CreateObject("Scripting.FileSystemObject") 
Set oFolder = oFSO.GetFolder(sDirectoryPath) 

Set oFileCollection = oFolder.Files 
For each oFile in oFileCollection
 If oFile.DateLastModified < (Date() - iDaysOld) Then 
  
 oFile.Delete(True) 
 End If 
Next

上記のセクションは、Windowsファイルシステムに接続してから、「sDirectoryPath」変数で定義したディレクトリに接続します。この最初のループは、ディレクトリ内の個々のファイルを調べ、変更された日付をチェックして、定義したファイルの経過時間と比較します。 3日以上経過している場合は、そのファイルに対して削除操作を実行します。

これはファイルではうまく機能しますが、Windowsの一時ディレクトリなどのフォルダ内のすべてのサブディレクトリについてはどうでしょうか。スクリプトのこの次のセクションでは、次にすべてのサブディレクトリをファイルし、そこにあるファイルに対しても同じファイル操作を実行します。

For Each oSubFolder In oSubFolders

 sDirectoryPath = "C:\Users\Owner\AppData\Local\Temp\" & oSubFolder 
 Set oFSO = CreateObject("Scripting.FileSystemObject") 
  
 Set oFolder = oFSO.GetFolder(sDirectoryPath) 
 Set oFileCollection = oFolder.Files 
 For each oFile in oFileCollection
 If oFile.DateLastModified < (Date() - iDaysOld) Then 
 oFile.Delete(True) 
 End If 
 Next 
 If oSubFolder.Size = 0 Then oSubFolder.Delete(True)
 Set oFSO = Nothing
 Set oFolder = Nothing 
 Set oFileCollection = Nothing 
 Set oFile = Nothing 
Next

最後に、通過するサブディレクトリがなかった場合は、オブジェクトをクリアすることを忘れないでください。

 Set oFSO = Nothing

 Set oFolder = Nothing 
 Set oFileCollection = Nothing 
 Set oFile = Nothing 
 WScript.Quit

それはそれと同じくらい簡単です。上記のスクリプトは、クリーンアップする可能性のあるすべてのフォルダーをクリーンアップします。定期的にクリーンアップしたいディレクトリごとに個別のスクリプトを作成し、「sDirectoryPath」をクリーンアップしたいディレクトリに設定して、「C：\temp\」や「」などのディレクトリに保存します。 c：\vbscripts\"。これらのスクリプトを設定したら、それらのスクリプトをスケジュールする準備が整います。

クリーンアップスクリプトのスケジュール

クリーンアップスクリプトをスケジュールするには、Windows 7で、管理ツールに移動してタスクスケジューラを開きます。

[アクション]メニュー項目から基本タスクを作成します。

次に、そのディレクトリをクリーンアップするときにいつでも実行するように定期的なスケジュールを設定します。私の場合、通常は常にログインしてコンピューターで作業している日曜日の正午にクリーンアップスクリプトを実行します。スクリプトはバックグラウンドで実行されるだけです。

個々のログまたは一時ディレクトリをクリーンアップするには、作成したWindowsスクリプトごとにスケジュールされたタスクを設定する必要があります。

タスクスケジュールで作成した後でスクリプトをテストするには、[アクション]、[実行]の順にクリックします。

そのログまたは一時フォルダ内の数日より古い（またはスクリプトを設定した）すべてのファイルが自動的に削除されるのを確認する必要があります。私の場合、WindowsTempフォルダーを毎週クリーンアップします。このスクリプトを実行した後、フォルダ内の約45個のファイルが、サブディレクトリ内のすべてのファイルを含め、最新のファイルの約20個程度に切り詰められるのを確認しました。

コンピューターを保守するのは非常に困難な場合があります。システムやあらゆる種類のアプリケーションが常にログファイルに書き込んだり、Windowsの一時フォルダーにジャンク一時ファイルを作成したりすると、その作業はさらに困難になる可能性があります。このスクリプトは、サーバー上でバッチジョブまたはスクリプトを定期的に実行する可能性のあるIT技術者にとって特に役立ちます。これらのスクリプトはすべて、実行されるたびに新しいログファイルを作成します。最も古いログファイルを定期的にクリーンアップするWindowsスクリプトを実行することで、上記のようなWSFファイルを記述して、それらのログディレクトリをきれいに保つことができます。必要なログファイルの履歴を保持できますが、本当に古いログファイルはクリーンアップします。しないこと。

そのようなスクリプトのいくつかの創造的な使用法を考えられますか？一時フォルダとログファイルを手動でクリーンアップしますか？このようなスクリプトで作業を節約できますか？試してみて、下のコメントセクションであなたの考えやフィードバックを共有してください！

画像クレジット：Shutterstock経由のジャンクヤードのクレーン