删除文件夹中的所有文件

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

更简单的方法：

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

Answer 2

在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 3

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

Sub Kill1 ()

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

End Sub

Answer 4

这段代码对我有用： Dim fso 作为对象，myFileNameDel 作为字符串，文件作为对象 设置 fso = CreateObject("Scripting.FileSystemObject") 对于 fso.GetFolder("C: old").Files 中的每个文件 myFileNameDel = 文件名 文件.删除 下一个文件