Public Function Finde_erste_Datei_im_Pfad(sOrdner$)
Dim fs As Object
Dim fsDir As Object
Dim fsFileName As Variant
Dim iCount&
Dim sDatei$
Dim sErgebnis$
Dim sPfad$
sDatei = ""
sErgebnis = ""
iCount = 0
Set fs = CreateObject("Scripting.FileSystemObject")
If VBA.Right(sOrdner, 1) <> "/" Then sOrdner = sOrdner & "/"
sPfad = Replace(sOrdner, "/", "\")
sPfad = Replace(sPfad, "http:", "")
On Error GoTo NoFolder
Set fsDir = fs.GetFolder(sPfad)
For Each fsFileName In fsDir.Files
sDatei = fsFileName
iCount = iCount + 1
Next
On Error GoTo 0
NoFolder:
If iCount = 1 Then
If sDatei <> "" Then
sErgebnis = sDatei
End If
End If
Finde_erste_Datei_im_Pfad = sErgebnis
End Function