I have the following code (partial) which is producing Error 53 File Not Found. The file IS there and I've even created a Message Box to ensure that the entire path is correct. I'm not sure where to go from here and any help in resolving this issue is appreciated.
Dim fd As FileDialog
Dim FileDest As Variant
Dim strSource As String
On Error GoTo errout
strSource = "\\cor-eng-07.am.corp.airliquide.com\g$\smartplantdb\cathistory\" & strFullCat & " Rev " & strRev & "\"
Dim fs As Scripting.FileSystemObject
Set fs = New Scripting.FileSystemObject
Dim f1 As Scripting.Folder
Set f1 = fs.GetFolder(strSource)
Set fd = Application.FileDialog(msoFileDialogSaveAs)
FileDest = ""
.InitialFileName = strNewCat & " Rev 0"
.Title = "Copy " & strNewCat & " Rev 0"
FileDest = .SelectedItems(1)
Dim strOld As String
Dim strNew As String
strOld = "\" & strFullCat & " Rev " & strRev & ".zip"
strNew = "\" & strNewCat & " Rev 0.zip"
MsgBox (FileDest & strOld & vbCrLf & vbCrLf & FileDest & strNew)
'****Error 53 Here
FileCopy FileDest & strOld, FileDest & strNew
Kill FileDest & strOld