Rename File and Add Date.Time Extension

Rename a file and add a date.time extension. Use it to rename somefile.txt to somefile.txt.20001023.081094.

Usage: File_to_rename
#usage 0 = In File #Rename a file and add Date Time extension #file.dat file.dat.20001004.144405 ($sec,$min,$hour,$mday,$Mon,$year,$wday,$yday,$isdst) = localtime(time); if ($sec < 10) { $sec = "0" . $sec; } if ($min < 10) { $min = "0" . $min; } if ($hour < 10) { $hour = "0" . $hour; } if ($mday < 10) { $mday = "0" . $mday; } $Mon = $Mon + 1; if ($Mon < 10) { $Mon = "0" . $Mon; } if ($year > 99) { $Cent="20"; } else { $Cent="19"; } if ($year > 99) { $year = substr($year,1,2); } print "Ren $ARGV[0] $ARGV[0].$Cent$year$Mon$mday.$hour$min$sec\n"; $Rc = system("Ren $ARGV[0] $ARGV[0].$Cent$year$Mon$mday.$hour$min$sec"); print $Rc;

Copyright © 2002 Booshway Enterprises, Inc.
You have a royalty-free right to use, modify, reproduce and distribute the Sample Application Files (and/or any modified version) in any way you find useful, provided that you agree that The Booshway Enterprises, Inc. has no warranty, obligations or liability.