View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Dave Peterson Dave Peterson is offline
external usenet poster
 
Posts: 35,218
Default Drive Access Error

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 wrote:

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?

--

Regards,
Nigel


--

Dave Peterson