home *** CD-ROM | disk | FTP | other *** search
/ PSION CD 2 / PsionCDVol2.iso / Programs / 12 / Macro5SIS.sis / M5Macros.sis / FileTime.opl (.txt) < prev    next >
Encoding:
EPOC OPL Source  |  2000-10-17  |  1.7 KB  |  51 lines
  1.  
  2.  
  3. REM Macro FileTime version 1.01
  4. REM Set the time stamp of files
  5. REM By Pascal NICOLAS, to be used with Macro5
  6. REM Last edited on 6 May 1998
  7.  
  8. Include "Const.oph"
  9. Include "System.oxh"
  10. Include "Date.oxh"
  11.  
  12. PROC Macro:
  13.     Local File$(255),DateTimeId&,Date&,Time&
  14.     Local Day%,Month%,Year%,Hour&,Minute&,Second&
  15.     File$="c:\"
  16.     While 1
  17.         dInit "Select a file",KDlgButRight%
  18.         dFile File$,"File,Folder,Disk",KDFileEditorQueryExisting%+KDFileSelectorWithSystem%
  19.         dButtons "Exit",-KDButtonEsc%,"Set time",KDButtonEnter%
  20.         If Dialog
  21.             DateTimeId&=DTNow&:
  22.             GetFileTime:(File$,DateTimeId&)
  23.             Date&=Days(DTDay&:(DateTimeId&),DTMonth&:(DateTimeId&),DTYear&:(DateTimeId&))
  24.             Time&=DTHour&:(DateTimeId&)*3600+DTMinute&:(DateTimeId&)*60+DTSecond&:(DateTimeId&)
  25.             dInit "Set time to "+Mid$(Right$(File$,15),Loc(Right$(File$,15),"\")+1,255)
  26.             dDate Date&,"Date :",29219,2958463
  27.             dTime Time&,"Time :",KDTimeAbsWithSecs%,0,86399
  28.             dButtons "Cancel",-KDButtonEsc%,"OK",KDButtonEnter%
  29.             If Dialog
  30.                 DaysToDate Date&,Year%,Month%,Day%
  31.                 Hour&=Time&/3600
  32.                 Minute&=(Time&-Hour&*3600)/60
  33.                 Second&=Time&-Hour&*3600-Minute&*60
  34.                 DTSetDay:(DateTimeId&,Day%)
  35.                 DTSetMonth:(DateTimeId&,Month%)
  36.                 DTSetYear:(DateTimeId&,Year%)
  37.                 DTSetHour:(DateTimeId&,Hour&)
  38.                 DTSetMinute:(DateTimeId&,Minute&)
  39.                 DTSetSecond:(DateTimeId&,Second&)
  40.                 DtSetMicro:(DateTimeId&,0)
  41.                 SetFileTime:(File$,DateTimeId&)
  42.             Endif
  43.             DTDeleteDateTime:(DateTimeId&)
  44.         Else
  45.             Break
  46.         Endif
  47.     EndWh
  48. ENDP
  49.  
  50.  
  51.