Drive Access Error

[Nigel]

I have an application that tests for the existence of a text file in a
network server that has been mapped to drive Z: Depending on whether the
file exists determines the mode of the workbook. I use the following to
check.

If Len(Dir("Z:\myPath\myFile\myFile.txt")) > 0 Then
'set mode 1
Else
'set mode 2
Endif

The above works well even if the user has not got a Z: drive mapped. If the
user has a drive Z: but does not have access rights to read the folder I get
a run-time error.

How can I change the test to prevent this?

 

[Dave Peterson]

I'd use:

dim teststr as string

teststr = ""
on error resume next
teststr = Dir("Z:\myPath\myFile\myFile.txt")
on error goto 0

if teststr = "" then
'nope
else
'yep
end if

 

[Nigel]

Thanks Dave,

The error check fixes the permissions issue. But I am curious if testing
the Length of an empty string is different to testing for the existence of
"" ?

Cheers

--

Regards,
Nigel
(e-mail address removed)

 

[Dave Peterson]

if the dir() fails, it'll return an empty string.

I think this is more of a natural check:
if teststr = "" then

then this check:
if len(teststr)=0 then

But there wouldn't be a difference in function