Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
24.04.2024 12:16:26
Name von aktuellem VBA-Modul ausgeben
24.04.2024 12:07:15
Werte einer Liste vergleichen und markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
804to808
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
804to808
804to808
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ordnername eines Verzeichnes auslesen

Ordnername eines Verzeichnes auslesen
29.09.2006 12:07:51
Sebastian
Hallo,
in meiner Variablen "Path" steht z.B. C:\Testdaten\
Wie ist es möglich, mir die Namen aller in diesem Verzeichnis enthaltenen Ordner, welche mit "A" beginnen in einer Listbox anzeigen zu lassen?
Viele Grüße und Danke,
Sebastian

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ordnername eines Verzeichnes auslesen
29.09.2006 12:27:18
Rudi
Hallo,

Sub ordnerliste()
Dim oFS As Object, oFolder As Object, oFldr As Object
Set oFS = CreateObject("scripting.filesystemobject")
Set oFolder = oFS.getfolder("n:\test")
For Each oFldr In oFolder.subfolders
If Left(oFldr.Name, 1) = "A" Then
Sheets(1).ListBox1.AddItem oFldr.Name
End If
Next
End Sub

Gruß
Rudi
AW: Ordnername eines Verzeichnes auslesen
29.09.2006 12:32:17
IngGi
Hallo Sebastian,
so kannst du z.B. eine Listbox auf einer UserForm mit den Namen der Unterordner füllen:

Sub Unterordner()
Dim Path As String
Dim fso As Object
Dim fo As Object
Dim sfo As Object
Path = "C:\Temp\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set fo = fso.GetFolder(Path)
For Each sfo In fo.Subfolders
UserForm1.ListBox1.AddItem sfo.Name
Next 'sfo
UserForm1.Show
End Sub
Gruß Ingolf
Anzeige
AW: Ordnername eines Verzeichnes auslesen
29.09.2006 12:47:18
ingUR
... und ohne CreateObject("Scripting.FileSystemObject")
Pfad1 = "C:\Testdaten\"
Name1 = Dir(Pfad1, vbDirectory)
Do While Name1 <> ""
If Name1 <> "." And Name1 <> ".." Then
If (GetAttr(Pfad1 & Name1) And vbDirectory) = vbDirectory Then
If Left(Name1, 1) = "A" Then ListBox1.AddItem Name1
End If
End If
Name1 = Dir
Loop

Gruß!

Links zu Excel-Dialogen

ListBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige