Geänderter Dateipfad
02.10.2012 10:47:02
Heinz
Hatte am 9.August untere Frage in das Forum gestellt.Leider kann ich darauf nicht mehr Antworten.
https://www.herber.de/forum/archiv/1272to1276/t1274414.htm
Ramses hat mir hierbei schon geholfen.
Nur mit den Dateipfad komme ich nicht zurecht.
"Call DATEILISTE_SAP( "H:\LLL", "xlsm")"'War ein Beispiel von Ramses
Der tatsächliche Dateipfad ist im Netzwerk,und lautet
"\\vetropack.corporate.ads\workgroups\KRM\public-quality\PAs - nach SAP-Nummer"
Könnte mir dazu bitte jemand helfen?
Gruß Heinz
Hallo
Der Pfad wird eben mehrfach benötigt.
Ich habe dir das mal umgebaut. Ungetestet mangels deinem Pfad.
Einfach mal probieren
Aufgrufen wird das Makro dann so
Call DATEILISTE_SAP( "H:\LLL", "xlsm")
Sub DATEILISTE_SAP(ByVal sFol As String, sFileExt As String)
Dim fileName As String
Dim nfiles As Long
Dim fso As Object, fsoFld As Object
Set fso = CreateObject("Scripting.FileSystemObject")
On Error GoTo Catch
Set fsoFld = fso.GetFolder(sFol)
fileName = Dir(fso.BuildPath(fsoFld.Path, sFileExt))
While Len(fileName) 0
fileName = fileName + FileLen(fso.BuildPath(fsoFld.Path, fileName))
nfiles = nfiles + 1
UserForm1.cmbSAP.AddItem fso.BuildPath(fsoFld.Path, fileName) ' Load ListBox
fileName = Dir() ' Get next file
DoEvents
Wend
UserForm1.cmbSAP.ListIndex = 0
Exit Sub
Catch: fileName = ""
Resume Next
End Sub
Gruss Rainer
Anzeige