; FileDate
; --------
; Change the last written date of the selected file.
; Defaults to current date and time, as for UNIX touch
;
report on
filebox Select file to change,A,All files|*.*,c:\My Documents
ifnmsg ok,end
datebox FileDate,Enter new file date,B
timebox FileDate,Enter new file time,C
setftd %A,%B,%C,W
msgbox FileDate,File date & time changed for| %A,0
:end