rlm@9: 
rlm@9: 
rlm@9: $dir='./';
rlm@9: opendir DIR, $dir;
rlm@9: @files=grep !/^\./, readdir(DIR);
rlm@9: $" = "\n";
rlm@9: #print "@files";
rlm@9: $name = "AA";
rlm@9: 
rlm@9: for (@files){
rlm@9: 	if ($_=~m/\.spc$/) {
rlm@9:         #print "$_\n";
rlm@9: 		rename "C:/spc700/$_", "C:/spc700/$name.spc";
rlm@9: 		$name++;
rlm@9: 		
rlm@9: 		
rlm@9:         
rlm@9: 	
rlm@9: 		}
rlm@9: 		
rlm@9: 		
rlm@9: 		
rlm@9: }