[Vovchick1]

Код:

Private Sub Command1_Click()
'=======================================
Dim F, T As String
'=======================================
Text1.Text = "" 'очищаем Text1 от данных
F = Dir(Combo1.Text & ".txt") 'Ишем файл с названием выбранным в Combo1 и расширением "txt"
If F <> "" Then
'если нашли то открываем
Open F For Input As #1
Do While Not EOF(1)
Line Input #1, T 'читаем строку в файле
Text1.Text = Text1.Text & T & Chr(13) & Chr(10) 'записываем строку в Text1 с переводом на следующую строку
Loop
Close #1 'когда файл кончился закрываем его
End If
End Sub

Примерно так!!!

[DevilHaker]

Большое спасибо за ответ!!!

[DevilHaker]

Ой извините но я не понял этот рядок:
Open F For Input As #1
Что такое #1 и почему у меня этот рядок есть ошибочным?

[Vovchick1]

#1 - это номер открытого файла
У тебя он правельно написан(просто я так привык)!!!