Parsi Coders

نسخه‌ی کامل: ذخیره و فرخوانی فایل تکست
شما در حال مشاهده نسخه آرشیو هستید. برای مشاهده نسخه کامل کلیک کنید.
درود
بنده یه سورس ضمیمه کردم
میخوستم یکی راهنمایی کنه که چطور یه فایل txt رو از داخل هارد در لیست باکس فراخوانی کنم یا برعکس
البته با commondialog
درود
یعنی هیچکی نمیتونه کمک کنه ؟
درود
تو فرم سمپل هست بگردید :
اینم یک روش برای خواندن فایل txt

کد:
Dim ff As Long
Dim line As String
ff = FreeFile
Open App.Path & "\list.txt" For Input As #ff
Do While Not EOF(ff)
      Line Input #ff, line
      'make sure we're not adding a blank line
      If Len(line) Then List1.AddItem line
Loop
Close #ff
سپاسگزارم دادا
دکمه سپاس پیدا نکردم اما اعتبار دادم
بازم سپاسگزار