フォルダの中のサブフォルダ、ファイルを丸ごと消去

超個人的なメモです。
この時代にvbsを使ってファイル操作を行うことが多くなってきたのでメモ。

DeletefolderAndFiles.vbs

DeletefolderAndFiles("C:\xxx\yyy\gomi") ' 削除したいフォルダのパスを指定する。

'指定したフォルダの中身をすべて削除する。
Sub DeletefolderAndFiles(DirectoryPath)
    Dim objFile
    Set objFile = CreateObject( "Scripting.FileSystemObject" )

    Dim objFolder
    Set objFolder = objFile.GetFolder(DirectoryPath)

    Dim objSubFolder
    
    ' サブフォルダを取得して再起呼び出し。
    For each objSubFolder in objFolder.SubFolders
        DeletefolderAndFiles(DirectoryPath & "\" & objSubFolder.Name)
        objFile.DeleteFolder DirectoryPath & "\" & objSubFolder.Name, True
    Next

    Dim fileName
    ' フォルダ内のファイルを取得し、削除する。
    For each fileName in objFolder.files
        objFile.DeleteFile DirectoryPath & "\" & fileName.Name, True
    Next
    
End Sub