; <COMPILER: v1.0.90.0>
FileList =
IndexPlusOne =
Index = 0;
Path =
Folder =
Extensions := "wav,aif,aiff"

{

Gui, Add, Text,,
Gui, Add, Text,, Main Folder Path:
Gui, Add, Edit, w480 vFolderPath
Gui, Add, Text,,
Gui, Add, Button, x10 y140 cBlue gStart, START
Gui, Add, Button, x436 y140 cBlue gCancel, CANCEL
Gui, Show, AutoSize
return

}

GuiClose:
Cancel:

ExitApp

Start:

Gui, Submit


Loop, %FolderPath%\*.*, 1, 0

{

FileDelete %A_LoopFileFullPath%\%A_LoopFileName%.bmk
Path = %A_LoopFileFullPath%
Folder = %A_LoopFileName%

Loop, %A_LoopFileFullPath%\*.*

{

if A_LoopFileExt in %Extensions%

++IndexPlusOne

FileAppend, <Trigger Bus="Aux0" Bypass="0" HighKey="%IndexPlusOne%" HighVel="128" LowKey="%Index%" LowVel="0" Mute="0" Name="Pad%Index%" Pitch="1.00000000" Polyphony="1" Reverse="0" Volume="1.00000000">
     <SampleGen Bypass="0" Looped="0" Name="Gen" SamplePath="%A_LoopFileName%" Streaming="0"/>
  </Trigger>, %Path%\%Folder%.txt

++Index

}

VarNewText = <?xml version="1.0" encoding="UTF-8"?>
 <VoiceManager BPM="120.00000000" Bypass="0" Name="VMPads" Volume="1.00000000">
FileRead, Var1, %A_LoopFileFullPath%\%A_LoopFileName%.txt
FileDelete, %A_LoopFileFullPath%\%A_LoopFileName%.txt
FileAppend, %VarNewText%, %A_LoopFileFullPath%\%A_LoopFileName%.txt
FileAppend, %Var1%, %A_LoopFileFullPath%\%A_LoopFileName%.txt

FileAppend,
</VoiceManager>, %A_LoopFileFullPath%\%A_LoopFileName%.txt

FileMove, %A_LoopFileFullPath%\%A_LoopFileName%.txt, %A_LoopFileFullPath%\%A_LoopFileName%.bmk

IndexPlusOne = 0
Index = 0

}

ExitApp