[RESOLVED] file exists

[bezaman]

i'm trying to see if a user inserted the correct cd. i'm doing this by checking if a file exists on the cd drive. my question is, can i use wildcard characters to see if a file exists? example:

If fso.FileExists("D:\*.cde") = True Then MsgBox "yes"

this doesn't seem to work. if i enter the complete file name, it works.

[Al42]

If Dir("D:\*.cde") > vbNull Then MsgBox "yes"

[bezaman]

type mismatch

[Hack]

vbNullString would work a little better.

[bezaman]

thanks.

[Hack]

You are welcome.

If you consider this resolved, you could help us out by pulling down the Thread Tools menu and click the Mark Thread Resolved menu item. That will let everyone know that you have your answer.

Thank you.

[bezaman]

if there is no cd in the drive at all i get an error message. how can i check if there is a cd in the drive?

[Hack]

Why not just trap for the error?

What is the error number you get?

[bezaman]

Run-time error '52'
Bad file name or number

[Hack]

On Error GoTo ErrTrap
'your file exists code
Exit Sub
ErrTrap:
If Err.Number = 52 Then
   Msgbox "Please insert a CD into the CD Drive.",vbOKOnly + vbInformation,"No CD"
Else
   Msgbox Err.Number & " " & Err.Description
End If
End Sub

[bezaman]

works great. one last question. is there a way to automatically eject the cd?

[Hack]

Try

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
 
Private Sub cmdOpenCD_Click()
Dim OpenCDDrive As Long
OpenCDDrive = mciSendString("set CDAudio door open", "", 127, 0)
End Sub

[bezaman]

thanks. thanks. thanks.