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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen