DevilHaker
09-12-2005, 00:51
Нужна помощь!!!
Рассказываю ситуацию: На 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 файл, которого я выбрал название.
Как написать правильно код, а если я неправильно вообще мыслю, то напишите как можно. Очень прошу, помогите потому что я самоучка!!!!
Рассказываю ситуацию: На 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 файл, которого я выбрал название.
Как написать правильно код, а если я неправильно вообще мыслю, то напишите как можно. Очень прошу, помогите потому что я самоучка!!!!