VBATips

フォルダ内のファイルを全て削除するマクロ【ExcelVBA】

フォルダ内のファイルを全て削除する

マクロでファイルを作成したのち、削除したい場合があります。
削除する面倒な処理を一括処理、ヒューマンエラーを起こさない為にも、マクロ化します。

フォルダ内のファイルを全て削除するサンプルコード

'■フォルダ内のファイルを全て削除する str=拡張子(例 ".xlsx")
Public Sub call_Kill_File_inFolder(str As String)

    Dim Path As String
    Dim FName As String
    
    '■ファイル名取得するフォルダパス、該当拡張子を入れる
    Path = "C:\Sample\"
    FName = Dir(Path & "*" & str)
    
    If FName = "" Then
        '■指定フォルダや、指定ファイルが存在しなければ何もしない
    Else
        '■ファイルが存在していれば全て削除
        Kill Path & "*" & str
    End If
End Sub

使い方

Public Sub sample()
    call_Kill_File_inFolder (".xlsx")
End Sub

関連記事

コメント

タイトルとURLをコピーしました