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

مرسی دادا
دکمه تشکر پیدا نکردم اما اعتبار دادم
بازم ممنون

aghamali

aghamali

Amin_Mansouri

aghamali