Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


Dateianzahl im Verzeichnis mit Kriterium bestimmen
#1
Hallo liebe Leute,
Mit folgendem Programmcode lässt sich die Anzahl der Dateien im Verzeichnis Test auslesen und bestimmen:

Sub Dateianzahl()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
MsgBox fso.GetFolder("C:\Test").Files.Count
Set fso = Nothing
End Sub

Ich suche nun nach einer Möglichkeit nur Dateien zu zählen, die
in ihrem Namen ein bestimmtes Merkmal enthalten, also z.B. die ein XYZ in ihrem Namen
enthalten. Hat jemand von euch eine Idee wie so etwas gehen könnte?
to top
#2
Hallo Kathrin,

mit der klassischen Dir-Funktion z.B. so:

Code:
Sub Dateianzahl()
  Dim lngZ As Long
  Dim strErgebnis As String
  Dim strPfad As String
  Dim strSuche As String
  
  strPfad = "C:\test\"
  strSuche = "*xyz*"
  
  strErgebnis = Dir(strPfad & strSuche)
  Do While strErgebnis <> ""
    lngZ = lngZ + 1
    strErgebnis = Dir
  Loop
  
  MsgBox lngZ
End Sub

Gruß Uwe
to top
#3
Hallo Kathrin,

da wirst Du wohl oder übel eine Schleife über die enthaltenen Dateien legen müssen und einen Counter hochzählen ...
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
to top
#4
Hallo Kathrin,

geht natürlich auch mit der von Dir begonnenen Verwendung des fso :-)

Code:
Sub CountMP3()
'Verweis auf Windows Script Host Object Model setzen!
Dim fso As Object
Dim objFolder As Folder
Dim objFile As File
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFolder = fso.GetFolder("D:\Test")
For Each objFile In objFolder.Files
  If LCase$(fso.GetExtensionName(objFile)) = "mp3" Then iCnt = iCnt + 1
Next
MsgBox iCnt & " mp3-Dateien gefunden!"
End Sub
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  SVERWEIS Tabellenüberschriften auslesen mit Kriterium soky001 13 159 05.12.2016, 13:15
Letzter Beitrag: Jockel
  In Zelle soll Wert aus Zeile wiedergegeben der Kriterium erfüllt sebster85 1 43 28.11.2016, 11:27
Letzter Beitrag: Kuwer
  Berechnungsfelder bestimmen Cirango 2 49 24.11.2016, 11:00
Letzter Beitrag: Cirango
  Maximalwert mit Kriterium suchen Baltic86 4 166 23.09.2016, 06:23
Letzter Beitrag: Baltic86
  Feldindizes bestimmen, welche die nächste kleinere bzw. größere Zahl beinhalten Lupy 12 514 11.08.2016, 17:52
Letzter Beitrag: Lupy
  2 Tabellen Verknüpfen mit kriterium tommy22 13 450 03.08.2016, 10:30
Letzter Beitrag: nixdaacher
  geeignete Formel für Produkt mit Kriterium Armin G. 9 327 31.07.2016, 10:06
Letzter Beitrag: RPP63
  Duplikate nach Kriterium einreihen Telematix 17 921 21.07.2016, 16:01
Letzter Beitrag: Telematix
  Summe nach Kriterium Moppel 27 1.144 11.07.2016, 17:46
Letzter Beitrag: schauan
  Positionen von Leerzeichen bestimmen VBATartar 3 272 01.07.2016, 11:05
Letzter Beitrag: VBATartar

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste