Question

是否有使用Excel VBA删除zip文件？我尝试过使用Kill folderName & "\*.*"但这只会删除文件夹中的文件而rmdir foldername会删除一个空文件夹。我有这行代码，其中包含压缩文件的目录

dim ws as Worksheet
set ws = thisworkbook.sheets("Sheet1")
ws.range("P3").value ' contains the directory of the zip file

debug.print ws.range("P3").value 'result C:\Documents\MyFilesZip  23-Nov-16_18-06-03.zip
kill ws.range("P3").value

我已经这样做了，但它错误地说：`找不到路径你能给我一些想法吗？

已经弄清楚了，因为压缩文件是隐藏的，并且可能还有其他属性，所以我先将文件的属性设置为vbNormal，然后再将其删除：）

感谢。

Answer 1

这就像一个魅力：

Kill  "C:\Users\gropc\Desktop\test.zip"

Answer 2

如果您想删除文件夹中的任何zip文件：

 Kill  folderName & "\*.zip"

删除压缩文件

2 个答案: