刪除文件和文件夾VBA（EXCEL）

-1

現在我工作的一個小的Excel VBA表應我們幫助的CAD版本變化做好準備數據。所有這些文件都保存在網絡驅動器（服務器）上，但我具有讀寫權限。除最終清理外，一切正在運行。處理完文件後，我必須刪除剩餘的文件夾和文件（thumbs.db）。

不幸的是，這些文件是在服務器端創建的，我無法禁用此設置。

我正在尋找一個VBA代碼來刪除特定路徑中的所有內容（文件和文件夾）。所有我現在是這樣的：（saveto從另一個模塊來）

Dim fso As Object 
Set fso = CreateObject("scripting.filesystemobject") 
If Right(saveto, 1) = "\" Then 
MyPath = Left(saveto, Len(saveto) - 1) 
End If 
On Error Resume Next 
fso.deletefile saveto & "\*.*", True 
fso.deletefolder saveto & "\*.*", True 
On Error GoTo 0

但有了這個代碼，我不擺脫這些愚蠢的Thumbs.db（這被稱爲「系統文件」創建）的。任何人都可以幫我完成最後一部分？

編輯（標記爲一式兩份）我想用「FileSystemObject的」

來源

2015-11-16 Moritz

的「Thumbs.db」這個是某種形式的系統文件。與其試圖刪除它們，我認爲你最好儘量避免創建這些文件，這當然意味着你需要修改服務器的配置。 – Dominique

[刪除目錄及其內容（文件，子目錄）而不使用FileSystemObject]的可能副本（http://stackoverflow.com/questions/25401789/remove-directory-and-its-contents-files-subdirectories-without-using- filesys） –

@Dominique 我沒有管理員訪問我們的服務器配置，我們的管理員有點......他不想因此改變任何東西。這個清理是一個獨特的過程，不會再發生，所以刪除文件是最好的（也是唯一的）選項，但我很難與代碼 – Moritz

簡單，因爲這解決這個問題：

Sub delelete_folder() 

Dim folder As Object 
Dim path As String 
path = ("E:\New folder\targetfolder") 
Set folder = CreateObject("scripting.filesystemobject") 

    folder.deletefolder path, True 

End Sub

來源

2018-01-14 14:11:02 Charan

刪除文件和文件夾VBA（EXCEL）

回答

相關問題