溫馨提示×

vba怎么刪除文件夾下所有文件

vba
小億
563
2023-11-23 23:17:34
欄目: 編程語言

要使用VBA刪除文件夾下的所有文件，可以使用FileSystemObject對象的DeleteFile方法。下面是一個示例代碼：

Sub DeleteFilesInFolder(folderPath As String)
    Dim fso As Object
    Dim folder As Object
    Dim file As Object
    
    ' 創(chuàng)建FileSystemObject對象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 獲取文件夾對象
    Set folder = fso.GetFolder(folderPath)
    
    ' 遍歷文件夾下的所有文件
    For Each file In folder.Files
        ' 刪除文件
        fso.DeleteFile file.Path
    Next file
    
    ' 釋放對象
    Set file = Nothing
    Set folder = Nothing
    Set fso = Nothing
End Sub

要使用該代碼，只需調(diào)用DeleteFilesInFolder并傳入要刪除文件的文件夾路徑：

Sub Test()
    DeleteFilesInFolder "C:\TestFolder"
End Sub

注意：該代碼將只刪除文件夾下的文件，而不會刪除文件夾本身。如果需要刪除文件夾本身，可以使用FileSystemObject的DeleteFolder方法。

0 踩