Sub フォルダの削除_FileSystemObject()
    
    ChDrive "E"
    ChDir "E:\"
    
    strFol = "営業所"
    CreateObject("Scripting.FileSystemObject").DeleteFolder strFol, Force:=True
       
End Sub