Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1160to1164
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
Inhaltsverzeichnis

Ordnernamen auflisten

Ordnernamen auflisten
steffen
Hallo in die Runde,
ich habe in der Recherche folgenden Code gefunden:
Sub ShowFolderName()
Dim FSyObjekt As Object, FoObjekt As Object
Set FSyObjekt = CreateObject("Scripting.FileSystemObject")
Set FoObjekt = FSyObjekt.GetFolder("D:\Eigene Dateien\Test")
MsgBox FoObjekt.Name
End Sub
Ich möchte gern eine Routine drin haben, die nacheinander alle in TEST befindlichen Ordnernamen ausgibt.
Gruß
Steffen

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

Betreff
Benutzer
Anzeige
AW: Ordnernamen auflisten
18.06.2010 14:24:58
chris
Hallo,
Excel Hilfe bietet auch manches.
Hoffe ich konnte helfen.
Sub ttes()
' Namen in C:\ anzeigen, die Verzeichnisse darstellen.
Pfad1 = "c:\test\"    ' Pfad setzen.
Name1 = Dir(Pfad1, vbDirectory)    ' Ersten Eintrag abrufen.
Do While Name1  ""    ' Schleife beginnen.
' Aktuelles und übergeordnetes Verzeichnis ignorieren.
If Name1  "." And Name1  ".." Then
' Mit bit-weisem Vergleich sicherstellen, daß Name1 ein
' Verzeichnis ist.
If (GetAttr(Pfad1 & Name1) And vbDirectory) = vbDirectory Then
MsgBox Name1    ' Eintrag nur anzeigen, wenn es sich
End If    ' um ein Verzeichnis handelt.
End If
Name1 = Dir    ' Nächsten Eintrag abrufen.
Loop
End Sub
gruß Chris
Anzeige
Supi
18.06.2010 14:44:00
steffen
Hallo Chris,
danke funzt tadellos. Genau sowas habe ich gesucht.
Gruß Steffen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige