[Back to DIRS SWAG index]  [Back to Main SWAG index]  [Original]

Program TouchDir;

Uses Dos;

Var S:SearchRec;
     F:Text;
     H,M,S,Hund:Word;
     DOW,Year,Month,Day:Word;
     FTime:LongInt;
     DT:DateTime;
     Dir:String;

Begin
 If ParamCount = 0 Then
 Begin
  Writeln('Usage: TOUCHDIR <dirname>');
  Halt;
 End;
 FindFirst(Dir,Directory,S);
 If DosError = 0 Then
 Begin
  Assign(F,Dir);
  GetTime(H,M,S,Hund);
  GetDate(Year,Month,Day,DOW);
  DT.Hour:=H;
  DT.Min:=M;
  DT.Sec:=S;
  DT.Year:=Year;  
  DT.Month:=Month;
  DT.Day:=Day;
  PackTime(DT,FTime);
  SetFTime(F,FTime);
  Writeln('Touched the ',Dir,' directory.');
 End
End.

[Back to DIRS SWAG index]  [Back to Main SWAG index]  [Original]