Runtime Error 70 Permission Denied in moving files to another folder

Question

I'm trying to move ALL excel files from one folder path to another and I'm getting a permission denied error. Here's my code:

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:\FromPath\Files"  '<< Change
    ToPath = "R:\ToPath\Backup" & 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

The error is from this part: FSO.MoveFile Source:=FromPath & FileExt, Destination:=ToPath Appreciate any help! :)

You cannot use wildcards with MoveFile. Eg: see http://stackoverflow.com/questions/20905889/vbscript-to-move-file-with-wildcard-if-it-exists — Tim Williams, Nov 14 '16 at 18:12

score 1 · Answer 1 · answered Nov 14 '16 at 17:53

Moving a file can't be done without exclusive access to that file. If another process has it opened (which would cause that runtime error 70 you're getting), there's not much you can do, other than try moving the next file, and try that locked file again later.

Or you can copy it to destination instead. But then, whatever has the file opened probably means to make changes to it, and your copy won't have them.

Runtime Error 70 Permission Denied in moving files to another folder

1 Answers1