【VBA】指定フォルダ配下の全てのフォルダ/ファイルを削除する

サンプルプログラム概要

ゴミ箱にも残らないため、確認を取ってから削除する

サンプルプログラム

Sub sample()

    Dim FSO As Object
    Dim msgBoxResult As Integer
     
    msgBoxResult = MsgBox("フォルダ/ファイルを削除しますよろしいですか?", _
                           vbYesNo + vbQuestion, "確認")
    If msgBoxResult = vbNo Then
        MsgBox "処理を中止します", _
                vbOKOnly + vbInformation, "確認"
        Exit Sub
    End If
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    '指定フォルダ配下のフォルダ/ファイルを全て削除
    FSO.DeleteFolder ("C:\Users\user\Desktop\temp\aiuoe\*")
    FSO.DeleteFile ("C:\Users\user\Desktop\temp\aiuoe\*")
    
    MsgBox "完了しました!", vbOKOnly + vbInformation, "確認"
    
    Set FSO = Nothing
    
End Sub
タイトルとURLをコピーしました