{$codepage utf8} {$ifdef win32} Uses sysutils; {$endif} {$ifdef Unix} Uses sysutils,cwstring; {$endif} var NombreArch01:String; T01:longint; D01:double; begin Write('Nombre del archivo a modificar fecha y hora: '); ReadLn(NombreArch01); D01:=Now; T01:=DateTimeToFileDate(D01); FileSetDate(NombreArch01,T01); end.