Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
828to832
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ordnernamen einlesen

Ordnernamen einlesen
11.12.2006 11:43:55
Horst
Hi
Ich habe das Verzeichnis F:\Mail
wo verschiedene Unterordner drin sind..z.B.
\01
\02
\AC
\CF
Ich möchte alle diese Unterordner in ein Array kopieren (Ein-Spaltiger Vektor)
Wie kann ich das realisieren?

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ordnernamen einlesen
11.12.2006 13:10:51
Matthias
Hallo Horst,
z.B. so:

Sub tt()
Const Verz = "F:\Mail\"
Dim dn As String, liste() As String, anz As Integer
dn = Dir(Verz & "*.", vbDirectory)
Do While dn <> ""
If InStr(dn, ".") = 0 Then
anz = anz + 1
ReDim Preserve liste(1 To anz)
liste(anz) = dn
End If
dn = Dir()
Loop
'nur zum Testen:
Debug.Print "Anzahl Verzeichnisse: " & UBound(liste)
For anz = 1 To UBound(liste)
Debug.Print anz, liste(anz)
Next anz
End Sub

Allerdings werden hier auch Dateinamen ohne Endung mitgezählt.
Gruß Matthias
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige