Cannot get Dir() to verify that file exists.

[OaklandJim]

Am merely trying to see if a file exists. Using Dir(). I confirmed that the path exists using, Dir(sPath, vbDirectory). When wrapping the Dir() in a function to look for the file I use

If Dir(psPath, vbNormal) <> "" Then PathExists = True

and get a Run-time error 52 and message that "Bad file name or number".

If I use Dir() directly in my sub there is no error message but Dir does not find my file.

    If Dir(sPath & sFileName_Week1, vbNormal) = "" _
     Then bFileExistsWeek1 = False

   If Dir(sPath & sFileName_Week1) = "" _
     Then bFileExistsWeek1 = False

So I know that the path exists and that it ends with a "\". I verified that the file name is correct and that it is in the path that was confirmed to exist.

I tried this code which works (and which will serve my need).

If Dir(sPath & sFileName_Week1) <> "" _
Then bFileExistsWeek1 = True

So curiosity got to me. What am I missing?

 

[Max1616]

Could you provide what is populated in these variables:
sPath
sFileName_Week1

 

[OaklandJim]

Like I said, path and file do exist!

path: C:\Users\Jim\Desktop\GLK\Tip Log\
file name: VaultLog_22-04-18.xlsm

 

[Max1616]

Hmm, this is tough to determine, and is hard to test without trouble shooting on your end. I'm not getting any errors when I run this code:

Sub TestDIR()

Dim spath As String
Dim sFile As String

spath = "U:\Test\Test1\"
sFile = "TestA.xlsx"

If Dir(spath & sFile, vbNormal) <> "" Then MsgBox True

End Sub

To confirm pspath is the same as spath? If so, perhaps try this:

If Dir(psPath & "*.xl*", vbNormal) <> "" Then PathExists = True

The only thing I can think of is there's something in that folder that is causing DIR to not work as intended.