دستور نوشتن فايل*******'
Open "C:\Sample.TXT" For OutPut As #1

Print #1,"Amir"

Close #1

دستور بازكردن فايل*******'

Open "C:\Sample.Txt" For Input As #1

(Do While Not Eof(1

Input #1,A

 List1.AddItem A

Loop

Close #1

 




💬 نظرات کاربران
💬ثبت نام کاربران
💬ورود کاربران