Herbers Excel-Forum - das Archiv

Letzter Ordnername im Unterverzeichnis

Bild

Betrifft: Letzter Ordnername im Unterverzeichnis
von: Torsten

Geschrieben am: 06.04.2005 11:38:05
Hallo,
In einem VZ sind mehrere Unterverzeichnisse.
Wie kann ich den Namen des letzten Ordners erfassen.
Es gibt praktisch vorhandene Ordner: 01, 02, 03, ..., 08
Der nächste zu erstellende Ordner wäre dann 09.
Wie kann ich den Ordner \08\ erafssen?
Danke schon mal,
Torsten
Bild

Betrifft: AW: Letzter Ordnername im Unterverzeichnis
von: Frank Domke

Geschrieben am: 06.04.2005 14:31:16
Hallo Torsten,
entweder alle Ornder in ein Array einlesen und sortieren oder aber in der "Dir"-Schleife die Namen miteinander vergleichen:
Sub ReadDir()
Dim strOrdner As String
Dim strTemp
strTemp = Dir("C:\Temp\", vbDirectory)
strOrdner = strTemp
Do While Len(strTemp) > 0
strTemp = Dir
If strTemp > strOrdner Then
' Da hier Zeichenketten verglichen werden
' sollten alle Ordnernamen numerisch und
' und gleich lang sein!
strOrdner = strTemp
End If
Loop
MsgBox strOrdner
End Sub

Viel Erfolg
Frank.
Bild

Betrifft: Danke! Probier ich gleich aus.
von: Torsten
Geschrieben am: 06.04.2005 16:16:43
Danke! Probier ich gleich aus.
Grüße,
Torsten
 Bild
Excel-Beispiele zum Thema "Letzter Ordnername im Unterverzeichnis"
Letzter Wert in Zeile Letzter Wert aus einem Bereich
Text aus letzter Zelle mit Inhalt in UserForm-TextBox anzeigen Zeile mit letzter Fundstelle an letzte Position der Liste
Ordnernamen eines Verzeichnisses in Zelle einfügen Unterverzeichnisse mit Inhalt löschen
Dateien in einem Verzeichnis und Unterverzeichnissen suchen XL-Dateien aus Haupt- und Unterverzeichnissen einlesen
Unterverzeichnisse eines vorgegebenen Pfades auslesen