Hello Jo,

It is easier to use the Dir command for this

myFile= Dir("A:\*w.xls")
If myFile="" then
MsgBox
Else Workbooks.Open Filename:= "A:\" & myFile

HTH, Greg

"Jo" wrote in message
...
Hi
I would really appreciate if someone could help me with
the below code. I want to see is a file labelled ??????w
ia on the floopy and if it is run openme. If the file is
not there or no disk is inserted then have an error msgbox.
Thanks
Jo

Sub f()
Dim fs
Set fs = Application.FileSearch
With fs
.LookIn = "A:/"
.filename = "??????w"
If .Execute() 0 Then
open_w
Else
MsgBox "Make sure a disk is inserted and contains a file
labelled ??????w"
End If
End With
End Sub