13. Лекция 13. Операции с файлами.

Вопросы:

1. Операции работы с файлами (переименование, копирование, удаление файлов)

2. Установка атрибутов файла

3. Стандартные объекты для работы с файлами.

4. Вывод информации на печать

13.1. Операции работы с файлами

Помимо операторов для ввода и вывода данных, VB содержат операторы, позволяющие вам выполнять в своей программе и другие действия с файлами. К числу таких операторов:

Переименование файла. Оператор Name используется для переименования файлов. Синтаксис оператора

Name oldfilename As newfilename,

где

oldfilename - старое имя файла;

newfilename – новое имя файла.

Пример.

Name “c:\ liner\temp.dat” As “c:\ liner \ save.dat”

Если новое имя совпадает со старым , то возникнет ошибка.

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

Пример

Name “c:\ liner\ save.dat” As “c:\ saved file\save.dat”

Name “c:\ liner\ save.dat “ As “c:\ saved file\ newsave.dat”

Копирование файла: Оператор FileCopy используется для копирования файла из исходного места в пункт назначения, причем этот конечный пункт , причем этот пункт может находиться в другом каталоге Синтаксис оператора:

FileCopy sourcefile, taregetfile

где

sourcefile - источник

taregetfile – назначение

Пример копирования файла :

FileCopy “a: \ readme.txt”, “c:\ counter\ readme”

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

Параметры исходного и конечного пунктов должны содержать текстовые (строковые) значения. можно ввести их как строковые константы, как это сделано в приведенном примере.

Dim FromFile As String

Dim ToFile As String

FromFile = “ a:\ readme.txt

ToFile = “ c:\ counter \ document.txt

FileCopy FormFile, ToFile

Если файл открыт для записи или чтения то он копироваться не будет.

Удаление файла. для удаления файла используется оператор Kill.

Синтаксис оператора имеет вид.

Kill pathename

где

pathename – может быть строковой константой или строковой переменной.

Пример

Kill ” c:\ temp.dat”

…………………

Dim TempFile As String

……………………………….

TempFile = “ another.dat “

Kill TempFile

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

Путь доступа может быть глобальным, то есть может содержать символы * для обращения к целой группе файлов.

Kill ” c:\ fixter\ *.dat” ‘будут удалены файлы с расширением dat в каталоге fixter.

Оператор Kill не может применяться к уничтожению каталогов.

Имена файлов в операторах должны быть заключены в двойные кавычки.

13.2. Установка атрибутов файлов

Установить или изменить атрибуты файлов можно с помощью оператора SetAttr, синтаксис которого выглядит следующим образом.

SetAttr pathName, attributes

pathName – указывает на отдельный файл или каталог, параметры которого вы хотите устанрвить.

attributes – атрибуты, которые вы хотите вставить. в операторе вы можете использовать константы либо их численное значение. В таблице приведены константы и их значения для VB.

Константа	Значение	Применение
vbNormal	0	Без атрибутов
vbreadOnly	1	Только для чтения
vbHidden	2
vbSystem	4	Системной
vbVolume	8
vbDirectory	16
vbArchive	32	Архивный

Примеры:

SetAttr “c:\ linger\ save.dat” , vbReadOnly

Можно установить несколько атрибутов складывая их вместе

Пример:

SetAttr “c:\ linger\ save.dat” , vbReadOnly + vbHidden

SetAttr “c:\ linger\ save.dat” , 3 ‘ (1 + 2)

Можно установить и стереть атрибуты файла, каталога и тома, пользуясь этим оператором

Например:

SetAttr “c:\ linger\ save.dat” , vbReadOnly + vbHidden ‘ установка атрибута

SetAttr “c:\ linger\ save.dat” , Normal ‘ снятие атрибута.