Основные свойства Списка каталогов.

События Списка каталогов

Для того. чтобы изменение в списке каталогов отразилось списке файлов, можно использовать процедуру:

Private Sub dirBox_ Change()

filFile1.Path = dirBox.Path

End Sub

При этом для списка каталогов Path указывает выбранный каталог, а для списка файлов - каталог, файлы которого отражаются в списке.

DriveListBox- список дисков.

В отличии от предыдущих элементов список дисков является выпадающим. Список дисков отображает текущий диск, а когда пользователь щелкает на кнопке со стрелкой, выводит список всех доступных дисков.

Основные свойства Списка дисков

События Списка дисков

Основным свойством является свойство Drive , которое используется для получения и установки текущего диска. Это свойство используется для синхронизации работы списка дисков и списка каталогов. Например,

Private Sub drvBox_ Change()

dirBox.Path = drvBox. Drive

Ch Drive drvBox. Drive ‘ Если нужно изменить текущий диск ОС

End Sub

Файлы последовательного доступа

Используются когда:

а) редко вносятся изменения

б) информация в файле обрабатывается от начала до конца

в) если нужно добавлять информацию в конец файла.

Для совершения операции чтения или записи с файлом его нужно открыть командой Open. После Open следует имя файла, строковая переменная или строка в двойных кавычках. Если файл не текущем каталоге, нужно указать путь к нему.

Запись информации в файл:

Open “имя файла” for Output as # 1

# 1 - это идентификатор файла - число от 1 до 255 с символом #. Максимальное число одновременно открытых файлов определяются параметром в Config.sys.

По команде Open резервируется файловый буфер в памяти компьютера. По мере заполнения буфера активируются соответствующий диск и весь блок информации посылается непрерывным потоком на диск (количество будет устанавливаться в Config.sys). После окончания работы с файлом он закрывается командой Close # идентификатор файла. Команда Close сбрасывает информацию на диск и очищает буфер. Для сброса содержимого буфера на диск (в критических ситуациях) используется команда Reset. Для ввода информации в файл можно использовать команду Print #

“ Запись в файл

Open “File 1” For Output As #1

Print #1, “1 2 3 4 5 ” или Print #1, txtDisplay.Text

Close #1

Если в текущем каталоге есть файл с таким именем, то этой командой он будет уничтожен.

Close без параметров закрывает все файлы.

Для определения размера открытого файла можно использовать команду LOF (идентификатор файла)

Open “File 1” For Output As #1

Print #1, “1 2 3 4 5 ”

Print LOF(1)

Вместо Print можно использовать Write # идентификатор файла, список переменных.

Чтение из файла

Open ”имя файла” For Input As # идентификатор файла

Задается свободный идентификатор, который в данный момент не используется в программе. Или так:

FileNumber % = FreeFile

Open “имя файла” For Input As # FileNumber %

После этого можно использовать оператор Line Input # для построчного чтения информации из файла:

Open “File1” For Input As #1

Line Input #1, A$ принимает в A$ всю информацию до Enter

Print A$

Close #1

Либо Input # идентификатор файла, список переменных, если запись с помощью Write, txtDisplay

Если файл сложной структуры, состоит из полей и записей, то файл будет читаться целыми записями командой LineInput, либо можно информацию читать из отдельных полей командой Input #

Например, чтение записей из файла Spisok в массив