Excel + VB + File suchen

[Frankster]

Hi!
Ich möchte gerne ein kleines Makroprogramm schreiben, dass schaut, ob da File überhaupt vorhanden ist!

Ich habe gedacht es funktioniert so!

Set fs = Application.FileSearch
With fs
.LookIn = "D:\"
.FileName = "Hallo.xls"
If .Execute > 0 Then
MsgBox "File ist vorhanden"
Workbooks.Open Filename:=Filename

Else
MsgBox "Das File ist nicht vorhanden"
End
End If
End With


Nur er findet das File nicht!!
Aber Hallo.xls ist 100% in D:\

Mfg
Frankster