运行时错误70在将文件移动到另一个文件夹时拒绝权限

Question

我正试图将所有excel文件从一个文件夹路径移动到另一个文件夹路径，我正在获得权限拒绝错误。下面是我的代码:

Sub Move_Certain_Files_To_New_Folder()
    Dim FSO As Object
    Dim FromPath As String
    Dim ToPath As String
    Dim FileExt As String
    Dim FNames As String
    FromPath = "R:FromPathFiles"  '<< Change
    ToPath = "R:ToPathBackup" & Format(Now, "yyyy-mm-dd h-mm-ss") 
    FileExt = "*.xl*"
    If Right(FromPath, 1) <> "" Then
        FromPath = FromPath & ""
    End If
    FNames = Dir(FromPath & FileExt)
    If Len(FNames) = 0 Then
        MsgBox "No files in " & FromPath
        Exit Sub
    End If
    Set FSO = CreateObject("scripting.filesystemobject")
    FSO.CreateFolder (ToPath)
    FSO.MoveFile Source:=FromPath & FileExt, Destination:=ToPath
    MsgBox "You can find the files from " & FromPath & " in " & ToPath
End Sub

错误来自这部分:FSO。MoveFile来源:=FromPath &FileExt,目的地:= ToPath感谢任何帮助!:)

Answer 1

如果没有对文件的独占访问权限，则无法移动该文件。如果另一个进程打开了它(这会导致您得到的运行时错误70)，您可以做的不多，只能尝试移动下一个文件，并稍后再尝试该锁定的文件。

或者您可以将复制到目标。但是，无论文件打开了什么，都可能意味着对它进行了更改，而您的副本将没有这些更改。