Zelle A1 = Ordnername >> Zelle B1 (listet alle unterordner auf)

08/02/2009 - 23:52 von Tobias Harnegg | Report spam
Ich habe folgende Ordnerstruktur


Hauptverzeichnis:

exceldatei.xls
&
/Ordnername-A/Unterordner-x
/Unterordner-y


Wenn ich nun in der in der zelle A1 von exeldatei.xls diesen wert
eintrage "Ordnername-A"
möchte ich, das in B1 die Unterordner aufgelistet werden >>
"Unterordner-x, Unterordner-y" (kommagetrennt)
Unterordner auf tieferen Ebenen können übrigens ignoriert werden, es
geht sozusagen nur um die 2te Ebene.

Ist das möglich? Bin leider ziemlicher Anfànger.
 

Lesen sie die antworten

#1 Andreas Killer
09/02/2009 - 09:16 | Warnen spam
On 8 Feb., 23:52, Tobias Harnegg wrote:

Ich habe folgende Ordnerstruktur


...
exceldatei.xls
&
/Ordnername-A/Unterordner-x
                      /Unterordner-y


...
Wenn ich nun in der in der zelle A1 von exeldatei.xls diesen wert
eintrage "Ordnername-A"
möchte ich, das in B1 die Unterordner aufgelistet werden >>
"Unterordner-x, Unterordner-y"  (kommagetrennt)
Unterordner auf tieferen Ebenen können übrigens ignoriert werden, es
geht sozusagen nur um die 2te Ebene.


Kein Problem, brauchst nur den Code den ich Dir schon geschickt hatte
etwas abwandeln.

Entspricht das Deinen Vorstellungen?

Andreas.

Sub Test()
Dim Pfade As Object, Pfad As Object, S As String

'Suchpfad generieren
Basis = ActiveWorkbook.Path & "\" & Range("A1")

'Unterverzeichnisse holen
Set Pfade = GetSubFolders(Basis)

'Ausgabestring leeren
S = ""

'Alle gefundenen Pfade durchlaufen
For Each Pfad In Pfade
S = S & Mid(Pfad, Len(Basis) + 1) & ","
Next

'In Zelle A2 ausgeben
Range("A2") = S
End Sub

Function GetSubFolders(ByVal Pfad As String) As Variant
'Gibt eine Folders-Auflistung zurück, die aus allen in einem _
bestimmten Ordner enthaltenen Ordnern, einschließlich derer mit _
dem Attribut "Verborgen" und "Systemdatei", besteht.
Dim f As Object, fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(Pfad)
Set GetSubFolders = f.SubFolders
Set f = Nothing
End Function

Ähnliche fragen