Keskustelu: Ohjelmointikysymykset: VB6: Miten saa alihakemistot?

Cc [15.11.2004 21:06:54]

Onko mahdollista saada minun ohjelmani joka listaa kansion sisällön listaamaan myös alihakemistot? Jos se on mahdollista niin miten voisin toteuttaa sen että optionssista voi valita haluaako listata alihakemistot vai ei? Minulla on 3 Formia 3 Command buttonia, FileListBox, DirListBox, DriveListBox ja ListBox. (HUOM: En halua valmista koodia vain pientä opastusta oikeaan suuntaan!!!)

Private Sub Form_Load()
If Dir("C:\Listatut", vbDirectory) = "" Then
  MkDir "C:\Listatut"
End If
End Sub

Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End Sub

Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub

Public Sub Command2_click()
If Dir("C:\Listatut", vbDirectory) = "" Then
  MkDir "C:\Listatut"
End If
Open "C:\Listatut\Lista.txt" For Append As #1
Print #1, "Millon listattiin:"
Print #1, FileDateTime("C:\Listatut\Lista.txt")
Print #1, "Kansio mistä listattiin:"
Print #1, Dir1.Path
Print #1, "Tiedostot mitkä listattiin:"
For i = 0 To File1.ListCount
Print #1, File1.List(i)
Next i
Print #1,
Print #1,
Close #1
päivä$ = FileDateTime("C:\Listatut\Lista.txt")
List1.AddItem päivä$
lista$ = Dir1.Path
List1.AddItem lista$
End Sub

Private Sub Command1_Click()
    Form2.Show
End Sub

Private Sub Command3_click()
    Form3.Show
End Sub

Blaze [15.11.2004 21:16:46]

https://www.ohjelmointiputka.net/koodivinkit/23528-vb6-alihakemistojen-etsiminen

Metabolix [15.11.2004 21:44:53]

Katso myös Putkan oiva Rekursio-opas, jonka esimerkeistä löytyy VB:lle kansionlistausesimerkki.

Cc [15.11.2004 22:12:20]

En kyllä oikein onnistunnut soveltamaan tuota Blazen esimerkkiä mutta pitää lukaista tuo Rekursio opas jahka kerkiän.

Cc [15.11.2004 23:46:29]

Joo tutustui uuteen ongelmaa tästä en todellakaan selviä omin neuvoin kaveri pyysi että se tallettaisi tuon lista.txt siihen kansioo mistä on listattu tiedostot...
Ja se alihakemistojen listaus kun en sitä ymmärrä vaikka yritän... Toivoisin paljon paljon apua kun olen pikkuisen newb... Koodi on sama vanha...

Cc [24.11.2004 23:14:36]

Taas tästä aiheesta kun en vieläkään ole päässyt pidemmälle
Paitsi nytten koodi listaa jo alihakemiston nimen mutta tärkein uupuu nimittäin se ei suostu listaamaan tiedostoja.
voisiko joku auttaa??

Private Sub Form_Load()
If Dir("C:\Listatut", vbDirectory) = "" Then
  MkDir "C:\Listatut"
End If
End Sub


Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End Sub


Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub


Public Sub Command2_click()
If Dir("C:\Listatut", vbDirectory) = "" Then
  MkDir "C:\Listatut"
End If
Open "C:\Listatut\Lista.txt" For Append As #1
Print #1, "Millon listattiin:"
Print #1, FileDateTime("C:\Listatut\Lista.txt")
Print #1, "Kansio mistä listattiin:"
Print #1, Dir1.Path
Print #1, "Alikansio(t) mistä listattiin:"
For i = 0 To Dir1.ListCount
Print #1, Dir1.List(i)
Next i
Print #1, "Tiedostot mitkä listattiin:"
For i = 0 To File1.ListCount
Print #1, File1.List(i)
Next i
Print #1,
Print #1,
Close #1
päivä$ = FileDateTime("C:\Listatut\Lista.txt")
List1.AddItem päivä$
lista$ = Dir1.Path
List1.AddItem lista$
End Sub

Formilla on 1 Command button, FileListBox, DirListBox, DriveListBox ja ListBox.

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen

Haku

Tehtävät

Kilpailu