Сообщество Чайников

Вопрос

Как загрузить в TextBox файл через Common Dialog?

Ответ

dim strTemp as string
dim strAll as string

'Покажем окно Общего диалога
CD.showopen
'Откроем файл для ввода с номером 1
open CD.filename for input as #1
'Выполняем цикл, пока не достигнем конца файла №1
do while not eof(1)
'Считаем во временную переменную следующую строку.
Line Input #1, strTemp
'Присоединим временную переменную к всей строке. В конце добавим
'символ новой строки.
strAll= strAll & strTemp & vbcrlf
loop

'Обрежем два последних символа (они являются не нужными переносами
'строки)
strAll=left (strall,len(strall)-2
'Закроем файл
Close #1

Артем Кривокрисенко

Можно еще проще:

Text1.Text = Input(LOF(1), #1)

Дмитрий Данелия