Hallo zusammen,

Ich würde euch gerne um Hilfe bitten. Folgendes Problem ist bei mir aufgetreten:

Ich verwende aktuell eine Funktion, welche einen Ordnerpfad erst bereinigt und dann einem FileSystemObject übergeben wird um später darüber die erste Datei innerhalb eines Ordners auslesen zu können.

Das hat bisher auch wunderbar geklappt. Jetzt ist allerdings ein Problem auf einem spanischen System aufgetreten, dass die Funktion fs.GetFolder(sPfad) keinen Ordner findet. Auf einem deutschen oder englischem System funktioniert die Funktion wie gewünscht. 

Vielleicht hat jemand eine Idee, warum das so ist:

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 & "/"
        
    ' Pfad versuchen anzusteuern und alle Dateien, die dort gefunden werden auszulesen
    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

Vielen Dank schon einmal im voraus.

Viele Grüße,

Zesarus