...
> Set objFSO = CreateObject("Scripting.FileSystemObject")
> Set objFolder = objFSO.GetFolder("C:\Media\Music\faves")
> Set colFiles = objFolder.Files
> For Each objFile in colFiles
> fileName = objFSO.GetFileName(objFile)
> newFileName = Right(fileName, Len(fileName)-5)
> newFileName = Left(newFileName, Len(newFileName)-4)
> arrayNewFileName = split(newFileName, " - ")
> newFileName = arrayNewFileName(1) & " - " & arrayNewFileName(0) & ".mp3"
> objFSO.CopyFile "C:\Media\Music\faves\" & fileName ,
"C:\Media\Music\palm\" & newFileName
> 'WScript.Echo newFileName
> Next
...
This looks nothing like a Cammel !!!!
<~~~cut
$PATH=shift,$CONV_DIR=shift || die "convert.pl [dir-to-convert]
[destincation-DiR]\n";
unless (-d $CONV_DIR){die "$PATH\t<== $!\n";}
opendir NT, $PATH or die "$PATH\t<== $!\n";
@FILES = readdir(NT) or die"ERROR:\t$!\n";
@FILES = grep( !/^\.{1,2}/,@FILES );
print @FILES;
for( @FILES ){
#print "p=$PATH\td=$CONV_DIR\t$_";
# open and creat new file
open TMP,'<',"$PATH\\$_" || die "ERROR: $!\n";
m/- (.*) - (.*)\./i;
open WR,'>',"$CONV_DIR\\$2 - $1\.mp3" || die "ERROR: $!\n" if( $1 and $2);
# copy your file over
while(1){
$char=sysread (TMP,$buff,4*2048) or last;
syswrite WR,$buff,$char ||die "ERROR: $!\n";
}
}
<~~~ paste
hth,
Mark G
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
