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

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

Jo,

Just try to open it and test if it was successful

Dim oWb As Workbook

On Error Resume Next
Set oWb = ")
If oWb Is Nothing Then
MsgBox "File not found"
End If
On Error GoTo 0

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"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