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!
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!
Vastaukset 1
Vanhimmat
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