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
Question Datei per Makro im gleichen Verzeichnis speichern o0Julia0o 8 162 18.02.2017, 16:33
Letzter Beitrag: o0Julia0o
  Fenstergrösse und Position bestimmen Okrian 1 49 15.02.2017, 19:10
Letzter Beitrag: Gast 123
  Bedingte Formatierung funktioniert, aber welches Kriterium ist erfüllt? Calafati 11 120 14.02.2017, 10:10
Letzter Beitrag: lupo1
  Löschen von Zeilen mit bestimmen Wortsequenzen in Excel Macro rums 12 104 06.02.2017, 13:32
Letzter Beitrag: snb
  Summewenns mit kleiner und größer Kriterium Hecklinger 4 121 31.01.2017, 13:24
Letzter Beitrag: Hecklinger
  Zeilen vergleichen & Teilmengen bestimmen simon_onair 1 70 20.01.2017, 14:03
Letzter Beitrag: atilla
  Zeilenhöhe bestimmen Nukleus 4 85 12.01.2017, 16:47
Letzter Beitrag: Nukleus
  SVERWEIS Tabellenüberschriften auslesen mit Kriterium soky001 13 353 05.12.2016, 13:15
Letzter Beitrag: Jockel
  In Zelle soll Wert aus Zeile wiedergegeben der Kriterium erfüllt sebster85 1 130 28.11.2016, 11:27
Letzter Beitrag: Kuwer
  Berechnungsfelder bestimmen Cirango 2 115 24.11.2016, 11:00
Letzter Beitrag: Cirango

Gehe zu:


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