Versuch mal folgendes:
Function CheckBildURL(ByVal sPFAD As String) As String
Static fso As Object
If fso Is Nothing Then Set fso = CreateObject(class:="Scripting.FileSystemObject")
CheckBildURL = IIf(fso.fileexists(sPFAD), "vorhanden", "nicht vorhanden")
End Function
Wie folgt aus einem allgemeinen Modul aufzurufen:
|