guckst du:
Function ExistFileDirDrive(FilePathName As String) As Integer
Dim nTest As String
nTest = Lcase$(FilePathName)
If Len(nTest) = 1 Then
Select Case Left$(nTest, 1)
Case "a" To "z"
nTest = FilePathName & ":\"
End Select
Elseif Len(nTest) = 2 Then
Select Case Left$(nTest, 2)
Case "a:" To "z:"
nTest = FilePathName & "\"
End Select
End If
On Error Resume Next
ExistFileDirDrive = Cint(Getattr(nTest) Or vbNormal _
Or vbHidden Or vbSystem Or vbArchive Or vbDirectory)
End Function
Sub Click(Source As Button)
Dim dummy As Integer
dummy = ExistFileDirDrive("c:\my downloads")
If dummy > 0 Then
Msgbox "Yoo, ist da"
Else
Msgbox "Nö, nicht gefunden"
End If
End Sub
