una forma :
Código:
Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
Private Sub Form_Load()
MsgBox "Existe ? " + CStr(CBool(PathFileExists("c:\autoexec.bat")))
End Sub
si no con la función Dir de vb
saludos
-----