Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:23:24
19.04.2024 11:45:34
Anzeige
Archiv - Navigation
592to596
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
592to596
592to596
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Letzter Ordnername im Unterverzeichnis

Letzter Ordnername im Unterverzeichnis
06.04.2005 11:38:05
Torsten
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzter Ordnername im Unterverzeichnis
06.04.2005 14:31:16
Frank
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.
Danke! Probier ich gleich aus.
06.04.2005 16:16:43
Torsten
Danke! Probier ich gleich aus.
Grüße,
Torsten
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige