删除文件夹中的所有文件

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