Atributos de arquivo, alterar
Desejo alterar a data de modificação de arquivos. Procurei no fórum por ´SearchRec´, mas não tive sucesso. Se alguém tiver a dica, agradeço.
Saudações
Henrique
Saudações
Henrique
José Cordeiro
Curtidas 0
Respostas
Antseralves
05/07/2006
[b:7be759e318]Olha. Achei a dica abaixo no forum do Delphi. Não testei.[/b:7be759e318]
{ Esta função altera a data e hora de um arquivo. Se obter sucesso retorna true, caso contrário retorna false. }
function DefineDataHoraArq(NomeArq: string; DataHora: TDateTime): boolean;
var
F: integer;
begin
Result := false;
F := FileOpen(NomeArq, fmOpenWrite or fmShareDenyNone);
try
if F > 0 then
Result := FileSetDate(F, DateTimeToFileDate(DataHora)) = 0;
finally
FileClose(F);
end;
{ Esta função altera a data e hora de um arquivo. Se obter sucesso retorna true, caso contrário retorna false. }
function DefineDataHoraArq(NomeArq: string; DataHora: TDateTime): boolean;
var
F: integer;
begin
Result := false;
F := FileOpen(NomeArq, fmOpenWrite or fmShareDenyNone);
try
if F > 0 then
Result := FileSetDate(F, DateTimeToFileDate(DataHora)) = 0;
finally
FileClose(F);
end;
GOSTEI 0