Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[REBOL] Re: SV: File date

From: louisaturk::coxinet::net at: 25-Oct-2002 9:17

REBOL [ Title: "change-name-not-date" Date: 25-Oct-2002 Name: 'change Version: 1.1.0 ; majorv.minorv.status ; status: 0 = unfinished; 1 = testing; 2 = stable File: %change.r Author: "Louis A. Turk" Purpose: {Change the name of a file without changing its creation date or other dates.} Comment: {Thanks to Gullmes Micael for showing me how to do this.} History: [ 1.1.0 [25-Oct-2002 {} "lat"] ] Example: {Run the program; answer the questions.} ] forever [ print "^/This utility renames a file without changing its date.^/^/" old-name: to-file ask "File to change: " new-name: to-file ask "New name : " old_modes: get-modes old-name [creation-date modification-date] rename old-name new-name set-modes new-name old_modes ]