Keskustelu: Koodit: VB6: Tiedoston hallinnan listaus

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