Anyone here good at .BAT files?

[autopilot]

Due to a 'bug' in Exact Audio Copy, I need a batch file to rename and sort some files for me.

Here's the deal;

I have a folder with lots of files. The files are in pairs, with different extentions.

For example, in the folder i have;

Coldplay - X&Y.cue
Coldplay - X&Y.flac.flac
Bonobo - Dial M For Monkey.cue
Bonobo - Dial M For Monkey.flac.flac
Tom Middleton - The Trip CD1.cue
Tom Middleton - The Trip CD1.flac.flac
...

What i need to do is have a batch file that renames all the files that have the extention .flac.flac so they have the extention .flac

Also, now here's the tricky bit, i would like the batch file to take the name of each file and generate a folder with the same name. Then move both files with the same name (.cue & .flac) into that folder.

Example;

D:\music\Coldplay - X&Y.flac.flac becomes D:\music\Coldplay - X&Y\Coldplay - X&Y.flac

The .cue does not need renaming but needs to be moved to the same folder as the .flac file.

This needs to loop and do all the files in the folder. Anyone reckon they can do it?

[blueball]

Have you had a look at Bulk File Renamer?

Very powerful and (the last time I looked) was free.

Find out more at:

http://www.bulkrenameutility.co.uk/Main_Intro.php

[Dav0s]

hmm, i get the feeling that you may need the use of variables to name the folders the same as filenames. im actually not sure about renaming the flac files either, as again it requires set rules which u cant really apply to multiple items. maybe somebody can come up with a method along the lines of..

rename *flac.flac *.flac

that wdnt work btw, do you know any other programming languages?

[Atomic]

VBScript is prob your best bet.

Have a look at Scripting.FileSystemObject

[TheAnimus]

MSH

using the (public beta) Microsoft SHell it would be very possible.

MSH is the new cmd.

[autopilot]

It's completely posible with a .BAT file. It's just been years since i played with them.

[ed^chigliak]

Open basic macro for OOo Office 2.0 - because that's what I've been messing around with recently

Original files in D:\Music\Source\

Sub FixFlacFiles
Dim sNextFile As String
Dim sNewFile As String
Dim sSourceFile As String
Dim sTargetFile As String
Dim sNewFolder As String
Dim iX As Integer
Dim iY As Integer
sNextFile = Dir("D:\Music\Source\", 0)
While sNextFile <> ""
sSourcefile = "D:\Music\Source\" + sNextfile
iX = InStr(sNextFile, ".flac.flac")
If iX>0 then
Mid(sNextfile, iX, Len(".flac.flac"), "")
sNewFolder = "D:\Music\Target\" + sNextfile + "\"
MkDir(sNewFolder)
sTargetFile = sNewFolder + sNextfile + ".flac"
End If
iY = InStr(sNextFile, ".cue")
If iY>0 then
Mid(sNextfile, iY, Len(".cue"), "")
sNewFolder = "D:\Music\Target\" + sNextfile + "\"
MkDir(sNewFolder)
sTargetFile = sNewFolder + sNextfile + ".cue"
End If
If iX>0 or iY>0 then
Filecopy sSourceFile , sTargetfile
End If
sNextFile = Dir
iX=0
iY=0
Wend
End Sub