|
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
|