Convert Disc Image Script

[redders]

Ok I appreciate I'm asking for real basic help here, but I have no idea where to start. I'm a member of another forum where a talented guy called Nologic created a script which would convert images via demon tools pro to mdf/mds format. The script below is which I speak of -

expandcollapse popup

#include <File.au3>
#include <Array.au3>

; File Extensions to Find
$Find = StringSplit ( 'b5t|b6t|bwt|ccd|cue|isz|mds|nrg|pdi|cdi|iso' , '|' )

; Create Directory Array
$DirList = _FileListToArray ( @ScriptDir & '\' , '*' , 2 )

; Wait for Convert Image Window to Exist
$title = '[CLASS:TConvertImage]'
WinWait ( $title )

For $h = 1 to $DirList[0]
; Create File List Array
    $FileList = _FileListToArray ( @ScriptDir & '\' & $DirList[$h] & '\' , '*' , 1 )

; Test File Extensions in Array Order Against Files
    For $i = 1 to $Find[0]

   ; Test Current Extension Agaist All Files
        For $j = 1 to $FileList[0]
            $ext = StringTrimLeft   ( $FileList[$j] , StringInStr ( $FileList[$j] , '.' , 0 , -1))

       ; If Extension Matched Then Convert Image, Then Test Next Directory
            If $ext = $Find[$i] Then
                WinActivate ( $title )

           ; Set Source File
                $source = @ScriptDir & '\' & $DirList[$h] & '\' & $FileList[$j]
                ControlFocus    ( $title , '' , '[CLASSNN:TTeEdit9]' )
                ControlSend ( $title , '' , '[CLASSNN:TTeEdit9]' , $source , 1 )

           ; Set Destination File
                $destination = @ScriptDir & '\_New_Discs\' & $DirList[$h] & '\'
                DirCreate   ( $destination )
                ControlFocus    ( $title , '' , '[CLASSNN:TTeEdit1]' )
                ControlSend ( $title , '' , '[CLASSNN:TTeEdit1]' , $destination & $DirList[$h] & '.mds' , 1 )
                ControlClick    ( $title , '' , '[CLASSNN:TTeButton4]' )

           ; Wait till complete
                Sleep       ( 2000 )
                WinWait     ( 'Completed - Convert image' )

                ExitLoop 2
            EndIf
        Next
    Next
Next

; End Of File

Now before I had a chance to ask him a question about this code he was banned from the forums.

My question for you guys is, how do I get the converted image to stay in the same folder as its unconverted counterpart? Instead of creating a new folder called '_New_Discs'? I have tried a few things myself, but as I havent a clue what I'm doing I have so far failed.

Thanks in advance.

[Jos]

My guess would be that something like this should work.

It will replace the extension of the source file with ".mds".

The modified lines:

$destination = @ScriptDir & $DirList[$h] & '\' & StringTrimRight($FileList[$j], StringLen($ext) + 1) & '.mds'
            ; DirCreate($destination)
                ControlFocus($title, '', '[CLASSNN:TTeEdit1]')
                ControlSend($title, '', '[CLASSNN:TTeEdit1]', $destination, 1)

Jos

[redders]

My guess would be that something like this should work.

It will replace the extension of the source file with ".mds".

The modified lines:

$destination = @ScriptDir & $DirList[$h] & '\' & StringTrimRight($FileList[$j], StringLen($ext) + 1) & '.mds'
        ; DirCreate($destination)
                ControlFocus($title, '', '[CLASSNN:TTeEdit1]')
                ControlSend($title, '', '[CLASSNN:TTeEdit1]', $destination, 1)

Jos

Thanks for the reply. The folder I'm working with have images that are already in mds format. So when I try it with the above amended code it fails because it doesnt expect to find an mds format file.

Any other ideas please?