Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
616to620
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
616to620
616to620
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateien eines Verzeichnis zählen -Liste-

Dateien eines Verzeichnis zählen -Liste-
01.06.2005 16:01:44
Anton
Hallo Leute,
jetzt habe ich das Forum rauf und runter gesucht....
und ein wenig zusammengesucht.
Leider ist es nicht so wie ich es brauche. Siehe Datei:
https://www.herber.de/bbs/user/23483.xls
In Tabelle1 steht eine Liste von Datei-Such-Masken
und der immer gleiche Such-Pfad.
Die Datei-Namen (die Ihr in Tabelle2 seht) ist das Ergebnis des Makros,
kann ich aber garnicht brauchen.
Ich brauche nur die Stückzahl
(im ersten Beispiel dieser Liste sind es 11.)
Außerdem soll das Makro die ganze Liste abarbeiten.
Wer kann mir da bitte weiterhelfen?
Dank Euch,
Servus,
Anton

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateien eines Verzeichnis zählen -Liste-
01.06.2005 16:20:17
EffHa
Hallo Anton,
ich würde das wie folgt lösen:
Option Explicit
Private Declare 

Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" ( _
ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare 


Function FindNextFile Lib "kernel32" Alias "FindNextFileA" ( _
ByVal hFindFile As Long, _
lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare 


Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
Const MAX_PATH = 260
Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type


Sub Zählen()
hier eine schleife mit den vorgegebenen Zellen
End Sub





Sub SearchFiles(PathName$, Pattern$, FoundFileNames)
Dim hFind&, hFile&, nFile&              'SDir$,
Dim FD As WIN32_FIND_DATA
Dim Counter&
On Error Resume Next
Counter = 0
If Right(PathName, 1) <> "\" Then PathName = PathName & "\"
hFile = FindFirstFile(PathName & FileName, FD)  ' Pathname ist ja konstant,
If hFile > 0 Then                               'Filename aus Tabelle
Counter = Counter + 1
Do
nFile = FindNextFile(hFile, FD)
If nFile > 0 Then
Counter = Counter + 1
End If
Loop While nFile <> 0
End If
FindClose hFile
End Sub
Anzeige
AW: Dateien eines Verzeichnis zählen -Liste-
01.06.2005 17:39:18
Anton
Hallo EffHa, Hallo Leute,
erstmal Danke für den Vorschlag.
Meine Güte, sieht das komplex aus...ich habe den Code getestet...
Das mit der Schleife kriege ich nicht hin.
Geht das nicht einfacher?
Kann mir da mal Jemand weiterhelfen?
Ich will ja nur die Stückzahl der jeweiligen Einträge.
Nochmal Dank an alle Beteiligten.
Servus,
Anton
AW: Dateien eines Verzeichnis zählen -Liste-
05.06.2005 20:11:53
MichaV
Hi,
in Tabelle 2 stehen zwar keine Daten und ich kann auch nicht nachvollziehen, warum es im 1. Beispiel 11 sein sollen, aber dieses Makro hier schreibt Dir die Anzahl der gefundenen Dateien in Spalte B:


      
Sub Dateien_zählen()
Dim Ende As Long
Dim i As Long
Dim Pfad As String
Ende = Sheets("Tabelle1").Range("A65536").End(xlUp).Row
Pfad = Sheets("Tabelle1").Range("d1").Value
For i = 2 To Ende
  With Application.FileSearch
    .NewSearch
    .LookIn = Pfad
    .SearchSubFolders = True
    .Filename = Sheets("Tabelle1").Cells(i, 1).Value
    .Execute
    Sheets("Tabelle1").Cells(i, 2).Value = .FoundFiles.Count
  End With
Next
  
End Sub 


Gruß- Micha
PS: Rückmeldung wäre nett.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige