刪除壓縮文件

是否有使用Excel VBA刪除壓縮文件的方法？我試過使用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。

來源

2016-11-23 ramj

，如果你想刪除任何zip文件夾中：

Kill folderName & "\*.zip"

來源

2016-11-23 11:15:19 Kelaref

但我只想要一個特定的壓縮文件。 – ramj

這就像一個魅力：

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

來源

2016-11-23 11:15:57 Vityata

但我已經試過了。這會返回一個'File not Found'錯誤。謝謝 – ramj

你正在使用哪個窗口？隨着Windows 7和8，它的工作得很好。 – Vityata

Windows 7 Ent :) – ramj

刪除壓縮文件

回答

相關問題