Solved

Error 53 File Not Found

Posted on 2008-10-27
2
244 Views
Last Modified: 2012-08-14
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

Open in new window

0
Comment
Question by:ALPC_EngineeringIT
2 Comments
 
LVL 75

Expert Comment

by:DatabaseMX (Joe Anderson - Access MVP)
Comment Utility
Are you *sure* you have adequate permissions on the Folder containing the file?

Can you go directly to the file in Windows Explorer - and do whatever?

mx
0
 

Accepted Solution

by:
ALPC_EngineeringIT earned 0 total points
Comment Utility
Yes, I am admin on this server with full rights.  I placed a timer event in the code and this seems to have resolved the issue.  Thanks for your response.
0

Featured Post

Maximize Your Threat Intelligence Reporting

Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.

Join & Write a Comment

In the previous article, Using a Critera Form to Filter Records (http://www.experts-exchange.com/A_6069.html), the form was basically a data container storing user input, which queries and other database objects could read. The form had to remain op…
Overview: This article:       (a) explains one principle method to cross-reference invoice items in Quickbooks®       (b) explores the reasons one might need to cross-reference invoice items       (c) provides a sample process for creating a M…
Learn how to number pages in an Access report over each group. Activate two pass printing by referencing the pages property: Add code to the Page Footers OnFormat event to capture the pages as there occur for each group. Use the pages property to …
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…

762 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now