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
294
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
Lindtman I vasemmistohallitus aloittaa viimein Suomen kuntoon laittamisen
Tässä nyt on 3 vuotta seurattu irvokasta kärsimysnäytelmää nimeltään "valtion budjetin tasapainotus by äärioikeisto", ja1742618Missä viipyy persujen lupaama euron bensa?
En edes muista milloin bensapumpussa olisi ollut ykkösellä alkava litrahinta. Missä siis viipyy persujen lupaama euron b1482387Kirje, PellePelottomalle.
Tärkeää olisi luoda ystävyys, että se, jota rakastaa, on samalla paras ystävä ja luotettavin, jolle voi ja uskaltaa luot1021082- 64901
- 65849
Mistä löytyy naisseuraa sinkkumiehelle?
Kertokaapas kokeneemmat mistä löytyis naisseuraa sinkulle. Ihan ois eukko nyt tosissaan hakusessa. Tanssipaikat kun on a19747Martinan hevoset.
Tämä todella kaunis ja ketterä harmaa hevonen jolla monet kilpailut voitetaan ei ole Martinan.Tytär ratsastaa sillä tait220734Persut jakavat tekoälyllä tehtyjä kuvia maahanmuuttajista somessa
Eivät mainitse, että ovat tekoälyllä tehtyjä. Eivät näe asiassa mitään ongelmaa. Valehtelijapuolue taas vauhdissa. Unka274727Voi teitä naisia
Suudeltiin ja nukuttiin toisissamme kiinni mutta pillua ei tullu, ei edes aamulla. t.38vmies86720Hyvä meininki
TTP:ssa väkeä tosi runsaasti paikalla. Hyvää ruokaa jälleen ja munkit ja sima erinomaista. Kiitos yrittäjälle! Hieno Vap22678