wie kann ich alle ordner in einem be´stimmten Verzeichnis mit Makro zählen?
grüße Rico
Sub Dateien_auflisten)
Application.ScreenUpdating = False
With Application.FileSearch
' Neue Suche vorbereiten
.NewSearch
.Filename = "*.xls"
.LookIn = "C:\Test.Ordner"
' ... und starten
If .Execute > 0 Then
' Dateien gefunden
Dim f
Dim i As Integer
Dim Mappe As Workbook
For Each f In .FoundFiles
i = i + 1
ActiveSheet.Cells(i, 1).Value = f
Next
End If
End With
Application.ScreenUpdating = True
End Sub
Sub ShowCountedFiles()
MsgBox "Anzahl der Dateien im ausgewählten Verzeichnis = " & FilesCount(GetOrdner)
End Sub
Function GetOrdner(Optional ByVal def = "")
Dim objshell As Object
Dim objfolder As Object
Set objshell = CreateObject("Shell.Application")
Set objfolder = objshell.BrowseForFolder(0, "Bitte einen Ordner wählen", 0, def)
If objfolder Is Nothing Then End
GetOrdner = objfolder.Self.Path
End Function
Function FilesCount(folderspec) As Long
With Application.filesearch
.NewSearch
.LookIn = folderspec
.SearchSubFolders = True
.FileType = msoFileTypeAllFiles
.Execute
FilesCount = .FoundFiles.Count
End With
End Function