List Box İceriğini Baştan Sona Kaydetmek !
İlk Once Aşağıdaki Kodu Bir Modulun İcine 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 iceriğini programla aynı klasor icinde savembenim.txt klasorune kaydediyoruz.
__________________