Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
704to708
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
704to708
704to708
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Ordner zählen

Ordner zählen
05.12.2005 00:19:58
Rico
Hallo,
wie kann ich alle ordner in einem be´stimmten Verzeichnis mit Makro zählen?
grüße Rico

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ordner zählen
05.12.2005 09:55:50
Susanne
Hallo Rico,
mit dem u.a. Makro kannst du dir alle .xls Dateien aus einem Ordner in eine Excel-Mappe auflisten. Dann versorgst du die Spalte dahinter mit 1 und addierst sie auf. Wäre eine Möglichkeit....geht aber sicher auch einfacher....

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

LG
Susanne
Anzeige
AW: Ordner zählen
05.12.2005 10:22:21
Rolf
Hallo Rico,
ich nehme an, du willst nur die nackte Zahl haben -
versuch mal das
fG
Rolf

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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige