Ordner Auflisten

10/05/2012 - 11:07 von Willi.Emmrich | Report spam
Hi zusammen,
ich möchte die Ordner eines Laufwerkes in Excel über ein Makro auflisten.
Aber ohne Pfadangabe nur der Ordnername.
Danke
Willi
 

Lesen sie die antworten

#1 Robert Feldmann
10/05/2012 - 18:47 | Warnen spam
Hallo Willi,

z.B. hiermit:

Sub ordnerauswahl()
Dim AppShell As Object
Dim BrowseDir As Variant
Dim Pfad As String
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswàhlen",
&H1000, 17)
On Error Resume Next
Pfad = BrowseDir.items().Item().Path
If Pfad = "" Then Exit Sub
MsgBox Pfad
End Sub

quelle:
http://www.office-loesung.de/ftopic..._0_asc.php

Ein bisschen Suchen kann man aber schon, gelle?

Am 10.05.2012 11:07, schrieb Willi.Emmrich:
Hi zusammen,
ich möchte die Ordner eines Laufwerkes in Excel über ein Makro auflisten.
Aber ohne Pfadangabe nur der Ordnername.
Danke
Willi




Nicht was Du sagst ist entscheidend, sondern was verstanden wird.

Ähnliche fragen