PDA

View Full Version : ذخیره کردن آیتمهای listview



allaf2
جمعه 29 مهر 1390, 16:01 عصر
درود.
من میخوام آیتم های listview رو ذخیره کنم توی یک txt فایل به صورتی که محتویات قبلی فایل txt حذف نشه.
لطفا کمک



Dim Itmss As String
Dim M As Integer
Open App.Path & "\File.txt" For Output As #3
For M = 1 To LV1.ListItems.Count
Itmss = LV1.ListItems(M).Text
Print #3, Itmss
Next M
Close #3

kitcat_m18
جمعه 29 مهر 1390, 16:26 عصر
سلام،

به جاي متد OutPut از متد Append استفاده کن.

موفق باشي :چشمک: