Hallo,

das geht z.B. problemlos mit -> ExpPrint. Das Tool kannst du nach der Installation über das Kontextmenü aufrufen und die Ordnerstruktur nach deinen Wünschen in ein Textfile ausgeben lassen. Dieses kannst du dann bei Bedarf mit Excel öffenen und über den Textkonvertierungs-Assistenten in Spalten aufteilen lassen wobei den der Back-Slash als Trennzeichen verwendet wird.

Die von dir vorzunehmenden Einstellungen in ExpPrint kannst du dir -> HIER ansehen (ging jetzt schneller als eine entsprechende Erläuterung).

Gruß
Kalle

Danke für die schnelle antwort..
nur hab ich ein problem mit dem installieren, da ich keine admin rechte habe. :-(

und es soll ja dann auch alles über excel und beim öffnen der datei automatisch gehen.

Ich denke mal, jedenfalls solange ich das richtig verstanden habe, dass es doch etwas einfacher geht.
einfach

dir /s /b /ad >dir.txt

in die Console hacken und schon haste das gleiche file, wie es dir ExpPrint aus A#1 erzeugt hätte.
Dies lässte dann noch entsprechend A#1 zurechtstutzen und fertig.



Ele

Hallo,


Dass das Einlesen der Ordnerstruktur direkt in Excel erfolgen soll hattest du so aber nicht gesagt. Da müssen wohl die Experten für VB-Script ran, zu denen ich mich nicht zähle.

Gruß
Kalle

hi all :-)

ein beispiel :-))

gruss nighty

gibt die ebene an

VerzeichnisTiefe = 2

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

Public Sub Einlesen()
    lngCount = 0
    DicPuffer = "C:\Temp"
    VerzeichnisTiefe = 2
    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 = 0 Then
            Exit For
        Else
            SearchFiles strFolder & "\" & objFolder.Name, strFileName
            DicPuffer = strFolder
        End If
    Next
End Sub  

hi all :-)

korrigiert

gruss nighty

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 = "C:\Temp"
    VerzeichnisTiefe = 0
    VerzeichnisIndex = 2 'deine maxebene,null zaehlt mit
    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