Moi! Tarvis vähän apua pieneen ohjelmaan; Millä käskyillä VB 6.0:n saisi listaamaan taulukkomuuttujaan tietyn hakemiston kaikki tiedostot. Eli ottamaan selvää pelkän hakemistopolun avulla että onko hakemistossa tiedostoja, montako niitä on, ja mitkä ovat niiden nimet. Eli periaatteessa tekemään "dir" -komennon.
Tarkoitan että jos määrittelen tietyn hakemiston jossa olisi vaikka kolme tiedostoa 1.txt, 2.txt ja 3.txt, saisin hakemiston tiedostoista automaattisesti muuttujan a[] = "1.txt", "2.txt", "3.txt.
Kiitän!
Hakemistojen ja tiedostojen käsittely
snowwy
1
246
Vastaukset
- Orwell
Edellyttäen, että ymmärsin tarpeesi oikein, niin ao. koodin pätkän pitäisi toimia.
Dim fso As Object 'FileSystemObject-objekti
Dim fol As Object 'Kansio
Dim f As Object 'Tiedosto
Dim lCount, i As Long
Dim sFiles() As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set fol = fso.GetFolder([POLKU])
lCount = fol.Files.Count
i = 0
If lCount > 0 Then
ReDim sFiles(lCount - 1)
For Each f In fol.Files
sFiles(i) = f.Name
i = i 1
Next
End If
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 1817697
Klaukkalan onnettomuus 4.4
Klaukkalassa oli tänään se kolmen nuoren naisen onnettomuus, onko kellään mitään tietoa mitä kävi tai ketä onnettomuudes923776- 672569
Kolari Klaukkala
Kaksi teinityttö kuoli. Vastaantulijoille ei käynyt mitenkään. Mikä auto ja malli telineillä oli entä se toinen auto? Se721609Ukraina ja Zelenskyn ylläpitämä sota tuhoaa Euroopan, ei Venäjä
Mutta tätä ei YLE eikä Helsingin Sanomat kerto.3781539Ooo! Kaija Koo saa kesämökille öky-rempan:jättimäinen terde, poreallas... Katso ennen-jälkeen kuvat!
Wow, nyt on Kaija Koon mökkipihalla kyllä iso muutos! Miltä näyttää, haluaisitko omalle mökillesi vaikkapa samanlaisen l201436- 621430
Toivoisin, että lähentyisit kanssani
Tänään koin, että välillämme oli enemmän. Kummatkin katsoivat pidempään kuin tavallisesti toista silmiin. En tiedä mistä171101Olisinpa jo siellä, otatkohan minut vastaan
Olisitpa lähelläni ja antaisit minun maalata sinulle kuvaa siitä kaikesta ikävästä, tuskasta, epävarmuudesta ja mieleni791050Kevyt on olo
Tiedättekö, että olo kevenee kummasti, kun päästää turhista asioista tai ihmisistä irti! Tämä on hyvä näin <3841048