あるフォルダを除いてすべてを削除するVBScriptのルーティンを作りました。
Sub DeleteExceptFor(ByVal RootFolderPath, ByVal FolderName)
Dim FSO
Set FSO = CreateObject(“Scripting.FileSystemObject”)
Dim RootFolder
Set RootFolder = FSO.GetFolder(RootFolderPath)
Dim folder
For Each folder In RootFolder.SubFolders
If LCase(FolderName) <> LCase(folder.Path) Then
folder.Delete True
End If
Next
Dim file
For Each file In RootFolder.Files
file.Delete True
Next
If Not FSO Is Nothing Then
Set FSO = Nothing
End If
End Sub
コメント書き込み