"Dir" problem

[richarddawson]

Sub getCountryFile()


Dim filePath As String
filePath = "z:\allUK\EVR"
If Len(Dir(filePath)) > 0 Then
Workbooks.Open (filePath)
Else
Debug.Print "doesn't exist"
End If
End Sub

Where filePath is valid, and the Workbooks.Open works fine if tried outside the If.
But "doesn't exist" comes up in every situation.

 

[JackDanIce]

Re: "Dir" problem - help, please.

Try

filePath = "z:\allUK\EVR\"

 

[richarddawson]

Re: "Dir" problem - help, please.

Thanks, but still doesn't work.

 

[Jaafar Tribak]

Re: "Dir" problem - help, please.

Thanks, but still doesn't work.

I only see a folder path... Where is the actual file name ?

 

[richarddawson]

Re: "Dir" problem - help, please.

"EVR" is the file name.
Good point though - probably should be "EVR.xlsx" ?

 

[JackDanIce]

Re: "Dir" problem - help, please.

Try it and see

 

[richarddawson]

Yes - that works.
Many thanks.

 

[JackDanIce]

You're welcome, Jaafar spotted the issue

 

[richarddawson]

Thanks Jaafar.