EXCEL、VBA

【VBA】ファイルを削除する

 

ファイルを削除する構文

ファイルを削除する構文は次のとおり。

'ファイルを削除する
Kill "ファイルパス"

'例
Kill "C:\test\Book1.xlsx"

 

 

ファイルを削除する

ファイルを削除する関数です。

引数　filePath：削除するファイルのフルパス（文字列）

戻り値　True：削除成功、False：削除失敗（またはファイルなし）

補足　削除対象のファイルが存在していなければFalseとします

Public Function deleteFile(ByVal filePath As String) As Boolean

    'ファイル存在確認
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.FileExists(filePath) = False Then
        'ファイルがなかった場合はFalse
        deleteFile = False
        Exit Function
    End If
    Set fso = Nothing
    
On Error GoTo Catch
    
    'ファイル削除実行
    Kill filePath
    deleteFile = True
    Exit Function
    
Catch:
    deleteFile = False
End Function

 

実行例

Debug.Print deleteFile("C:\test\testfile.txt")
' True

Debug.Print deleteFile("C:\test\testfile2.txt")
' False