Application.FileSearch.Execute nicht unter XP
28.09.2004 19:28:04
Jörn
Es soll auch unter Office XP (Excel 2003) laufen.
Problem:
Application.FileSearch.Execute bleibt 0, obwohl der Dateiname funktioniert
Die If Then Else wurde ausgeklammert, und die MsgBox'n wurden eingefügt, um zu sehen, ob der Rest funktioniert.
' ******************************************
' MsgBox Dateiname
With Application.FileSearch
.Filename = Dateiname
MsgBox Application.FileSearch.Filename
MsgBox Application.FileSearch.Execute
' If .Execute() > 0 Then ' Wenn Dateinamen gefunden
Img_Messstelle.Picture = LoadPicture(Dateiname)
' Bild verkleinern
Img_Messstelle.PictureSizeMode = fmPictureSizeModeZoom
' Else
' Img_Messstelle.Picture = LoadPicture("")
' ******************************************
' MsgBox "Kein Bild gefunden"
' End If
End With