Ordnerstruktur

[knobbi38]

Hallo,

deine Angaben sind immer noch verwirrend, aber im Prinzip ist das doch einfach. Mit Getfolders().Subfolders() kannst du alle Unterordner ermitteln vom Hauptordner ermitteln. Diese bekommen nach deiner Idee alle den Präfix ">>>" . Alle weiteren Unterordner müssen dann zwangsweise automatisch den Präfix ">>" bekommen.

Oder vereinfacht ausgedrückt: Alle Ordner mit ParentFolder = "Wartung" -> Präfix ">>>" else Präfix ">>"

Eine rekursive Liste von Ordner mit dem FSO sollte jetzt nicht das Problem sein, dafür gibt es Beispiele genug.

Gruß
Knobbi38

[Andyle]

Ja getestet und nur Fehler


ReDim sp(UBound(sn), 0)

[snb]

Du hättest

Code:

G:\*.*

  anpassen müssen. z.B

Code:

C:\*.*

Aber..., wir kennen deinen Rechner nicht.

[Andyle]

Irgendwie komme ich nicht weiter.


Alle Ordner/Unterordner lese ich so aus:

Code:

Sub Ordner(Objekt As Object)

Dim Ordnername$, Ordnername2$
Dim Item As Object
Dim lRow As Long

For Each Item In Objekt.SubFolders

Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = "=HYPERLINK(" & """" & Item.Path & "\""," & """" & Item.Name & """)"
   
   
    Range("A" & Rows.Count).End(xlUp).Font.Color = RGB(0, 0, 0)
    Range("A" & Rows.Count).End(xlUp).Font.Bold = True
   
    Range("A" & Rows.Count).End(xlUp).Font.Name = "Calibri"
'    Range("A" & Rows.Count).End(xlUp).Interior.Color = RGB(50, 250, 0)
    Dateien Item.Files
   
      Ordner Item
 
    Ordnercount = Ordnercount + 1

Next

End Sub

Die Hauptordner mit:

Code:

Dim oFolder As Object, oSFolder As Object, oFS As Object
Set oFS = CreateObject("Scripting.filesystemobject")
Set oFolder = oFS.GetFolder(ThisWorkbook.Path & "\Wartungen\")
For Each oSFolder In oFolder.SubFolders
ActiveSheet.Cells(Rows.Count, 9).End(xlUp).Offset(1) = oSFolder.Name

Next

Nur irgendwie bekomme ich es nicht zusammen. um >>> bzw. >> zu setzen.

[Andyle]

Jetzt haben erstmal alle Ordner >>> davor

Code:

Sub Ordner(Objekt As Object)

Dim Ordnername$, Ordnername2$
Dim Item As Object
Dim lRow As Long

Dim Zelle As Range

For Each Item In Objekt.SubFolders

Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = "=HYPERLINK(" & _
                    """" & "" & Item.Path & "\""," & _
                    """" & ">>> " & Item.Name & """)"
   
    Range("A" & Rows.Count).End(xlUp).Font.Color = RGB(0, 0, 0)
    Range("A" & Rows.Count).End(xlUp).Font.Bold = True
    Range("A" & Rows.Count).End(xlUp).Font.Name = "Calibri"

    Dateien Item.Files
   
      Ordner Item
 
    Ordnercount = Ordnercount + 1

Next

End Sub

Nur für die Unterordner bekomme ich es nicht hin. (>>)

[snb]

Und was bringt das '>>' statt '\' und '>>>' statt '\'  ??

Wozu dieses Verfahren ?

[Andyle]

Um die Überordner von den Unterordnern zu unterscheiden, da alle Ordner untereinander aufgelistet sind.

>>> AAA
>>> BBB
>> bbbb
>> cccc
>>> CCC
>>> DDD
>> dddd

[RPP63]

Slash oder Backslash behagen Dir also nicht.
Folglich sind Konventionen egal.
Wie wäre es mit ◘ oder ○
Früher gab es es auch einen Bildschirmschoner "Flying Windows".
Das wäre doch auch etwas.

[Andyle]

Was davor steht ist folglich egal.
es dient nur zur Unterscheidung zwischen Haupt und Unterordnern.

[snb]

Hast du schon 'Explorer' benützt ?