01-12-20, 01:22 AM
(01-12-20, 01:14 AM)mir2 كتب : من الخطا الذي ظهر لك يبدو انك تختدم فيجوال ستوديو قديم (اعتقد 2008 او ما قبله)
عدلت لك الكود الذي تستخدمه سابقا
كود :
Dim SW As New StreamWriter("yourfile.txt")
SW.Write("list_urls = [")
For i = 0 To ListBox1.Items.Count - 1
SW.Write("'" & ListBox1.Items(i) & "'")
If i <> ListBox1.Items.Count - 1 Then SW.WriteLine(",")
Next
SW.Write("]")
SW.Close()
تسلم إيدك...
تمام أخى هذا المطلوب بالحرف...
جزاك الله كل الخيرات أخى..
