To check if a file or directory exists you could also use this routine:

[VBA]Sub FilePathExists()
Dim strPathandFile As String
strPathandFile = "path+file" ' <- Change to your path and filename
If Dir(strPathandFile) = "" Then
MsgBox (strPathandFile & " does not exist")
Else
MsgBox (strPathandFile & " exists")
End If
End Sub [/VBA]

If you just want to check of a directory just add a backslash at the end of strPathandFile, for example "C:\Windows\" in stead of "C:\Windows". The latter will cause the routine to look for a file (not directory) called "Windows" in the root of your C drive.

Rembo