مشکل در OpenFileDialog

[Haj MilaD]

درود
مشکلی که دارم اینه کد رو نوشتم تا برنامه با زدن دکمه Load لیست تکست از سیستم رو به List1 بریزه ولی اررور میده
Microsoft Commondialog هم اضافه کردم

http://up.tonel.org/images/cyzqr5wvy8g7r42992jh.png (http://up.tonel.org/)

اینم کد...

Private Sub Command1_Click(Index As Integer)
CommonDialog1.DialogTitle = "Tonel.Org'"
CommonDialog1.Filter = "text files (*.txt_|*.txt"
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, s
List1.AddItem
Loop
Close #1
End Sub

[samiasoft]

سلام

اینطور باید بنویسید :

CommonDialog1.DialogTitle = "Tonel.Org'"
CommonDialog1.Filter = "Text File *.txt|*.txt"
CommonDialog1.ShowOpen
If CommonDialog1.FileName > "" Then
With List1
Dim sCL$
.Clear
Open CommonDialog1.FileName For Input As #1
Do Until EOF(1)
Line Input #1, sCL$
.AddItem sCL$
Loop
Close #1
End With
End If