имеющие уникальные метки тома, сохраняя
Копирование целесообразно проводить на
дискеты, имеющие уникальные метки тома, сохраняя информацию о них в
специальном каталоге.
Такая организация позволяет упростить восстановление файла из
резервных копий, содержащихся на нескольких дискетах, выполняемое,
например, с использованием функции FILEAPPEND().
Примечания
. При совместном доступе рекомендуется запретить обращение по записи
к выходным файлам со стороны других программных средств.
. Установка требуемой комбинации атрибутов для нового файла может
быть осуществлена функцией SETFCREATE().
. При включенном режиме защиты файлов от перезаписи, управляемом
функцией CSETSAFETY(), описываемая функция запрашивает разрешение на
перезапись существующих файлов.
Примеры
. Простое копирование:
? FILECOPY("A:\TEXT.TXT", "C:\TEST.TXT") // Число скопированных байтов
. Создание резервной копии:
nCounter := 1 // Имя файла "BIG.001" и т.д.
cTargetFile := "BIG" + NTOC(nCounter, 10, 3, "0")
FILECOPY("BIG.DBF", "A:\" + cTargetFile, .T.)
DO WHILE FILECOPEN() // Копирование не завершено?
DO NEXTDISK // Запрос на смену диска
nCounter := nCounter + 1
cTargetFile := "BIG" + NTOC(nCounter, 10, 3, "0")
FILECCONT("A:\" + cTargetFile) // Следующий диск - новое имя
ENDDO
FILECCLOSE() // На всякий случай
PROCEDURE NEXTDISK
? "Пожалуйста, установите новую дискету в дисковод A:"
WAIT
RETURN
See Also: FILEAPPEND()
FILECDATI()
FILECCLOSE()
FILECCONT()
FILECOPEN()
FILEDATE()
Возвращает дату создания файла.
------------------------------------------------------------------------------