[الحائطي]

السلام عليكم

الله يجزاكم خير ارجو التعديل على هذا الكود بحيث يحفظ لي لامحدود
الكود فقط يحفظ 100 سجل المطلوب حفظ لا محدود
وجزاكم الله عني خير

PHP كود :

On Error GoTo Error
Open App.Path & "\buffer" For Output As #1
For i = 0 To 100
List1.ListIndex = i
Write #1, List1.Text
Next i
Error:
Close #1 


[عبدالله الصافي]

حدد متغير من نوع integer وأجعل قيمته بعدد السجلات التي تريدها عند أجراء العملية وأكتب أسم المتغير مكان الرقم 100