Keskustelu: Ohjelmointikysymykset: VB6: tiedostojen laskeminen

HEI

Mitenkä saadaan selville tietyssä kansiossa olevien tiedostojen lukumäärä? Tiedostotyypit pitäisi voida erottaa.

Esim. "montako .txt -tiedostoa C:\omakansio sisältää?"

Kieli olisi VisualBasic

Ehkä helpoin tapa on käyttää Dir-funktiota, käydä tiedostolista läpi ja laskea tiedostojen määrä. Tämä tapahtuu jokseenkin seuraavaan tapaan:

'tiedostomäärän haku Dir-funktiolla
Dim tied As String, maara As Integer
tied = Dir("c:\omahakemisto\*.txt")
Do While tied <> ""
    maara = maara + 1
    tied = Dir
Loop
MsgBox "Tiedostoja hakemistossa: " & maara

Jos haluaa oikein ekspertiksi ruveta niin voihan tuon hoitaa API:llakin (mihin en tosin tässä tapauksessa näe mitään syytä ;-)
Jokatapauksessa funktiot olisivat FindFirstFile, FindNextFile ja olikos se nyt FindClose..
Em. tavalla saa kätevästi tiedostojen attribuutit yms härvelit myöskin mukaan..

Kiitokset experteille!