۲۵-دى-۱۳۸۷, ۱۳:۳۸:۲۰
۲۵-دى-۱۳۸۷, ۱۳:۵۵:۵۲
کد:
Dim a As String
Open App.Path & "\textfile.txt" For Input As #1
Do Until EOF(1) = True
Line Input #1, a
list1.additem a
Loop
Close #1برای آشنا شدن بهتره ebook کار با فايلها در ويژوال بيسيک رو بخونی
سرچ کنی زياد پيدا ميکنی