如何有选择的删除当前路径下的含有PDF、xlsx后缀类型的文件。

lihuan_ · 发表于 2018-9-25 10:40

求助老师，如附件excel 的VBA程序，现在只能删除“C:\Users\Administrator\Desktop\DeleteFolder\total\2018”，2018里面的全部文件。

现在我要删除PDF、xlsx后缀类型的文件，该如何操作呢？

QQ图片20180925103547.png

如参考附件。谢谢！

DeleteFolder.rar (40.49 KB, 下载次数: 4)

liulang0808 · 发表于 2018-9-25 10:48

http://club.excelhome.net/thread-1258425-1-1.html
这里面有资料，遍历每个文件，根据扩展名判断，是否删除

约定的童话 · 发表于 2018-9-25 11:10

liulang0808 发表于 2018-9-25 10:48
http://club.excelhome.net/thread-1258425-1-1.html
这里面有资料，遍历每个文件，根据扩展名判断，是否 ...

Dim fso, fl, m&
Set fso = CreateObject("Scripting.FileSystemObject")
For Each fl In fso.getfolder(CreateObject("Shell.Application").BrowseForFolder(0, "请选择文件夹", 0, "").Self.Path & "").Files
If fl.Name Like "*.xls" Then
.........
大师，这种代码路径怎么修改成当前文件夹啊？类似ThisWorkbook这种

liulang0808 · 发表于 2018-9-25 11:58

For Each fl In fso.getfolder(thisworkbook.Path & "\").Files

lihuan_ · 发表于 2018-9-26 00:12

非常感谢链接文件，非常有用。
我尝试做了一下目录文件夹下面有上百个PDF、xlsx后缀数据，没有做出来，老师能否在附件实例发个链接出来呢?
谢谢！

		自动登录	找回密码
密码			免费注册

[求助] 如何有选择的删除当前路径下的含有PDF、xlsx后缀类型的文件。

评分