End Sub. Везде имеется в виду относительная адресация

Везде имеется в виду относительная адресация. (Загружаете проект вы из текущего каталога).

Внесите все эти изменения в свой проект и опробуйте его работу.

Часть 2

При выполнении файловых операций возможны ошибки; для обработки ошибок выполнения файловых операций нужно использовать инструкцию OnError.

1. Программа «Чтение файла» выводит содержимое текстового файла в поле Text. Форма программы приведена на рисунке 4.1.

Рис.4.1. Форма программы Чтение файла

Для того, чтобы в файле, который открывается для просмотра, корректно распознавались знаки перехода к следующей строке и текст не выводился одной строкой, необходимо свойству MultiLine поля Text2 присвоить значение True. Это необходимо сделать до того, как программа будет запущена, т.к. свойство MultiLine во время работы программы доступно только для чтения. Также свойству ScrollBars необходимо присвоить значение 2 - Vertical, тогда у Text2 появится полоса вертикальной прокрутки.

Dim FileName As String *путь к открываемому файлу

*щелчок на флаге «Только чтение»

Private Sub Check1_Click()

If Check1.Value =1 Then

Text2. Locked= True * флаг «Только чтение» установлен

Command2. Enabled= False

Else

Text2. Locked= False * флаг «Только чтение» снят

Command2. Enabled= True

End if

EndSub

* щелчок на кнопке «Открыть»

Private Sub Commandl_Click()

Dim current_string *буфер чтения

FileName=Text1.Text

Text2.Text=” “ *удаление содержимого

*предыдущего файла

If Dir (FileName)= “ “ Or FileName=” “ Or Len (FileName)<=3 Then

* файл не найден

FileName = “ ”

Call MsgBox(“Ошибка доступа к файлу.”, vbOKOnly, “Чтение_ файла”)