Tag: 删除目录

删除系统文件夹不工作

我正在使用下面的代码复制一个文件，并将其粘贴到一个新的目录。 然后我试图删除旧文件夹和其中的所有文件，如下所示： 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 […]