Len(Dir(fName)) not working

[Zzyzzyth]

I've seen dozens of examples using this line of code:
If Len(Dir(fName)) > 0 then 'file exists
but I can't get it to work. Is there a certain library reference that I need to include to make it work?

 

[Scott Huish]

Are you sure you've specified the correct path?

I usually use something like this, but either way, If Dir(Fname) <> "" Then

If it's not a file but a directory, do something like this:

If Dir(Fname, vbDirectory) <> "" Then

If this doesn't help, please provide some more details about what you are trying to do.

 

[pgc01]

Hi Zzyzzyth

Check the current directory. Maybe it's not correct:

Msgbox CurDir

HTH
PGC

 

[Zzyzzyth]

That's interesting - it returned MyDocuments, etc.....

In my code, I've tried:

ChDir ThisWorkBook.Path
fName = strInvoiceNum
If Len(Dir(fName)) > 0

as well as:
If Dir(fName) <> ""

When I step through the code and verify the path, it is showing the correct server path, why would your MsgBox CurDir get me MyDocuments? Or better yet, how do I fix it?

 

[Scott Huish]

What is the value of strInvoiceNum?

 

[Zzyzzyth]

It is generally a combo of CustCode, Week Num, and Sequence like:

"KSS 35 6"

I've tried it with and without & ".xls"

 

[pgc01]

Hi again

Is the workbook and the MyDocuments folder in the same drive?

ChDir changes the current directory in the respective drive but does not change drive.

If you are not in the same drive you must use ChDrive

HTH
PGC

 

[Zzyzzyth]

No, the workbook is in a folder on our server. It is a template that does a save as once an invoice has been generated. That part works fine. It saves into the same folder as the template.

I was just trying to put in some bullet-proofing (or owner-proofing, if you know what I mean). If he tries to invoice something that has already been invoiced, I want to open it so that he can visually see that it has been done and has posted to the database.

 

[pgc01]

In that case don't use the default directory and specify the whole pathname.

Please try:

If Len(Dir(ThisWorkBook.Path & "\" & fName)) > 0

Hope it works
PGC

 

[Zzyzzyth]

I've actually tried that, too. Stepping through the code, it gives me the server path and the correct file name, but still says the file does not exist.

It's definitely there, I'm staring at it.

That's what made me ask if the is a Libr reference that I need. I'm stumped.