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

-2

我是vb的新手，并希望在删除特定文件夹中的所有excel文件方面提供帮助。通过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

来源

2016-08-18 Irvin Syed

这是VBA（或VB6）不是VB .NET。他们是两个完全不同的东西 – Steve

请使用实际适用于您的问题的标签，而不是随意抓取那些看起来很熟悉的标签。如果你不知道你编码的语言，你可能不应该编写代码来做破坏性的事情，比如删除文件。 –

谢谢@Steve它的vb6！ –

据我所知fs.FileExists只检查是否一个文件存在，所以你不能使用通配符。

您可以使用VBA/VB6本机功能Dir实现相同的功能，并使用本机功能Kill代替DeleteFile。（DeleteFile将应付通配符，但Kill避免了需要的脚本的对象。）

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

来源

2016-08-18 22:21:20 YowE3K

感谢您的协助......我已经在VBA中做到了这一点，但需要帮助才能在vb中做同样的事情，这是我希望看到的文件夹中是否存在任何excel文件，然后删除所有这些文件。 –

从内存（我用它以来已经有一段时间了），VB6具有'Kill'和'Dir'功能。 – YowE3K

谢谢，但它给我follwoing错误，错误：“类型不匹配：'Dir'”代码：800A000D Soure：Microsoft VBScript运行时错误 –

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

回答

相关问题