删除文件和文件夹VBA（EXCEL）

问题描述：

现在我工作的一个小的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的”

的“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

删除文件和文件夹VBA（EXCEL）

相关推荐