Error 70 Permission Denied (1 Viewer)

Private Sub UpdateDatabase()
'---------------------------------------------------------------------------------------
' Procedure : UpdateDatabase
' Author    : Royce Fessenden
' Purpose   :
'---------------------------------------------------------------------------------------
'
    Dim fso As FileSystemObject
    Dim strArgs As String
    
    Dim strCaller As String ' The database that called the Version Handler.
    Dim strServerPath As String ' The location of the new update file to be copied
    Dim strDestPath As String ' where the file should be copied.
    Dim intPos As Integer
    Dim strCallerPath As String
    Dim strStep As String
    Dim strTemp As String
    Dim strMsg As String
    Dim lngResponse As Long
    
   On Error GoTo Proc_Err
    
    strArgs = Command() ' Expecting CurrentDb.Name and ServDir
    If strArgs = "" Then
        Me.txtProgress = "No parameters passed in."
        GoTo Proc_Exit
    End If
   
    
    strStep = "Create fso"
    Set fso = CreateObject("Scripting.FileSystemObject")
     
    intPos = InStr(1, strArgs, ";")
    strCaller = Left(strArgs, intPos - 1)
    strServerPath = Mid(strArgs, intPos + 1)
    
    ' Delete any .bak files
    intPos = InStrRev(strCaller, ".")
    
    strStep = "Checking .bak"
    strCallerPath = Left(strCaller, intPos) ' Should be full path without the extension, but include the .
    If fso.FileExists(strCallerPath & "bak") Then
        strTemp = strCallerPath & "bak"
        fso.DeleteFile strTemp, True
    End If
    
    
    ' Change caller extension to .bak
    strStep = "Changing extension"
    
    strTemp = strCallerPath & "laccdb" 
    ' strTemp is the lock file. C:\Wks\MRGProjects.laccdb
    ' strCaller would be C:\Wks\MRGProjects.accde
    ' strCallerPath is C:\WKS\MRGProjects.
    ' All Authenciated users have full control to the c:\WKS folder.
    ' Typically, but not always, the user is a local administrator, as that is the default installation for Microsoft.
    If FileIsClosed(strTemp) Then
        fso.CopyFile strCaller, strCallerPath & "bak", True ' <<<<< This line generates the error.
    Else
        strMsg = "The file " & strCaller & " appears to be still open.  " & _
            "If it is not, the file " & strTemp & " may need to be manually deleted before you continue." & _
            vbNewLine & vbNewLine & "Do you wish to continue?"
        lngResponse = MsgBox(strMsg, vbQuestion + vbYesNoCancel, "Caller Error")
        If lngResponse = vbNo Then
          ' exit, but leave the version handler open so the error log can be examined.
            GoTo Proc_Exit
        ElseIf lngResponse = vbCancel Then
            Application.Quit
        End If
    End If
 
    ' Copy New version to folder of original.
    strStep = "Copying File"
    fso.CopyFile strServerPath & fso.GetFileName(strCaller), strCaller, True
    
    MsgBox "Ready to restart with new version.", vbOKOnly, "New Version Uploaded"
    
    'Pass back "VersionUpdated" as command line argument when reopening the new version of the Caller.
    ' Everything past /cmd will be retrieved by strArgs = Command().
    ' Spaces are needed.  Could use semicolon instead of /cmd
    strStep = "Restart Caller after copy."
    AppActivate Shell("MSAccess.EXE " & strCaller & " /cmd VersionUpdated", vbNormalFocus)
        
    ' And close this database if everything is ok.
    Application.Quit
    

Proc_Exit:
   On Error Resume Next
    Set fso = Nothing
    
   Exit Sub

Proc_Err:
    MsgBox "Step: " & strStep & ">> " & Err.Description
    'LogError Err.Number, "Step: " & strStep & ">> " & Err.Description, mcModuleName, "UpdateDatabase", strStep & " - " & strArgs, 1, True
    Resume Proc_Exit


End Sub

 'test the existence of the ldb file
 on error goto next
 while len(dir(ldbfile))>0   'should error once the ldb file disappears.
     doevents
 wend
  
 'now the rename should succeed,
 name database as backupdatabase

fso.CopyFile strCaller, strCallerPath & "bak", True ' <<<<< This line generates the error.