Drive Access Error

  • Thread starter Thread starter Nigel
  • Start date Start date
N

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?
 
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
 
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)
 
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
 
Back
Top