03-12-19, 07:19 AM
Dim saveTo As New SaveFileDialog
saveTo.Filter = "Text files (*.txt)|*.txt "
If saveTo.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim W As IO.StreamWriter
Dim i As Integer
W = New IO.StreamWriter(saveTo.FileName, True)
For i = 0 To ListBox2.Items.Count - 1
W.WriteLine(ListBox2.Items.Item(i))
Next
W.Close()
End If
MessageBox.Show("all saved!")
saveTo.Filter = "Text files (*.txt)|*.txt "
If saveTo.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim W As IO.StreamWriter
Dim i As Integer
W = New IO.StreamWriter(saveTo.FileName, True)
For i = 0 To ListBox2.Items.Count - 1
W.WriteLine(ListBox2.Items.Item(i))
Next
W.Close()
End If
MessageBox.Show("all saved!")
لا اله الا الله محمد رسول الله أستغفر الله العظيم واتوب اليه سبحان الله وبحمده سبحان الله العظيم
