Office: Ordnernamen auslesen

doobie · 21. September 2008

Hallo Forum,

kann mir jemand sagen, wie ich in Excel-VBA einzelne Ordnernamen aus dem Windows-Explorer auslesen bzw. zurückgeben lassen kann?

Will also z.B. aus dem Verzeichnis "C:\Allgemein\Produkte" alle Unterordner von Produkte ausgeben lassen und die Namen der Unterordner in eine Spalte in Excel schreiben.

Bin jetzt schon auf die DIR$ Funktion gestoßen, schaffs aber nur ganze Pfadnamen oder Dokumentennamen ausgeben zu lassen.

lg

:)

jinx · 24. September 2008

Moin, doobie,

hier erfolgt die Ausgabe in einem Mitteilungsfenster:

Code:

Sub Verzeichnisbaum(strStartverzeichnis)

Dim oFSO As Object
Dim oMainFolder As folder
Dim oFolder As Object
Dim strText As String
Dim oSubFolder As String

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oMainFolder = oFSO.GetFolder(strStartverzeichnis)
Set oSubFolder = oMainFolder.SubFolders
For Each oFolder In oSubFolder
strText = strText & oFolder.Name
strText = strText & vbCrLf
Next

MsgBox strText

Set oSubFolder = Nothing
Set oMainFolder = Nothing
Set oFSO = Nothing

End Sub

Sub Aufruf()

Verzeichnisbaum "C:\Allgemein\Produkte"

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

theonlyrobi · 9. Februar 2021

Hallo Jinx,

von jinx

hier erfolgt die Ausgabe in einem Mitteilungsfenster ...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

muss man, um diese Funktion nutzen zu können, einen bestimmten Verweis einbinden?

VG Robert

theonlyrobi · 10. Mai 2010

Habs gefunden: Verweis auf "Microsoft Scripting Runtime" muss gesetzt werden.

IngGi · 10. Mai 2010

Hallo theonlyrobi,

wenn du die Zeile
Code:

Dim oMainFolder As folder
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

durch
Code:

Dim oMainFolder As Object
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ersetzt, sollte es auch ohne den Verweis gehen.

Gruß Ingolf

theonlyrobi · 10. Mai 2010

Hallo Ingolf,

danke für den Tip!

VG Robert

Office: Ordnernamen auslesen

Ordnernamen auslesen

Ordnernamen auslesen

Ordnernamen auslesen

Ordnernamen auslesen - Similar Threads - Ordnernamen auslesen

Teile aus einem qrcode string auslesen

VBA Auslesen von Strings und erstellen neuer Zeilen in einer Tabelle

aktuelles Alter aus Geburtsdatum auslesen und runde Geburtstage markieren

Datum einer Datei per VBA auslesen

Autom. Email verschieben in Ordner anhand einer Nummer im Betreff

Ordnernamen, die Kriterien erfüllen in Listbox aufführen

Bei Unterhaltungen werden die Ordner in der Spalte Erhalten angezeigt