volkerb
Goto Top

Ordnerstruktur in Excel anzeigen

Hallo Leute,

ich habe das Problem, dass mein Skript nur Dateien und nicht die Ordner auflistet.
Ich hatte ein Skript aus dem Internet und versucht meinen Wünschen anzupassen.

Private strList() As String
Private DicPuffer As String
Private lngCount As Long
Private VerzeichnisTiefe As Integer
Private VerzeichnisIndex As Integer

Public Sub Einlesen()
	lngCount = 0
	DicPuffer = Range("O4").Value ´--> hier steht im Excel das Verzeichnis  
	VerzeichnisTiefe = 2
	VerzeichnisIndex = 2                  '--> hier die Anzahl der Ebenen  
	SearchFiles DicPuffer, "*.*"  

	If lngCount = 0 Then
		MsgBox "No file found"  
	Exit Sub

	End If
	With ThisWorkbook.Worksheets(1)
		.Cells.Clear
		.Range(.Cells(1, 1), Cells(lngCount, 1)) = _
		WorksheetFunction.Transpose(strList)
	End With
End Sub

Private Sub SearchFiles(strFolder As String, strFileName As String)
Dim objFolder As Object
Dim objFile As Object
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")  
	For Each objFile In objFSO.GetFolder(strFolder).Files
		If objFile.Name Like strFileName Then
			ReDim Preserve strList(lngCount)
			strList(lngCount) = objFile.Name
			lngCount = lngCount + 1
		End If
	Next
	For Each objFolder In objFSO.GetFolder(strFolder).Subfolders
		If strFolder <> DicPuffer Then
			If VerzeichnisTiefe = 2 Then Exit For
			VerzeichnisTiefe = VerzeichnisTiefe + 1
		End If
		If VerzeichnisTiefe = VerzeichnisIndex Then
	Exit For
	Else
		SearchFiles strFolder & "\" & objFolder.Name, strFileName  
		DicPuffer = strFolder
	End If
Next
End Sub

Ich bekomme aber immer Dateien angezeigt.
Vielleicht kann mir jemand helfen.

Vielen Dank.
Grüße
V

Content-Key: 651193

Url: https://administrator.de/contentid/651193

Ausgedruckt am: 28.03.2024 um 08:03 Uhr

Mitglied: Nohouse303
Nohouse303 11.03.2021 um 13:36:09 Uhr
Goto Top
Moin,
ersetzte mal in Zeile 34 objFile.name durch objFile.Path

Viel Erfolg.

Gruss der Torsten