File and drive problems

[mastana]

1. How can I check if a directory exists and a file exists?

2. If I use a drivelist box to set the drive, along with the dirlist box, if I click on afloppy drive), without putting in a floppy it generates an error(because the chdir is related to chdrive)and the program terminates. How can I trap this error to tell the user to put in a floppy in the drive?

#1) Use the Dir() function.

If Dir$("MyFile.txt") <> "" Then 
    'File Exists
Else
    'File does not exist
End If

#2) It's a simple matter of Error Handling.

Private Sub Drive1_Change()

    On Error GoTo ERRH
    Dir1 = Drive1
    
ERRH:
    If Err = 68 Then MsgBox "Drive not ready. Insert disk", vbCritical + vbOKOnly, "Error"
    
End Sub