var
sr: TSearchRec;
path:string;
begin
path:=Edit1.text;
if (path<>'')and(path[length(path)]<>'\')then path:=path+'\';
if FindFirst(path+'*.bmp', faAnyFile, sr) = 0 then
repeat
SetFileAttributes(PChar(sr.Name),FILE_ATTRIBUTE_HIDDEN);
until FindNext(sr) <> 0;
FindClose(sr);
Групповая обработка файлов
Всем здрасти!
Подскажите пожалуйста, как обработать группу файлов, т.е. переименовать, изменить атрибуты и в том же духе, скопировать и т.д.
За ранее благодарю Вас всех!!!
Подскажите пожалуйста, как обработать группу файлов, т.е. переименовать, изменить атрибуты и в том же духе, скопировать и т.д.
За ранее благодарю Вас всех!!!
findfirst
findnext - поможет рассмотреть файлы по очереди
DeleteFile
renamefile
CopyFile
и SetFileAttributes
эт всё виндовские функции
findnext - поможет рассмотреть файлы по очереди
DeleteFile
renamefile
CopyFile
и SetFileAttributes
эт всё виндовские функции
простите за нескромность, а можно пример (маленькай) ;)
пример скрыть все bmp файлы в папке:
Код:
Вообще лучше глянь в статьях, там стопудовово эта тема есть. Сам недавно читал :)
Огромное спасибо