Script Library: 1247 scripts
 

new-suffix.r

REBOL [ Title: "Change File Extensions (Suffix)" File: %new-suffix.r Author: "Carl Sassenrath" Date: 25-Jan-2005 Purpose: { Change the file extension (suffix) for files with a specific extension. For example, change all .txt files to .r files in the current directory. Displays a list of changes before it makes them. } Warning: "Back up your files first, just in case!" License: "BSD - Use at your own risk." Library: [ level: 'beginner platform: 'all type: [tool] domain: [files] tested-under: none support: none license: 'bsd see-also: none ] ] from-suffix: %.txt to-suffix: %.r bulk-rename: func [confirmed] [ foreach file load %./ [ if all [ not find file #"/" ; (ignore directories) from-suffix = find/last file #"." ][ new-file: copy file append clear find/last new-file #"." to-suffix either confirmed [ print ["Renaming" file "to" new-file] rename file new-file ][ print ["Will rename" file "to" new-file] ] ] ] ] bulk-rename false if not confirm "Are you sure you want to rename all those files?" [ quit ] bulk-rename true ask "Done. Press enter."
halt ;; to terminate script if DO'ne from webpage