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
260
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
Tukalaa kuumuutta
Tietäisitpä vaan kuinka kuumana olen käynyt viime päivät. Eikä johdu helteestä, vaan sinusta. Mitäköhän taikoja olet teh433007Ensi kesänä
Näin kesän viimeisenä minuutteina ajattelen sinua. Olisiko seuraava kesä "meidän" kesä? Tänä vuonna ei onnistuttu, mutta612961- 422367
- 311863
Okei, myönnetään,
Oisit sä saanut ottaa ne housutkin pois, mutta ehkä joskus jossain toisaalla. 😘251719Anne Kukkohovin karmeat velat ovat Suomessa.
Lähtikö se siksi pois Suomesta ? Et on noin kar? mean suuret velat naisella olemassa721674- 481586
Mihin hävisi
Mihin hävisi asiallinen keskustelu tositapahtumista, vai pitikö jonkin Hannulle kateellisen näyttää typeryytensä771275- 371247
- 791070