Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit: VB6: Tiedoston hallinnan listaus

Cc [13.11.2004 22:16:19]

#

Tämä koodi listaa kaikki tiedostot (lukuunottamatta kansioita) erilliseen teksti tiedostoon jonka ohjelma tekee C:Listatut kansioon.
Itse formille tarvitaan DriveListBox (Drive1), DirListBox(Dir1), FileListbox(File1), ja yksi command button (Command1).

Private Sub Form_Load()  'Tehdään tarvittava kansio
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

Private Sub Command1_Click() 'Kirjoitetaan mitä teksti tiedostoon että mitä kansio sisältää
Open "C:\Listatut\Lista.txt" For Append As #1
Print #1, "Tiedostot:"
For i = 0 To File1.ListCount   'silmukka nollasta rivien määrään
Print #1, File1.List(i)   'tallennetaan kohta i
Next i
End Sub

Vastaus

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

Tietoa sivustosta