Вопрос по Basic - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - Вопрос по Basic (http://forum.oszone.net/showthread.php?t=57725)

Вопрос по Basic

Нужна помощь!!!
Рассказываю ситуацию: На Form1 я закинул CommandButton, TextBox и ComboBox и в ComboBox находятся все мои названия дисков. При выборе названия диска в ComboBox мне надо чтобы открывался текстовой файл в TextBox с перечнем программ на диске (это мой TXT файл в который я вписал такие программы, какие есть на диске). Я написал вот так:

Private Sub Command1_Click()
If Combo1 = РеаниматорXP Then
z = FreeFile
Open " РеаниматорXP.txt" For Input As z
Text2.Text = Input(LOF(z), z)
Close z
Else
z = FreeFile
Open "Золотой_софт_2003.txt" For Input As z
Text2.Text = Input(LOF(z), z)
Close z
End If
End Sub

Но при таком написании у меня проверяет или есть вообще в ComboBox РеаниматорXP и всегда выводит только программы РеаниматорXP. А мне надо чтобы при выборе в ComboBox названия диска открывало тот TXT файл, которого я выбрал название.
Как написать правильно код, а если я неправильно вообще мыслю, то напишите как можно. Очень прошу, помогите потому что я самоучка!!!!

Код:

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

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

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

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

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