Kirjautuminen
Tehtävät
Kilpailu
Alkuerät ovat ohi.
Eli pitäisi saada luttua tietyn kansion (esim c:\testi ) tiedostot arrayhyn.
Kuinka tämä hoituu?
kielenä on Visual Basic 6.0.
Hakemiston tiedostojen hakeminen onnistuu Dir-funktiolla (http://vb.ohjelmointiputka.net/?Dir). Sen jälkeen tiedostojen laittaminen taulukkoon onkin helppoa:
'1000 on hakemiston tiedostojen maksimimäärä
Dim tiedostot(1000) As String
Dim tied As String, i As Integer
'hakemisto, josta tiedostot haetaan
tied = Dir("c:\testi\")
'taulukon indeksien laskuri
i = 0
'niin kauan kuin tied ei ole tyhjä...
Do While tied <> ""
'...lisätään se taulukkoon...
tiedostot(i) = tied
'...haetaan hakemiston seuraava tiedosto...
tied = Dir
'...ja kasvatetaan indeksilaskuria yhdellä
i = i + 1
LoopAihe on jo aika vanha, joten et voi enää vastata siihen.