Gruppe
Matrix
Bereich
Benutzerdefiniert
Thema
Ordnernamen eines Verzeichnisses in Zelle einfügen
Problem
Wie kann ich die Ordnernamen eines in einer Zelle stehenden Verzeichnisnamens über eine benutzerdefinierte Funktion ermitteln?
Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.
StandardModule: basMain
Function DirNames(sPath As String) As Variant
Dim arr() As String
Dim iCounter As Integer
With Application.FileSearch
.LookIn = sPath
.Execute
ReDim arr(1 To .FoundFiles.Count)
For iCounter = 1 To .FoundFiles.Count
arr(iCounter) = .FoundFiles(iCounter)
Next iCounter
End With
DirNames = arr
End Function