删除文件夹中的所有文件

Question

我有以下代码尝试搜索我的下载文件夹中的所有文件，然后将其全部删除，但是基于kill函数，它返回的错误消息没有足够的参数，有什么想法吗？

Sub Kill ()

Dim aFile As String
aFile = "C:\Test\Test\Downloads\*.*"
If Len(Dir$(aFile)) > 0 Then
    Kill aFile
End If

End Sub

谢谢，

Answer 1

Microsoft Scripting Runtime在VBA环境中添加对的引用

Module在以下行中声明

Global fso As New FileSystemObject

现在您可以使用所有漂亮且现代的 I/O 功能。例如：

Public Sub TDELFOL()    
    Dim path As String, f As File
    path = fso.GetSpecialFolder(TemporaryFolder)
    path = fso.BuildPath(path, "MyTempFolder")
    If fso.FolderExists(path) Then
        For Each f In fso.GetFolder(path).Files
            f.Delete Force = True
        Next
        fso.DeleteFolder path, Force = True
    End If
End Sub

Answer 2

您不应该将宏命名为内置函数。只需使用相同的编码更改宏即可解决问题......

Sub Kill1 ()

Dim aFile As String
aFile = "C:\Test\Test\Downloads\*.*"
If Len(Dir$(aFile)) > 0 Then
    Kill aFile
End If

End Sub

Answer 3

更简单的方法：

Sub Del()
  Kill "C:\FolderName\*.*"
End Sub