Using Dir() in a VBA function not working

[OaklandJim]

I have what is probably a trivial question

In my sub, I have this code that tells me whether a file exists. It works.

If Dir(sPath & sFileToProcessName, vbNormal) <> "" _
             Then

BUT I wanted to use a function instead of that code in my sub. It seems odd to me that when that same syntax used in my sub is used in the function I get an error #52, Bad file name or number.

Function call

            If PathExists(sPath & sFileToProcessName, True) _
             Then

Function

Function PathExists(psPath As String, Optional bFile As Boolean = False) As Boolean
    
    PathExists = False
    
Debug.Print "in function path = " & psPath
    
    If Right(psPath, 1) <> "\" Then psPath = psPath & "\"
    
    If bFile _
     Then
        If Dir(psPath, vbNormal) <> "" Then PathExists = True
    Else
        If Dir(psPath, vbDirectory) <> "" Then PathExists = True
    End If
    
End Function

What am I missing?

 

[RoryA]

Your function is expecting a folder path, not a file name as well.

 

[OaklandJim]

I realize that my logic is flawed. If the "path" includes a FILE NAME my dumb code is adding a back slash to it. Now the function works as expected.

Function PathExists(psPath As String, Optional bFile As Boolean = False) As Boolean
    
    PathExists = False
    
    If bFile _
     Then
        If Dir(psPath, vbNormal) <> "" Then PathExists = True
    Else
        If Right(psPath, 1) <> "\" Then psPath = psPath & "\"
        If Dir(psPath, vbDirectory) <> "" Then PathExists = True
    End If
    
End Function