Letzter Ordnername im Unterverzeichnis

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
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

Beiträge aus den Excel-Beispielen zum Thema "Letzter Ordnername im Unterverzeichnis"