Question

我是vb的新手，希望您协助删除特定文件夹中的所有Excel文件。

如果我的代码没有按照我想要的方式工作，那么下面是：

Dim fs 
Set fs = CreateObject("Scripting.FileSystemObject")

If fs.FileExists("C:\Users\Desktop\Test\Daily_Reports\*.xlsx") Then
     fs.Deletefile "C:\Users\Desktop\Test\Daily_Reports\*.xlsx", true
Else
     MsgBox "No"
End If

Answer 1

据我所知fs.FileExists只会查看是否存在单个文件，因此您无法使用通配符。

您可以使用VBA / VB6本机函数Dir来实现相同的功能，使用本机函数Kill而不是DeleteFile。（DeleteFile 将处理通配符，但Kill可避免使用Scripting对象。）

If Dir("C:\Users\Desktop\Test\Daily_Reports\*.xlsx") <> "" Then
    Kill "C:\Users\Desktop\Test\Daily_Reports\*.xlsx"
Else
    MsgBox "No"
End If

如果您使用的是VBScript，则可以使用

Dim fs 
Set fs = CreateObject("Scripting.FileSystemObject")
For Each File In fs.GetFolder("C:\Users\Desktop\Test\Daily_Reports").Files
    If fs.GetExtensionName(File) = "xlsx" Then
        fs.DeleteFile File
    End If
Next

通过VB删除文件夹中的所有Excel文件

1 个答案: