Subordnerpfade aus mehreren Ordner auslesen
21.06.2014 12:19:25
Jack
folgendes:
Mein Ziel wäre es mehrere Verzeichnisse: z.B
K:\Ordner1
K:\Ordner2
K:\Ordner3
auszulesen und dessen Subordner(am besten mit kompletten Pfad z.B. "K:\Ordner1\Bla") in Excel auflistet
Sodass am Ende, das bei rauskommt:
K:\Ordner1\Bla1
K:\Ordner1\Bla2
K:\Ordner1\Bla3
K:\Ordner2\EE1
K:\Ordner2\EE2
K:\Ordner2\EE3
K:\Ordner3\TT1
Habe zwar schon rumgesucht, aber noch nicht das passende gefunden, das unten kommt dem schon _ Nahe allerdings ist das Makro auf ein Verzeichnis beschränkt und gibt nur den Subordner Namen wieder.
Sub HD1Ordnername_einlesen()
Dim objFSO As Object
Dim objFolder As Object
Dim strPfad As String
Dim objSubfolder As Object, colSubfolders As Object
Dim lngNext As Long
strPfad = "K:\Ordner1"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPfad)
Set colSubfolders = objFolder.Subfolders
lngNext = Application.Max(2, Cells(Rows.Count, 1).End(xlUp).Row + 1)
For Each objSubfolder In colSubfolders
If IsError(Application.Match(objSubfolder.Name, Columns(1), 0)) Then
Cells(lngNext, 1).Value = objSubfolder.Name
lngNext = lngNext + 1
End If
Next objSubfolder
Set objFolder = Nothing
Set colSubfolders = Nothing
Set objFSO = Nothing
End Sub
Vielen Danke im Vorraus fürs durchlesen und ggf. eine Lösung.. wäre super nett von euch!
mfg
Daze