Office: Ordnerstruktur mit Dateien als Flussdiagramm

Hallo Ihr lieben,


ich bin ein Frischling was VBA programmierung angeht und kämpfe mich ein bisschen durch.. *Smilie

Ich möchte ganz gerne Ordnerstrukturen (mit mehreren Ebenen) auslesen und in einer Art Flussdiagramm in Excel darstellen. Mit folgendem Code funktioniert das schon ganz gut, allerding zeigt er nur die Ordnernamen an und keine Dateien, die in den verschiedenen Ordner enthalten sind. Wie muss ich das ganze dementsprechend anpassen?

Falls möglich würde ich noch gerne neben dem jeweiligen ordner das Änderungsdatum hinzufügen.

PHP:

         Public Sub OrdnerListen_Start()
Dim fso As Object

Dim strPfad As String

With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Start-Verzeichnis wählen"
.ButtonName = "übernehmen"
If .Show <> -1 Then Exit Sub
strPfad = .SelectedItems(1)
End With

With ActiveSheet

.UsedRange.ClearContents

Set fso = CreateObject("Scripting.FileSystemObject")

Call OrdnerListen(fso, strPfad, .Range("A1"))  Pfad anpassen!

Set fso = Nothing

End With

End Sub

Private Sub OrdnerListen(fso As Object, Ordnerangabe As String, rng As Range, Optional Zeile As Long, Optional Spalte As Long)
Dim o, uo

Set o = fso.GetFolder(Ordnerangabe)

rng.Offset(Zeile, Spalte).Value = o.Name

Zeile = Zeile + 1

For Each uo In o.SubFolders
Spalte = Spalte + 1
Call OrdnerListen(fso, uo.Path, rng, Zeile, Spalte)
Spalte = Spalte - 1
Next

Set o = Nothing
Set uo = Nothing

End Sub


:)

 

Hallo Jessica,

Dann zeige doch einmal auf, wie dann der Output aussehen soll.

Gruß
Aloys

 

Hallo Aloys,

der Output sollte folgendermaßen aussehen:






Die Farben und die Überschriften dienen lediglich zur besseren Veranschaulichung hier.

Ich hoffe es ist verständlich, wie ich mir das ganze vorgestellt habe! *Smilie

Liebe Grüße,
Jessica

 

Hallo Jessica,

anbei mein Lösungsvorschlag. Bezüglich der Ordnerstruktur habe ich Deinen Code nahezu unverändert übernommen.

Um Dateien von Ordnern leichter unterscheiden zu können, werden die Dateinamen farblich markiert.

Gruß
Aloys

 

Hallo Aloys,

super, das funktioniert wie ne 1! Spitze! *cool.gif*

Als letzte Frage hätte ich noch, ob es überhaupt möglich ist, die Struktur direkt von einem Webspace (Sharepoint) wiederzugeben?

Viiielen lieben Dank für deine Hilfe!

Liebe Grüße,
Jessica

 

Hallo Jessica,

Sorry, da kann ich Dir nicht helfen. Ich habe weder Zugang zu einem Sharepoint-Server noch Erfahrungen mit Sharepoint.

Ich empfehle Dir, diesen Thread zu schließen und ein neues Thema, speziell zum Auslesen von Ordnern/Dateien von Sharepoint, zu starten.

Gruß
Aloys