Check If Directory Exist

'In this example we check if the directory c:\windows exist

Private Sub Form_Load()
Const ATTR_DIRECTORY = 16
If Dir$("c:\windows", ATTR_DIRECTORY) <> "" Then
MsgBox ("The directry exist")
Else
MsgBox ("The directry does not exist")
End If
End Sub