Excel VBA: Runtime Error 70 'Permission Denied' for FSO.MoveFile

The first question is who is raising that error?

You need to clean up your method and add proper error handling. Especially as you've multiple sources for that error, namely the Dir() and FSO. E.g.

Sub MoveFiles()

  Const SOURCE_PATH As String = "K:\Bus\Plan\Daily MailBox Count\"
  Const DESTINATION_PATH As String = SOURCE_PATH & "\Current Year Mail Count Archive\"
  Const FILE_NAME As String = SOURCE_PATH & "\MailCount Peer.xlsm"
  Const FILE_PATTERN As String = "*Mailbox Count Report*"

  On Local Error GoTo LocalError

  Dim FSO As Object

10  Application.DisplayAlerts = False
11  ActiveWorkbook.SaveAs FILE_NAME:= FILE_NAME, FileFormat:= xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
12  Application.DisplayAlerts = True

20  If Len(Dir(SOURCE_PATH & FILE_PATTERN)) = 0 Then
21    MsgBox "No files in " & SOURCE_PATH
22    Exit Sub
23  End If

30  Set FSO = CreateObject("Scripting.FileSystemObject")
31  FSO.MoveFile Source:=SOURCE_PATH & FILE_PATTERN, Destination:=DESTINATION_PATH
32  Exit Sub

LocalError:
  MsgBox _
    "Error: " & Err.Description & vbCrLf & _
    "Line: " & Err.Line, _
    vbExclamation

End Sub

Select allOpen in new window

I would expect the Dir() to fail due to the use of a mapped drive and some saved credential issues with a delayed network reaction.

hold on a minute

Your question really helped me out. I had completely forgotten that movefile allowed wildcards, so thanks for the reminder.
 
Anyway, your code should work.
Your code used to work without error.
Now your code continues  to work but now throws an unexplained error 70 'Permission Denied'
 
Perhaps most of the wildcard files were moved, but one files was left behind? And maybe that is a hidden system file with a tilde like " ~$ ssss.xlsm"
 
Try replacing the dir command with these 4 lines,
 

fNames = Dir(strFolder & "*~*", vbHidden + vbSystem)
static cntr as long
cntr = cntr + 1
debug.print  "cntr= " & cntr & " first file= <" & fnames & ">"

Select allOpen in new window

 
 
also, add the following after fso.movefile

    fso.MoveFile Source:=FromPath & fileext, Destination:=ToPath '
    fNames = Dir(FromPath & fileext, vbHidden + vbSystem)
    If fNames = "" Then
        MsgBox "Case 1: All files were moved, and err = " & Err
    Else
        MsgBox "Case 2: Some files were not moved, so err = " & Err
    End If

Select allOpen in new window

 
If  "Case 1" shows error 70 then I am perplexed.
 
 
When I hit perplexing  problems  I usually have two approaches.
#1 If I am in a hurry and there is an easy workaround, I take the workaround and move on.
#2 If I have time, I try to find the root cause of the problem.
 
Dale, if you just want a workaround, you could do the following.
 

        On Error Resume Next
        fso.MoveFile Source:=FromPath & fileext, Destination:=ToPath
        if err <> 70 and err <> 0 then
            msgbox err & error
         end if
      On Error GoTo 0

Select allOpen in new window

 
But, if you want the root cause I would try to ruthlessly simplify the code as much as possible until you have the very simplest code that replicates the problem.
 
 
For example I expect the following might replicate your error
 

Sub MoveBugs()
Const FromPath = "c:\Bus\Plan\Daily MailBox Count\"
Const ToPath = "c:\Bus\Plan\Daily MailBox Count\Current Year Mail Count Archive\"
Const fileext = "*Mailbox Count Report*"
Dim fNames
  
Dim fso As Object
    Set fso = CreateObject("scripting.filesystemobject")
    
    fso.MoveFile Source:=FromPath & fileext, Destination:=ToPath '
    fNames = Dir(FromPath & fileext, vbHidden + vbSystem)
    If fNames = "" Then
        MsgBox "All files were moved, and err = " & Err
    Else
        MsgBox "Some files were not moved, so err = " & Err
    End If
 
End Sub
 

Select allOpen in new window

 
 

Hello Ste5an and rberke

Thank you very much for your quick responses and for the advice provided.

rberke:  Thank you for your code examples and explanations.  I will added these code examples to my module and feedback to you later today.

Thanks again.
Dale

Hello rberke

I have applied all the code suggestions provided but as with the original code, runtime error 70 'Permission Denied' is still being generated but with the file being also being moved from the source path to the destination path. There is an exception with the LocalError error handler is applied, this generates the following runtime error:

Runtime Error 438
Object doesn't support this property or object.

Of the code provided, the quick workaround is the only code that is allowing fso.MoveFile to execute without the runtime error being displayed and halting the flow.

I am, as you say, 'perplexed' with this sudden error display particularly with the move action actually occurring at the same time.  And as initially stated, I do not have any issues accessing or working within the source path and destination path folders.

The only thing that I can think of is that the dreaded MS patch updates occurred just before I began to experience this issue and like many times before,  previous patch updates have been an underlying cause.

Not sure what other options are available to address this matter as you have been very thorough with what you have provided.

Hello rberke

Please accept my apology for this delayed response as I was not aware that any further posts had been submitted to this question until a few moments ago.

Thank you for posting your code suggestion, I will apply this coding later this morning and provide feedback to you ASAP.

Thank you once again.
Sincerely

Dale

Please close this question

Hello rberke

There seems to have been a issue with my last comment...just noticed that it hasn't been published.
In the last comment I attempted to publish,  I was thanking you for the code you provided and to confirm that it worked as it notified me of a couple of files that have been incorrectly posted to the network folder and and once removed enabled the FSO.movefile to work correctly.

Thank you for your all your assistance with this issue...you have taught some important elements.

Sincerely

Dale

I am glad things worked out and thanks for the testimonial

Bob