ExcelVBA Killで指定したフォルダのファイルを自動削除して整理する方法

ExcelVBA Killで指定したファイルをプログラムで削除することができます。これにより、不要なファイルの整理や自動化されたファイル管理が可能になります。

使い方や注意点など、サンプルコードをもとに具体的に解説します。

Excel VBA Killの利用

Excel VBA Killのサンプルコード

Option Explicit

Sub DeleteFile()
    Dim filePath As String
    ' 削除したいファイルのパスを指定
    filePath = "C:\Users\User\Desktop\sourceFile\motofile.txt"
    
    ' ファイルが存在するか確認
    If Dir(filePath) <> "" Then
        ' ファイルを削除
        Kill filePath
        MsgBox "ファイルを削除しました: " & filePath
    Else
        MsgBox "ファイルが見つかりません: " & filePath
    End If
End Sub

指定したフォルダー内のすべての .txt ファイルを削除する。

Option Explicit

Sub DeleteAllTextFiles()
    Dim folderPath As String
    Dim fileName As String
    
    ' フォルダーのパスを指定
    folderPath = "C:\Users\User\Desktop\sourceFile\"
    fileName = Dir(folderPath & "*.txt")
    
    ' フォルダー内のすべての .txt ファイルを削除
    Do While fileName <> ""
        Kill folderPath & fileName
        fileName = Dir ' 次のファイルを取得
    Loop
    
    MsgBox "すべての .txt ファイルを削除しました: " & folderPath
End Sub

KILL実行前に削除対象のファイルやフォルダーを慎重に確認して、削除前にコピー（バックアップ）する処理を追加してください。