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
279
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
Vain vasemmistolaiset rakennemuutokset pelastavat Suomen
Kansaa on ankeutettu viimeiset 30+ vuotta porvarillisella minäminä-talouspolitiikalla, jossa tavalliselta kansalta on ot273425Persut huutaa taas: "kato! muslimi!"
Persut on lyhyessä ajassa ajaneet läpi kaksi työntekijöiden oikeuksien heikennystä, joita se on aiemmin vastustanut. Pe132828- 282504
- 421927
- 531779
- 151760
- 451626
KL: Mari Hynynen avoimena - Jouni-rakkaan ja Joel-pojan välit ovat nämä!
Mari Hynynen (ent. Perankoski) on naimisissa Jouni Hynysen kanssa. Marilla on edellisestä liitosta yksi lapsi, Joel Vola101468- 541444
Missikohu edustaa nykyajan monimuotoisuutta
Puolesta vai vastaan, saako esittää pilkkaavasti jonkun toisen ihmisen syntyperäisiä ominaisuuksia? Kadulla vastaan tule2641164