لود کردن فایل تکست

[saeedhord]

با سلام .
چطوری یه فایل تکست رو رویه یه list box لود کنم ؟

[VG1234]

به نام خدا
===========

ابتدا یک فایل تکست درست کن ، سپس توی برنامه مت یک listbox و یک commandbutton بگذار .
درون command Button بنویس .
توجه داشته باشید من آدرس فایل تکستم درون درایو F هست ، شما میتونید آدرس را عوض کنید .
"F:\a.txt"
یا حتی میتونید بنویسی
App.Path+"/name.txt"
تا فایل در مسیر خود برنامه را باز کند.




Dim s As String
Dim X As String
s = ""
X = ""
Open "F:\a.txt" For Input As #1
Do While Not EOF(1)
Input #1, s
X = X + s
List1.AddItem X
Loop
Close #1