Checking 2 c if workbook exists

[DavidMc]

I have two spreadsheets, one saved on a floppy disk called
demo.xls and one stored on the c drive called master.xls,
what i would like to do is to get master.xls to check
whether demo.xls exists on the floppy disk. how do i do
this?

 

[Tom Ogilvy]

if dir("A:\demo.xls")<>"" then
' file exists
else
' file does not exist
End if

 

[DavidMc]

Crashes out with Runtime error 52: bad filename or number.

 

[Bob Phillips]

David,

It's OK for me (XP2002, XL2000). Did you copy it or type it afresh?

 

[Tom Ogilvy]

I get that error if there is no disk in the floppy drive:

dir("A:\*.*")


Sub CheckDemo()
On Error GoTo ErrHandler
tryAgain:
sFile = Dir("A:\demo.xls")
If sFile = "" Then
MsgBox "Put disk with demo.xls in the floppy drive"
End If
Exit Sub
ErrHandler:
If Err.Number = 52 Then
MsgBox "Please put a floppy in the drive and hit enter"
Resume tryAgain
End If
End Sub