Ranaming of files

...but because I could I went one further...

Once you've installed perl, cut and paste this code into a txt document using notepad, rename it to have a .bat extension rather than .txt and stick it on your desktop.

Now you'll be able to simply drag and drop folders from the windows explorer onto the icon and it will automatically rename the folder's contents recursively - ie. all its subfolders too...

@rem = '--*-Perl-*--
@echo off

if not exist %0 set batchf=%0.bat
if exist %0 set batchf=%0

if "%OS%" == "Windows_NT" goto WinNT
perl -x %batchf% %1 %2 %3 %4 %5 %6 %7 %8 %9
if not errorlevel 0 goto fail1
goto endofperl

:WinNT
perl -x %batchf% %*
if not errorlevel 0 goto fail1
if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
if %errorlevel% == 9009 echo You do not have Perl in your PATH.
if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul

:endofperl
echo.
pause
exit

:fail1
echo.
echo Problem with the rename script.
echo.
goto endofperl

#!perl

#use File::Recurse;
use File::Find;

# read in directory
@ARGV = qw(.) unless @ARGV;

# verify directory
if (-d @ARGV[0])
{
print "Working Directory: @ARGV[0]\n";
}
else
{
print "\nError: Directory Not Found @ARGV[0]\n"; exit(0);
}

# call recurse function from module
# this applies the sub-routine lcName to all files
# in the specified directory
find(\&lcName, @ARGV);

# define the lcName sub-routine which lowercases all files

sub lcName {
# receive passed filename
$filename = $File::Find::name;

$newfilename = $filename;

# regexp that converts to lowercase
$newfilename =~ tr/A-Z/a-z/;

# if I can read and write to it
# rename the filename tothe lowercase one
if ((-r $filename) && (-w $filename)) {
rename($filename, $newfilename);
print " Renamed: $filename to $newfilename\n";
}
}

Cheers,
Tim.

...and one last thing.

Windows isn't generally case sensitive, but Java is. Dont use this to rename .java filenames or you'll find they may not work anymore.

Also...all the formatting has been lost with the post, but it shouldn't matter... youcan re-indent it if you like.

Cheers,
Tim.

Thanks guys. I will be trying it at home. Will post on how it works out.

Thanks again..

Mayuresh

Thanks Dude.

You throughly deserve these points.

See Ya around.

mayuresh