スクリプト

不要なファイルとフォルダを自動的に削除するスクリプトを作ってみた。


'WindowsUpdateで使用した、不要なファイルとフォルダを削除する

strFolderName = "C:\WINDOWS\SoftwareDistribution\Download\"
Set objShell = WScript.CreateObject("Shell.Application")
objShell.Explore strFolderName
Set objFs = CreateObject("Scripting.FileSystemObject")
Set objFolder = objShell.NameSpace(strFolderName)
Set objFolderItems = objFolder.Items()
For i=0 To objFolderItems.Count-1
Set objItem = objFolderItems.Item(i)
If objItem.IsFolder = True Then
objFs.DeleteFolder strFolderName & objItem.Name
Else
objFs.DeleteFile strFolderName & objItem.Name
End If
Next