ListBox İçeriğini Kaydetmek !
List Box İçeriğini Baştan Sona Kaydetmek !
İlk Önce Aşağıdaki Kodu Bir Modülün İçine Yazınız !
_________________________________________________
Public Sub listk(FileName As String, List As ListBox)
On Error Resume Next
Dim lngSave As Long
If FileName$ = "" Then Exit Sub
Open FileName$ For Output As #1
For lngSave& = 0 To List.ListCount - 1
Print #1, List.List(lngSave&)
Next lngSave&
Close #1
End Sub
_________________________________________________
Artık Fonksiyonumuzu Kullanabiliriz
Call listk("savembenim.txt", List1)
Bu kod ile List1 in içeriğini programla aynı klasor içinde savembenim.txt klasörüne kaydediyoruz.
Anladınız sanırım.
