Kan man räkna antal filer av en viss filtyp (t ex .bmp) i en mapp och lagra i en variabel? Hur?

Det gör du enklast med en FileListBox med Pattern = *.bmp
FileListBoxen styrs med DirListBox.

antalBmp = File1.ListCount

<code>
Dim FileCount As Long
Dim Files As String

Files = Dir("c:\*.txt")
Do Until Files = ""
FileCount = FileCount + 1
Files = Dir
Loop

MsgBox "Antal filer: " & FileCount
</code>