删除文件夹中的所有文件

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

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

在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 Del()
  Kill "C:\FolderName\*.*"
End Sub

Answer 3

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

Sub Kill1（）

将aFile视作字符串 aFile =“ C：\ Test \ Test \ Downloads *。*” 如果Len（Dir $（aFile））> 0然后     杀死文件 如果结束

结束子