vba - 删除系统文件夹不起作用

Question

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

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

无论我做什么文件夹都不会删除，只有文件夹内的文件被删除。请问有人可以告诉我我做错了什么吗？

Answer 1

如果您确定要删除所有内容，请使用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