PDA

Vollständige Version anzeigen : datein zählen


2354
22.10.2003, 12:10
hallo,

wie kann ich per klick auf einen button die datein unter c:\temp zählen lassen? hab versucht mit count etwas zu basteln, doch ohne erfolg...

danke!
jens

Nouba
22.10.2003, 12:23
Hallo,

hier wäre eine kleine Funktion
Function ZaehleDateienInOrdner(ByVal vOrdner As String) As Long
' vOrdner enthält eine Pfadangabe auf einen Ordner, die mit \ endet
' z.B.: MsgBox ZaehleDateienInOrdner("c:\tmp\")

Dim strTmpDatei As String

strTmpDatei = Dir(vOrdner)

Do Until strTmpDatei = vbNullString
ZaehleDateienInOrdner = ZaehleDateienInOrdner + 1
strTmpDatei = Dir
Loop
End Function