ALPC_EngineeringIT
asked on
Error 53 File Not Found
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 = ""
With fd
.InitialFileName = strNewCat & " Rev 0"
.Title = "Copy " & strNewCat & " Rev 0"
.Show
FileDest = .SelectedItems(1)
f1.Copy FileDest
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
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Can you go directly to the file in Windows Explorer - and do whatever?
mx