End Sub. Private Sub Drive1_Change ( )

‘ смена диска

Private Sub Drive1_Change ()

‘ В случае смены диска может возникнуть ошибка (выбор

‘ дисковода в том случае, если в нем нет диска). Для

‘ обработки этой ошибки используется переход

‘ к метке drive_error (смотри ниже).

On Error GoTo drive_error

Dir1.Path = Drive1.Drive + “\”

File1.Path = Drive1.Drive

Text1.Text = “ “

‘ обработка ошибок

drive_error:

‘ если возникла ошибка, то выбирается диск,

‘ выбранный раньше

Drive1.Drive = Dir1.Path

End Sub

‘ щелчок в поле списка файлов

Private Sub File1_Click ()

‘ Событие Click для File1 происходит тогда, когда

‘ произвелся щелчок на каком-либо файле в поле File1.

‘ Если файлов в поле нет, то события Click не происходит,

‘ т.е. проверять то, что имя файла File1.FileName не равно

‘ “ “ при открытии файла не нужно.

If Len (File1.Path) <> 3 Then

' если количество символов в File1.Path = 3,

' то File1.Path - это корень диска (например " с:\").

filepath = File1.Path + "\“+ File1.FileName

Else: filepath = File1.Path + File1.FileName

End If

Textl.Text = "" ' удаление из поля вывода содержимого предыдущего файла

Open filepath For Input As #1 ' открытие файла

Textl.Text = Input(LOF(l), 1)

' В этой программе используется способ чтения текстового файла, при котором считывается сразу весь файл. Он выполняется намного быстрее, чем построчный, который использовался в программе "Чтение файла".

' LOF(l)- длина файла, находящегося по адресу filepath.

Close #1 ' закрытие файла

End Sub

' инициализация формы

Private Sub Form_Initialize()

Drive1.Drive = "с"

File1.Pattern = "*.txt"

Text1.Text = ""