Файлы

← →
Builder (2004-02-13 02:42) [0]

Подскажите простой способ копирование файлов с новыми аттрибутами, т.е. я их копирую с СД и сразу меня аттр.

← →
Defunct (2004-02-13 03:18) [1]

Модуль SysUtils
FileSetAttr( FileName, Attr )

Файл должен быть закрытым.

← →
Builder (2004-02-13 03:39) [2]

Это я в курсе, а копировать что-нибудь получше BlockWrite? Допустим папку целиком?

← →
Defunct (2004-02-13 03:43) [3]

Нет, в стандартных средствах такого нет.

FindFist/FindNext для каждой папки в цикле

У меня атрибуты меняются при чтении из программы.
Часть кода:
If not ReadBool then
If FileExists(FileName) then FileSetAttr(FileName,1);
If ReadBool then
If FileExists(FileName) then FileSetAttr(FileName,32);
H:=ExecuteFile(FileName, "", "",SW_SHOWNORMAL);

Файлы Найти похожие ветки