删除系统文件夹不工作

我正在使用下面的代码复制一个文件,并将其粘贴到一个新的目录。 然后我试图删除旧文件夹和其中的所有文件,如下所示:

Source = "\\MI-FILESERVE1\Shared Folders\Shared_Business_Dev\Tasks\" & Range("D" & ActiveCell.Row).Value & "\" & Range("H" & ActiveCell.Row).Value& "\" & Range("AB" & ActiveCell.Row).Value & "\log.txt" Destination = "\\MI-FILESERVE1\Shared Folders\Shared_Business_Dev\Tasks\" & Range("D" & ActiveCell.Row).Value & "\" & Range("O" & ActiveCell.Row).Value & "\" & Range("AB" & ActiveCell.Row).Value & "\log.txt" On Error Resume Next SetAttr Source, vbNormal FileCopy Source, Destination On Error Resume Next dir_name = "\\MI-FILESERVE1\Shared Folders\Shared_Business_Dev\Tasks\" & Range("D" & ActiveCell.Row).Value & "\" & Range("H" & ActiveCell.Row).Value & "\" & Range("AB" & ActiveCell.Row).Value & "\" Dim fso11 Set fso11 = CreateObject("Scripting.FileSystemObject") fso11.DeleteFolder dir_name SetAttr Destination, vbHidden 

无论我做什么文件夹不会删除,只有文件被删除的文件夹内。 请有人能告诉我我做错了什么?

如果您确定要删除所有内容,请使用Kill()方法删除所有文件,然后使用RmDir()方法删除空文件夹。

 On Error Resume Next Kill dir_name & "*.*" RmDir dir_name Err.Clear '// Clear error if exists On Error GoTo 0 '// Reset error handling 
Interesting Posts