Text Olarak Verileri Kaydetmek | VB

Verilerimizi metin olarak kaydedeceğiz,bunun içinde listboxda bulunan verilerimizi kaydedeceğiz

aşağıdaki kodları bir module içine yazmanız gerekmektedir.

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 Çağırabilirsiniz

Call listk("yalanmismeger.txt", List1)

Bu kod ile List1 in içeriğini programla aynı klasor içinde yalanmismeger.txt klasörüne kaydediyoruz.