高分赠送，简单问题

Question

谁能告诉我怎么才能把文件的修改时间为当前时间？具体代码？
分数不够，可以加！急！！！！！！

Answer 1

呵呵，有个笨办法，用文件流LOAD一下，然后SAVE一把；

Answer 2

procedure ChangefileStamp(filename : TFileName; newtime: TDateTime); 
var vhnd : Integer; 
begin 
   vhnd := FileOpen( filename, fmOpenReadWrite ); 
   FileSetDate( vhnd, Datetimetofiledate(newtime) ); 
   FileClose(vhnd); 
end;