API tools faq
paste
Guest User

Untitled

a guest
Jan 23rd, 2018
98
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 103.25 KB | None | 0 0
raw download clone embed print report
  1. FileInstall(".\Burn.bmp", ".\Burn.bmp")
  2. FileInstall(".\Eject.bmp", ".\Eject.bmp")
  3. FileInstall(".\ISO.bmp", ".\ISO.bmp")
  4. FileInstall(".\Trash.bmp", ".\Trash.bmp")
  5. FileInstall(".\Utilities.bmp", ".\Utilities.bmp")
  6. FileInstall(".\Help-Picture.jpg", ".\Help-Picture.jpg")
  7. FileInstall(".\CD Inspektor.exe", ".\CD Inspektor.exe")
  8. FileInstall(".\Über.exe", ".\Über.exe")
  9. FileInstall(".\Burn2Drive.jpg", ".\Burn2Drive.jpg")
  10.  
  11. ;Die Includes
  12.  
  13. #include <ButtonConstants.au3>
  14. #include <ComboConstants.au3>
  15. #include <EditConstants.au3>
  16. #include <GUIConstantsEx.au3>
  17. #include <ListViewConstants.au3>
  18. #include <ProgressConstants.au3>
  19. #include <StaticConstants.au3>
  20. #include <WindowsConstants.au3>
  21. #include <IMAPI2.au3>
  22.  
  23. $ID_Of_Drives = _IMAPI2_DrivesGetID()
  24. $oWMP = ObjCreate("WMPlayer.ocx") ;WMPlayer.ocx wird später gebraucht für CD/DVD Auswurf.
  25. HotKeySet("{ESC}","_ExitForHelpMenu")
  26.  
  27. Func _ExitForHelpMenu()
  28.     SplashOff()
  29. EndFunc
  30.  
  31. ; => CheckList
  32.  
  33. ; => Buttons Programmieren =        True
  34. ;   => Einstellungen =              True
  35. ;   => Liste Leeren =               True
  36. ;   => Auswerfen =                  True
  37. ;   => ISO =                        True
  38. ;   => Brennen =                    True
  39.  
  40. ; => Menu Programmieren =           True
  41. ;   => Neues Projekt =              True
  42. ;   => Projekt Öffnen =            True
  43. ;   => Projekt Speichern =          True
  44. ;   => Beenden =                    True
  45. ;   => CD Inspektor =               True
  46. ;   => Hilfe =                      True
  47. ;   => Über =                      True
  48.  
  49. ; => Titel Einstellungen =          True
  50. ; => CD/DVD Laufwerkerkennung =     True
  51. ; => Datei durchsuchen =            True
  52. ; => ListView =                     True
  53. ; => Formatieren =                  True
  54. ; => ProgressBar =                  True
  55.  
  56. ;Selbstgemachte Funktionen die wichtig sind!
  57.  
  58. Func _GetNameOfListViewEntry($intListViewEntry)
  59.    
  60.     Local $ReadEntryToString, $SplittenStringToTrim, $TrimmedStringToReturn
  61.    
  62.     If GuiCtrlRead($intListViewEntry) = '0' Then
  63.         Return 0
  64.        
  65.     ElseIf GuiCtrlRead($intListViewEntry) <> '0' Then
  66.         $ReadEntryToString = GuiCtrlRead($intListViewEntry)
  67.         $SplittenStringToTrim = StringSplit($ReadEntryToString, "|")
  68.         $TrimmedStringToReturn = StringTrimLeft($SplittenStringToTrim[1], StringInStr($SplittenStringToTrim[1], "\", 0, -1))
  69.        
  70.         Return $TrimmedStringToReturn
  71.     EndIf
  72. EndFunc
  73.  
  74. Func _GetFormat()
  75.     If GuiCtrlGetState($CheckBox1) = $GUI_CHECKED Then
  76.         Return 1
  77.     ElseIf GuiCtrlGetState($CheckBox1) = $GUI_UNCHECKED Then
  78.         Return 0
  79.     EndIf
  80. EndFunc
  81.  
  82. ;Normale Variblen die deklariert und definiert werden.
  83.  
  84. $Formatieren = False
  85. $Typ = ''
  86. $Count = 0
  87.  
  88. ;Abfrage für CD oder DVD Laufwerk.
  89.  
  90. $Abfrage = InputBox("Laufwerk", "Möchten Sie mit einer CD oder DVD brennen ?" & @CRLF & "CD oder DVD eingeben.", "CD")
  91.  
  92. If $Abfrage <> 'CD' and $Abfrage <> 'DVD' Then
  93.     MsgBox(16, "Fehler", "Laufwerktyp existiert nicht oder wird nicht unterstützt.")
  94.     Exit
  95. EndIf
  96.  
  97. If $Abfrage = 'CD' Then
  98.     MsgBox(64, "Laufwerk", $Abfrage & " wurde ausgewählt." & @CRLF & "Speicherplatz: 700 MB")
  99.     $Typ = 'CD'
  100.    
  101. ElseIf $Abfrage = 'DVD' Then
  102.     MsgBox(64, "Laufwerk", $Abfrage & " wurde ausgewählt." & @CRLF & "Speicherplatz: 4.7 GB")
  103.     $Typ = 'DVD'
  104. EndIf
  105.  
  106.  
  107. ;Diese Variablen müssen deklariert und definiert werden, weil sonst Fehler auftauchen.
  108.  
  109. $ListView1_0 = ''
  110. $ListView1_1 = ''
  111. $ListView1_2 = ''
  112. $ListView1_3 = ''
  113. $ListView1_4 = ''
  114. $ListView1_5 = ''
  115. $ListView1_6 = ''
  116. $ListView1_7 = ''
  117. $ListView1_8 = ''
  118. $ListView1_9 = ''
  119. $ListView1_10 = ''
  120. $ListView1_11 = ''
  121. $ListView1_12 = ''
  122. $ListView1_13 = ''
  123. $ListView1_14 = ''
  124. $ListView1_15 = ''
  125. $ListView1_16 = ''
  126.  
  127. Dim $splittenFileToFSatEntry0[15]
  128. Dim $splittenFileToFSatEntry1[15]
  129. Dim $splittenFileToFSatEntry2[15]
  130. Dim $splittenFileToFSatEntry3[15]
  131. Dim $splittenFileToFSatEntry4[15]
  132. Dim $splittenFileToFSatEntry5[15]
  133. Dim $splittenFileToFSatEntry6[15]
  134. Dim $splittenFileToFSatEntry7[15]
  135. Dim $splittenFileToFSatEntry8[15]
  136. Dim $splittenFileToFSatEntry9[15]
  137. Dim $splittenFileToFSatEntry10[15]
  138. Dim $splittenFileToFSatEntry11[15]
  139. Dim $splittenFileToFSatEntry12[15]
  140. Dim $splittenFileToFSatEntry13[15]
  141. Dim $splittenFileToFSatEntry14[15]
  142. Dim $splittenFileToFSatEntry15[15]
  143. Dim $splittenFileToFSatEntry16[15]
  144.  
  145. ;Burn2Drive HauptInterface
  146.  
  147. $Form1 = GUICreate("Burn2Drive", 626, 358, -1, -1)
  148. $MenuItem1 = GUICtrlCreateMenu("&Datei")
  149. $MenuItem7 = GUICtrlCreateMenuItem("Neues Projekt", $MenuItem1)
  150. $MenuItem8 = GUICtrlCreateMenuItem("Projekt Öffnen", $MenuItem1)
  151. $MenuItem9 = GUICtrlCreateMenuItem("Projekt Speichern", $MenuItem1)
  152. $MenuItem10 = GUICtrlCreateMenuItem("Beenden", $MenuItem1)
  153. $MenuItem2 = GUICtrlCreateMenu("&Tools")
  154. $MenuItem6 = GUICtrlCreateMenuItem("CD Inspektor", $MenuItem2)
  155. $MenuItem3 = GUICtrlCreateMenu("&Hilfe")
  156. $MenuItem4 = GUICtrlCreateMenuItem("Hilfe", $MenuItem3)
  157. $MenuItem5 = GUICtrlCreateMenuItem("Über", $MenuItem3)
  158. $Button1 = GUICtrlCreateButton("Button1", 548, 261, 70, 70, BitOR($BS_DEFPUSHBUTTON,$BS_BITMAP,$WS_GROUP))
  159. GUICtrlSetImage(-1, "." & "\Burn.bmp", -1)
  160. $Group1 = GUICtrlCreateGroup("", 8, 0, 609, 217)
  161. $Input1 = GUICtrlCreateInput("", 168, 16, 361, 21)
  162. $Button2 = GUICtrlCreateButton("Durchsuchen", 536, 15, 75, 23, $WS_GROUP)
  163. $ListView1 = GUICtrlCreateListView("Datei|Format|Größe", 16, 48, 594, 158)
  164. GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 390)
  165. GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 100)
  166. GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 100)
  167. GUICtrlCreateGroup("", -99, -99, 1, 1)
  168. $Combo1 = GUICtrlCreateCombo("CD/DVD Laufwerk", 16, 16, 145, 25)
  169. $Progress1 = GUICtrlCreateProgress(88, 224, 529, 25)
  170. $Label1 = GUICtrlCreateLabel("Speicherbedarf:", 8, 229, 79, 17)
  171. $Group2 = GUICtrlCreateGroup("Einstellungen", 8, 256, 185, 74)
  172. $Input2 = GUICtrlCreateInput("", 48, 280, 137, 21)
  173. GuiCtrlSetLimit(-1, 11)
  174. $Label2 = GUICtrlCreateLabel("Titel:", 16, 282, 27, 17)
  175. $Checkbox1 = GUICtrlCreateCheckbox("CD/DVD Formatieren ?", 16, 304, 169, 17)
  176. GUICtrlCreateGroup("", -99, -99, 1, 1)
  177. $Button5 = GUICtrlCreateButton("Button1", 372, 261, 70, 70, BitOR($BS_DEFPUSHBUTTON,$BS_BITMAP,$WS_GROUP)) ;CD-Auswerfen-Icon =>        $Button5
  178. GUICtrlSetImage(-1, "." & "\Eject.bmp", -1)
  179. $Button4 = GUICtrlCreateButton("Button1", 460, 261, 70, 70, BitOR($BS_DEFPUSHBUTTON,$BS_BITMAP,$WS_GROUP)) ;CD-ISOBrennen-Icon =>       $Button4
  180. GUICtrlSetImage(-1, "." & "\ISO.bmp", -1)
  181. $Button6 = GUICtrlCreateButton("Button1", 196, 261, 70, 70, BitOR($BS_DEFPUSHBUTTON,$BS_BITMAP,$WS_GROUP)) ;CD-Einstellungen-Icon =>    $Button6
  182. GUICtrlSetImage(-1, "." & "\Utilities.bmp", -1)
  183. $Button7 = GUICtrlCreateButton("Button1", 284, 261, 70, 70, BitOR($BS_DEFPUSHBUTTON,$BS_BITMAP,$WS_GROUP)) ;CDEinträge-Leeren-Icon =>  $Button7
  184. GUICtrlSetImage(-1, "." & "\Trash.bmp", -1)
  185. If $ID_Of_Drives[0] = 0 Then
  186.     MsgBox(48, "Fehler", "Kein Laufwerk gefunden !")
  187.     Exit
  188. ElseIf $ID_Of_Drives[0] = 1 Then
  189.     GuiCtrlSetData($Combo1, _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[1])) & ":")
  190. ElseIf $ID_Of_Drives[0] = 2 Then
  191.     GuiCtrlSetData($Combo1, _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[1])) & ":"&"|"&_IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[2])) & ":")
  192. ElseIf $ID_Of_Drives[0] = 3 Then
  193.     GuiCtrlSetData($Combo1, _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[1])) & ":"&"|"&_IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[2])) & ":"&"|"&_IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[3])) & ":")
  194. ElseIf $ID_Of_Drives[0] = 4 Then
  195.     GuiCtrlSetData($Combo1, _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[1])) & ":"&"|"&_IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[2])) & ":"&"|"&_IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[3])) & ":"&"|"&_IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[4])) & ":")
  196. ElseIf $ID_Of_Drives[0] = 5 Then
  197.     GuiCtrlSetData($Combo1, _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[1])) & ":"&"|"&_IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[2])) & ":"&"|"&_IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[3])) & ":"&"|"&_IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[4])) & ":"&"|"&_IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[5])) & ":")
  198. ElseIf $ID_Of_Drives[0] = 6 Then
  199.     GuiCtrlSetData($Combo1, _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[1])) & ":"&"|"&_IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[2])) & ":"&"|"&_IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[3])) & ":"&"|"&_IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[4])) & ":"&"|"&_IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[5])) & ":"&"|"&_IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[6])) & ":")
  200. EndIf
  201.    
  202. GUISetState(@SW_SHOW)
  203.  
  204. While 1
  205.     $nMsg = GUIGetMsg()
  206.     Switch $nMsg
  207.         Case $GUI_EVENT_CLOSE
  208.             Exit
  209.            
  210.         Case $MenuItem6
  211.             ShellExecute(@ScriptDir & "\CD Inspektor.exe")
  212.        
  213.         Case $MenuItem5
  214.             ShellExecute(@ScriptDir & "\Über.exe")
  215.        
  216.         Case $MenuItem4
  217.             MsgBox(64, "Beenden", "Um die Hilfe zu beenden, bitte ESC-Taste drücken.")
  218.             SplashImageOn("Hilfe", "." & "\Help-Picture.jpg", 916, 504, -1, -1)
  219.        
  220.         Case $Button6
  221.             MsgBox(48, "Einstellungen", "Leider sind im Moment keine" & @CRLF & "Einstellungen verfügbar." & @CRLF & @CRLF & "Bitte haben Sie Verständnis.")
  222.        
  223.         Case $Button4
  224.             $isoReturn = MsgBox(52, "ISO Brennen", "Es können nur .iso-Dateien gebrannt werden!" & @CRLF & @CRLF & "Wenn sie eine ISO so brennen möchten, dass sie" & @CRLF & "entpackt auf dem Rohling landet, bitte" & @CRLF & "nur die ISO hinzufügen und ISO Brennen klicken." & @CRLF & @CRLF & "Wenn sie weitermachen möchten, bitte Ja klicken," & @CRLF & "Ansonsten bitte Nein drücken.")
  225.             If $isoReturn = 6 Then
  226.                 MsgBox(64, "ISO Brennen", "Diese Funktion kann deutlich mehr Zeit in Anspruch nehmen." & @CRLF & "Bitte haben Sie Verständnis dafür.")
  227.                 $splittenIsoPath = StringSplit(GuiCtrlRead($ListView1_0), "|")
  228.                
  229.                 If $Formatieren = True Then
  230.                     _IMAPI2_DriveEraseDisc(_IMAPI2_DriveGetObj($ID_Of_Drives[1]))
  231.                 EndIf
  232.                
  233.                 $FileSystem = _IMAPI2_CreateFSForDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[1]), GuiCtrlRead($Input2))
  234.                 If $ID_Of_Drives[0] = 1 Then
  235.                     _IMAPI2_BurnImageToDrive(_IMAPI2_DriveGetObj($ID_OfDrives[1], $splittenIsoPath)
  236.                    
  237.                 ElseIf $ID_Of_Drives[0] = 2 Then
  238.                     If GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[1])) & ':' Then
  239.                         _IMAPI2_BurnImageToDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[1], $splittenIsoPath)
  240.                        
  241.                     ElseIf GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[2])) & ':' Then
  242.                         _IMAPI2_BurnImageToDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[2], $splittenIsoPath)
  243.                     EndIf  
  244.                        
  245.                 ElseIf $ID_Of_Drives[0] = 3 Then
  246.                     If GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[1])) & ':' Then
  247.                         _IMAPI2_BurnImageToDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[1], $splittenIsoPath)
  248.                        
  249.                     ElseIf GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[2])) & ':' Then
  250.                         _IMAPI2_BurnImageToDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[2], $splittenIsoPath)
  251.                        
  252.                     ElseIf GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[3])) & ':' Then
  253.                         _IMAPI2_BurnImageToDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[3], $splittenIsoPath)
  254.                     EndIf
  255.                    
  256.                 ElseIf $ID_Of_Drives[0] = 4 Then
  257.                     If GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[1])) & ':' Then
  258.                         _IMAPI2_BurnImageToDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[1], $splittenIsoPath)
  259.                        
  260.                     ElseIf GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[2])) & ':' Then
  261.                         _IMAPI2_BurnImageToDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[2], $splittenIsoPath)
  262.                        
  263.                     ElseIf GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[3])) & ':' Then
  264.                         _IMAPI2_BurnImageToDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[3], $splittenIsoPath)
  265.  
  266.                     ElseIf GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[4])) & ':' Then
  267.                         _IMAPI2_BurnImageToDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[4], $splittenIsoPath)
  268.                     EndIf
  269.                    
  270.                 ElseIf $ID_Of_Drives[0] = 5 Then
  271.                     If GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[1])) & ':' Then
  272.                         _IMAPI2_BurnImageToDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[1], $splittenIsoPath)
  273.                        
  274.                     ElseIf GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[2])) & ':' Then
  275.                         _IMAPI2_BurnImageToDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[2], $splittenIsoPath)
  276.                        
  277.                     ElseIf GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[3])) & ':' Then
  278.                         _IMAPI2_BurnImageToDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[3], $splittenIsoPath)
  279.  
  280.                     ElseIf GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[4])) & ':' Then
  281.                         _IMAPI2_BurnImageToDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[4], $splittenIsoPath)
  282.                    
  283.                     ElseIf GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[5])) & ':' Then
  284.                         _IMAPI2_BurnImageToDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[5], $splittenIsoPath)
  285.                     EndIf
  286.                
  287.                 ElseIf $ID_Of_Drives[0] = 5 Then
  288.                     If GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[1])) & ':' Then
  289.                         _IMAPI2_BurnImageToDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[1], $splittenIsoPath)
  290.                        
  291.                     ElseIf GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[2])) & ':' Then
  292.                         _IMAPI2_BurnImageToDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[2], $splittenIsoPath)
  293.                        
  294.                     ElseIf GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[3])) & ':' Then
  295.                         _IMAPI2_BurnImageToDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[3], $splittenIsoPath)
  296.  
  297.                     ElseIf GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[4])) & ':' Then
  298.                         _IMAPI2_BurnImageToDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[4], $splittenIsoPath)
  299.                    
  300.                     ElseIf GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[5])) & ':' Then
  301.                         _IMAPI2_BurnImageToDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[5], $splittenIsoPath)
  302.                        
  303.                     ElseIf GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[6])) & ':' Then
  304.                         _IMAPI2_BurnImageToDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[6], $splittenIsoPath)
  305.                     EndIf
  306.                 EndIf
  307.                
  308.             ElseIf $isoReturn = 7 Then
  309.                 MsgBox(48, "ISO Brennen", "Sie haben Nein ausgewählt.")
  310.             EndIf
  311.            
  312.         Case $Button1
  313.             If GuiCtrlRead($ListView1_0) <> '0' Then
  314.                 $Entry0 = _GetNameOfListViewEntry($ListView1_0)
  315.             EndIf
  316.                
  317.             If GuiCtrlRead($ListView1_1) <> '0' Then
  318.                 $Entry1 = _GetNameOfListViewEntry($ListView1_1)            
  319.             EndIf
  320.                
  321.             If GuiCtrlRead($ListView1_2) <> '0' Then
  322.                 $Entry2 = _GetNameOfListViewEntry($ListView1_2)
  323.             EndIf
  324.                
  325.             If GuiCtrlRead($ListView1_3) <> '0' Then
  326.                 $Entry3 = _GetNameOfListViewEntry($ListView1_3)
  327.             EndIf
  328.                
  329.             If GuiCtrlRead($ListView1_4) <> '0' Then
  330.                 $Entry4 = _GetNameOfListViewEntry($ListView1_4)
  331.             EndIf
  332.                
  333.             If GuiCtrlRead($ListView1_5) <> '0' Then
  334.                 $Entry5 = _GetNameOfListViewEntry($ListView1_5)
  335.             EndIf
  336.            
  337.             If GuiCtrlRead($ListView1_6) <> '0' Then
  338.                 $Entry6 = _GetNameOfListViewEntry($ListView1_6)
  339.             EndIf
  340.            
  341.             If GuiCtrlRead($ListView1_7) <> '0' Then
  342.                 $Entry7 = _GetNameOfListViewEntry($ListView1_7)
  343.             EndIf
  344.            
  345.             If GuiCtrlRead($ListView1_8) <> '0' Then
  346.                 $Entry8 = _GetNameOfListViewEntry($ListView1_8)
  347.             EndIf
  348.            
  349.             If GuiCtrlRead($ListView1_9) <> '0' Then
  350.                 $Entry9 = _GetNameOfListViewEntry($ListView1_9)
  351.             EndIf
  352.            
  353.             If GuiCtrlRead($ListView1_10) <> '0' Then
  354.                 $Entry10 = _GetNameOfListViewEntry($ListView1_10)
  355.             EndIf
  356.            
  357.             If GuiCtrlRead($ListView1_11) <> '0' Then
  358.                 $Entry11 = _GetNameOfListViewEntry($ListView1_11)
  359.             EndIf
  360.            
  361.             If GuiCtrlRead($ListView1_12) <> '0' Then
  362.                 $Entry12 = _GetNameOfListViewEntry($ListView1_12)
  363.             EndIf
  364.            
  365.             If GuiCtrlRead($ListView1_13) <> '0' Then
  366.                 $Entry13 = _GetNameOfListViewEntry($ListView1_13)
  367.             EndIf
  368.            
  369.             If GuiCtrlRead($ListView1_14) <> '0' Then
  370.                 $Entry14 = _GetNameOfListViewEntry($ListView1_14)
  371.             EndIf
  372.            
  373.             If GuiCtrlRead($ListView1_15) <> '0' Then
  374.                 $Entry15 = _GetNameOfListViewEntry($ListView1_15)
  375.             EndIf
  376.            
  377.             If GuiCtrlRead($ListView1_16) <> '0' Then
  378.                 $Entry16 = _GetNameOfListViewEntry($ListView1_16)
  379.             EndIf
  380.  
  381.             If GuiCtrlRead($Combo1) = 'CD/DVD Laufwerk' Then
  382.                 MsgBox(64,"Laufwerk", "Bitte Laufwerk auswählen :)")
  383.  
  384.             ElseIf GuiCtrlRead($Combo1) <> '' Then
  385.  
  386.                         If GuiCtrlRead($ListView1_0) <> '0' Then
  387.                             $splittenFileToFSatEntry0 = StringSplit(GuiCtrlRead($ListView1_0), "|")
  388.                         EndIf
  389.                         If GuiCtrlRead($ListView1_1) <> '0' Then
  390.                             $splittenFileToFSatEntry1 = StringSplit(GuiCtrlRead($ListView1_1), "|")
  391.                         EndIf
  392.                         If GuiCtrlRead($ListView1_2) <> '0' Then
  393.                             $splittenFileToFSatEntry2 = StringSplit(GuiCtrlRead($ListView1_2), "|")
  394.                         EndIf
  395.                         If GuiCtrlRead($ListView1_3) <> '0' Then
  396.                             $splittenFileToFSatEntry3 = StringSplit(GuiCtrlRead($ListView1_3), "|")
  397.                         EndIf
  398.                         If GuiCtrlRead($ListView1_4) <> '0' Then
  399.                             $splittenFileToFSatEntry4 = StringSplit(GuiCtrlRead($ListView1_4), "|")
  400.                         EndIf
  401.                         If GuiCtrlRead($ListView1_5) <> '0' Then
  402.                             $splittenFileToFSatEntry5 = StringSplit(GuiCtrlRead($ListView1_5), "|")
  403.                         EndIf
  404.                         If GuiCtrlRead($ListView1_6) <> '0' Then
  405.                             $splittenFileToFSatEntry6 = StringSplit(GuiCtrlRead($ListView1_6), "|")
  406.                         EndIf
  407.                         If GuiCtrlRead($ListView1_7) <> '0' Then
  408.                             $splittenFileToFSatEntry7 = StringSplit(GuiCtrlRead($ListView1_7), "|")
  409.                         EndIf
  410.                         If GuiCtrlRead($ListView1_8) <> '0' Then
  411.                             $splittenFileToFSatEntry8 = StringSplit(GuiCtrlRead($ListView1_8), "|")
  412.                         EndIf
  413.                         If GuiCtrlRead($ListView1_9) <> '0' Then
  414.                             $splittenFileToFSatEntry9 = StringSplit(GuiCtrlRead($ListView1_9), "|")
  415.                         EndIf
  416.                         If GuiCtrlRead($ListView1_10) <> '0' Then
  417.                             $splittenFileToFSatEntry10 = StringSplit(GuiCtrlRead($ListView1_10), "|")
  418.                         EndIf
  419.                         If GuiCtrlRead($ListView1_11) <> '0' Then
  420.                             $splittenFileToFSatEntry11 = StringSplit(GuiCtrlRead($ListView1_11), "|")
  421.                         EndIf
  422.                         If GuiCtrlRead($ListView1_12) <> '0' Then
  423.                             $splittenFileToFSatEntry12 = StringSplit(GuiCtrlRead($ListView1_12), "|")
  424.                         EndIf
  425.                         If GuiCtrlRead($ListView1_13) <> '0' Then
  426.                             $splittenFileToFSatEntry13 = StringSplit(GuiCtrlRead($ListView1_13), "|")
  427.                         EndIf
  428.                         If GuiCtrlRead($ListView1_14) <> '0' Then
  429.                             $splittenFileToFSatEntry14 = StringSplit(GuiCtrlRead($ListView1_14), "|")
  430.                         EndIf
  431.                         If GuiCtrlRead($ListView1_15) <> '0' Then
  432.                             $splittenFileToFSatEntry15 = StringSplit(GuiCtrlRead($ListView1_15), "|")
  433.                         EndIf
  434.                         If GuiCtrlRead($ListView1_16) <> '0' Then
  435.                             $splittenFileToFSatEntry16 = StringSplit(GuiCtrlRead($ListView1_16), "|")
  436.                         EndIf
  437.  
  438.                 If $ID_Of_Drives[0] = 1 Then
  439.                     If GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[1])) & ':' Then
  440.                         If $Formatieren = True Then
  441.                             _IMAPI2_DriveEraseDisc(_IMAPI2_DriveGetObj($ID_Of_Drives[1]))
  442.                         EndIf
  443.                         $FileSystem = _IMAPI2_CreateFSForDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[1]), GuiCtrlRead($Input2))
  444.                        
  445.                         If $splittenFileToFSatEntry0[1] <> '' Then
  446.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry0[1], $Entry0)
  447.                         EndIf
  448.                         If $splittenFileToFSatEntry1[1] <> '' Then
  449.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry1[1], $Entry1)
  450.                         EndIf
  451.                         If $splittenFileToFSatEntry2[1] <> '' Then
  452.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry2[1], $Entry2)
  453.                         EndIf
  454.                         If $splittenFileToFSatEntry3[1] <> '' Then
  455.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry3[1], $Entry3)
  456.                         EndIf
  457.                         If $splittenFileToFSatEntry4[1] <> '' Then
  458.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry4[1], $Entry4)
  459.                         EndIf
  460.                         If $splittenFileToFSatEntry5[1] <> '' Then
  461.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry5[1], $Entry5)
  462.                         EndIf
  463.                         If $splittenFileToFSatEntry6[1] <> '' Then
  464.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry6[1], $Entry6)
  465.                         EndIf
  466.                         If $splittenFileToFSatEntry7[1] <> '' Then
  467.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry7[1], $Entry7)
  468.                         EndIf
  469.                         If $splittenFileToFSatEntry8[1] <> '' Then
  470.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry8[1], $Entry8)
  471.                         EndIf
  472.                         If $splittenFileToFSatEntry9[1] <> '' Then
  473.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry9[1], $Entry9)
  474.                         EndIf
  475.                         If $splittenFileToFSatEntry10[1] <> '' Then
  476.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry10[1], $Entry10)
  477.                         EndIf
  478.                         If $splittenFileToFSatEntry11[1] <> '' Then
  479.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry11[1], $Entry11)
  480.                         EndIf
  481.                         If $splittenFileToFSatEntry12[1] <> '' Then
  482.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry12[1], $Entry12)
  483.                         EndIf
  484.                         If $splittenFileToFSatEntry13[1] <> '' Then
  485.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry13[1], $Entry13)
  486.                         EndIf
  487.                         If $splittenFileToFSatEntry14[1] <> '' Then
  488.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry14[1], $Entry14)
  489.                         EndIf
  490.                         If $splittenFileToFSatEntry15[1] <> '' Then
  491.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry15[1], $Entry15)
  492.                         EndIf
  493.                         If $splittenFileToFSatEntry16[1] <> '' Then
  494.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry16[1], $Entry16)
  495.                         EndIf
  496.                        
  497.                         _IMAPI2_BurnFSToDrive($FileSystem, _IMAPI2_DriveGetObj($ID_Of_Drives[1]))
  498.                        
  499.                     EndIf
  500.                
  501.                 ElseIf $ID_Of_Drives[0] = 2 Then
  502.                     If GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[1])) & ':' Then
  503.                         If $Formatieren = True Then
  504.                             _IMAPI2_DriveEraseDisc(_IMAPI2_DriveGetObj($ID_Of_Drives[1]))
  505.                         EndIf
  506.                         $FileSystem = _IMAPI2_CreateFSForDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[1]), GuiCtrlRead($Input2))
  507.                        
  508.                         If $splittenFileToFSatEntry0[1] <> '' Then
  509.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry0[1], $Entry0)
  510.                         EndIf
  511.                         If $splittenFileToFSatEntry1[1] <> '' Then
  512.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry1[1], $Entry1)
  513.                         EndIf
  514.                         If $splittenFileToFSatEntry2[1] <> '' Then
  515.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry2[1], $Entry2)
  516.                         EndIf
  517.                         If $splittenFileToFSatEntry3[1] <> '' Then
  518.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry3[1], $Entry3)
  519.                         EndIf
  520.                         If $splittenFileToFSatEntry4[1] <> '' Then
  521.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry4[1], $Entry4)
  522.                         EndIf
  523.                         If $splittenFileToFSatEntry5[1] <> '' Then
  524.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry5[1], $Entry5)
  525.                         EndIf
  526.                         If $splittenFileToFSatEntry6[1] <> '' Then
  527.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry6[1], $Entry6)
  528.                         EndIf
  529.                         If $splittenFileToFSatEntry7[1] <> '' Then
  530.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry7[1], $Entry7)
  531.                         EndIf
  532.                         If $splittenFileToFSatEntry8[1] <> '' Then
  533.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry8[1], $Entry8)
  534.                         EndIf
  535.                         If $splittenFileToFSatEntry9[1] <> '' Then
  536.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry9[1], $Entry9)
  537.                         EndIf
  538.                         If $splittenFileToFSatEntry10[1] <> '' Then
  539.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry10[1], $Entry10)
  540.                         EndIf
  541.                         If $splittenFileToFSatEntry11[1] <> '' Then
  542.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry11[1], $Entry11)
  543.                         EndIf
  544.                         If $splittenFileToFSatEntry12[1] <> '' Then
  545.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry12[1], $Entry12)
  546.                         EndIf
  547.                         If $splittenFileToFSatEntry13[1] <> '' Then
  548.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry13[1], $Entry13)
  549.                         EndIf
  550.                         If $splittenFileToFSatEntry14[1] <> '' Then
  551.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry14[1], $Entry14)
  552.                         EndIf
  553.                         If $splittenFileToFSatEntry15[1] <> '' Then
  554.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry15[1], $Entry15)
  555.                         EndIf
  556.                         If $splittenFileToFSatEntry16[1] <> '' Then
  557.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry16[1], $Entry16)
  558.                         EndIf
  559.                        
  560.                         _IMAPI2_BurnFSToDrive($FileSystem, _IMAPI2_DriveGetObj($ID_Of_Drives[1]))
  561.                        
  562.                     ElseIf GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[2])) & ':' Then
  563.                         If $Formatieren = True Then
  564.                             _IMAPI2_DriveEraseDisc(_IMAPI2_DriveGetObj($ID_Of_Drives[2]))
  565.                         EndIf
  566.                         $FileSystem = _IMAPI2_CreateFSForDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[2]), GuiCtrlRead($Input2))
  567.                        
  568.                         If $splittenFileToFSatEntry0[1] <> '' Then
  569.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry0[1], $Entry0)
  570.                         EndIf
  571.                         If $splittenFileToFSatEntry1[1] <> '' Then
  572.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry1[1], $Entry1)
  573.                         EndIf
  574.                         If $splittenFileToFSatEntry2[1] <> '' Then
  575.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry2[1], $Entry2)
  576.                         EndIf
  577.                         If $splittenFileToFSatEntry3[1] <> '' Then
  578.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry3[1], $Entry3)
  579.                         EndIf
  580.                         If $splittenFileToFSatEntry4[1] <> '' Then
  581.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry4[1], $Entry4)
  582.                         EndIf
  583.                         If $splittenFileToFSatEntry5[1] <> '' Then
  584.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry5[1], $Entry5)
  585.                         EndIf
  586.                         If $splittenFileToFSatEntry6[1] <> '' Then
  587.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry6[1], $Entry6)
  588.                         EndIf
  589.                         If $splittenFileToFSatEntry7[1] <> '' Then
  590.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry7[1], $Entry7)
  591.                         EndIf
  592.                         If $splittenFileToFSatEntry8[1] <> '' Then
  593.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry8[1], $Entry8)
  594.                         EndIf
  595.                         If $splittenFileToFSatEntry9[1] <> '' Then
  596.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry9[1], $Entry9)
  597.                         EndIf
  598.                         If $splittenFileToFSatEntry10[1] <> '' Then
  599.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry10[1], $Entry10)
  600.                         EndIf
  601.                         If $splittenFileToFSatEntry11[1] <> '' Then
  602.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry11[1], $Entry11)
  603.                         EndIf
  604.                         If $splittenFileToFSatEntry12[1] <> '' Then
  605.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry12[1], $Entry12)
  606.                         EndIf
  607.                         If $splittenFileToFSatEntry13[1] <> '' Then
  608.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry13[1], $Entry13)
  609.                         EndIf
  610.                         If $splittenFileToFSatEntry14[1] <> '' Then
  611.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry14[1], $Entry14)
  612.                         EndIf
  613.                         If $splittenFileToFSatEntry15[1] <> '' Then
  614.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry15[1], $Entry15)
  615.                         EndIf
  616.                         If $splittenFileToFSatEntry16[1] <> '' Then
  617.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry16[1], $Entry16)
  618.                         EndIf
  619.                        
  620.                         _IMAPI2_BurnFSToDrive($FileSystem, _IMAPI2_DriveGetObj($ID_Of_Drives[2]))
  621.                        
  622.                     EndIf
  623.                
  624.                 ElseIf $ID_Of_Drives[0] = 3 Then
  625.                     If GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[1])) & ':' Then
  626.                         If $Formatieren = True Then
  627.                             _IMAPI2_DriveEraseDisc(_IMAPI2_DriveGetObj($ID_Of_Drives[1]))
  628.                         EndIf
  629.                         $FileSystem = _IMAPI2_CreateFSForDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[1]), GuiCtrlRead($Input2))
  630.                        
  631.                         If $splittenFileToFSatEntry0[1] <> '' Then
  632.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry0[1], $Entry0)
  633.                         EndIf
  634.                         If $splittenFileToFSatEntry1[1] <> '' Then
  635.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry1[1], $Entry1)
  636.                         EndIf
  637.                         If $splittenFileToFSatEntry2[1] <> '' Then
  638.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry2[1], $Entry2)
  639.                         EndIf
  640.                         If $splittenFileToFSatEntry3[1] <> '' Then
  641.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry3[1], $Entry3)
  642.                         EndIf
  643.                         If $splittenFileToFSatEntry4[1] <> '' Then
  644.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry4[1], $Entry4)
  645.                         EndIf
  646.                         If $splittenFileToFSatEntry5[1] <> '' Then
  647.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry5[1], $Entry5)
  648.                         EndIf
  649.                         If $splittenFileToFSatEntry6[1] <> '' Then
  650.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry6[1], $Entry6)
  651.                         EndIf
  652.                         If $splittenFileToFSatEntry7[1] <> '' Then
  653.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry7[1], $Entry7)
  654.                         EndIf
  655.                         If $splittenFileToFSatEntry8[1] <> '' Then
  656.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry8[1], $Entry8)
  657.                         EndIf
  658.                         If $splittenFileToFSatEntry9[1] <> '' Then
  659.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry9[1], $Entry9)
  660.                         EndIf
  661.                         If $splittenFileToFSatEntry10[1] <> '' Then
  662.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry10[1], $Entry10)
  663.                         EndIf
  664.                         If $splittenFileToFSatEntry11[1] <> '' Then
  665.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry11[1], $Entry11)
  666.                         EndIf
  667.                         If $splittenFileToFSatEntry12[1] <> '' Then
  668.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry12[1], $Entry12)
  669.                         EndIf
  670.                         If $splittenFileToFSatEntry13[1] <> '' Then
  671.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry13[1], $Entry13)
  672.                         EndIf
  673.                         If $splittenFileToFSatEntry14[1] <> '' Then
  674.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry14[1], $Entry14)
  675.                         EndIf
  676.                         If $splittenFileToFSatEntry15[1] <> '' Then
  677.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry15[1], $Entry15)
  678.                         EndIf
  679.                         If $splittenFileToFSatEntry16[1] <> '' Then
  680.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry16[1], $Entry16)
  681.                         EndIf
  682.                        
  683.                         _IMAPI2_BurnFSToDrive($FileSystem, _IMAPI2_DriveGetObj($ID_Of_Drives[1]))
  684.                        
  685.                     ElseIf GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[2])) & ':' Then
  686.                         If $Formatieren = True Then
  687.                             _IMAPI2_DriveEraseDisc(_IMAPI2_DriveGetObj($ID_Of_Drives[2]))
  688.                         EndIf
  689.                         $FileSystem = _IMAPI2_CreateFSForDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[2]), GuiCtrlRead($Input2))
  690.                        
  691.                         If $splittenFileToFSatEntry0[1] <> '' Then
  692.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry0[1], $Entry0)
  693.                         EndIf
  694.                         If $splittenFileToFSatEntry1[1] <> '' Then
  695.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry1[1], $Entry1)
  696.                         EndIf
  697.                         If $splittenFileToFSatEntry2[1] <> '' Then
  698.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry2[1], $Entry2)
  699.                         EndIf
  700.                         If $splittenFileToFSatEntry3[1] <> '' Then
  701.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry3[1], $Entry3)
  702.                         EndIf
  703.                         If $splittenFileToFSatEntry4[1] <> '' Then
  704.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry4[1], $Entry4)
  705.                         EndIf
  706.                         If $splittenFileToFSatEntry5[1] <> '' Then
  707.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry5[1], $Entry5)
  708.                         EndIf
  709.                         If $splittenFileToFSatEntry6[1] <> '' Then
  710.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry6[1], $Entry6)
  711.                         EndIf
  712.                         If $splittenFileToFSatEntry7[1] <> '' Then
  713.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry7[1], $Entry7)
  714.                         EndIf
  715.                         If $splittenFileToFSatEntry8[1] <> '' Then
  716.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry8[1], $Entry8)
  717.                         EndIf
  718.                         If $splittenFileToFSatEntry9[1] <> '' Then
  719.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry9[1], $Entry9)
  720.                         EndIf
  721.                         If $splittenFileToFSatEntry10[1] <> '' Then
  722.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry10[1], $Entry10)
  723.                         EndIf
  724.                         If $splittenFileToFSatEntry11[1] <> '' Then
  725.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry11[1], $Entry11)
  726.                         EndIf
  727.                         If $splittenFileToFSatEntry12[1] <> '' Then
  728.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry12[1], $Entry12)
  729.                         EndIf
  730.                         If $splittenFileToFSatEntry13[1] <> '' Then
  731.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry13[1], $Entry13)
  732.                         EndIf
  733.                         If $splittenFileToFSatEntry14[1] <> '' Then
  734.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry14[1], $Entry14)
  735.                         EndIf
  736.                         If $splittenFileToFSatEntry15[1] <> '' Then
  737.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry15[1], $Entry15)
  738.                         EndIf
  739.                         If $splittenFileToFSatEntry16[1] <> '' Then
  740.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry16[1], $Entry16)
  741.                         EndIf
  742.                        
  743.                         _IMAPI2_BurnFSToDrive($FileSystem, _IMAPI2_DriveGetObj($ID_Of_Drives[2]))
  744.                        
  745.                     ElseIf GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[3])) & ':' Then
  746.                         If $Formatieren = True Then
  747.                             _IMAPI2_DriveEraseDisc(_IMAPI2_DriveGetObj($ID_Of_Drives[3]))
  748.                         EndIf
  749.                         $FileSystem = _IMAPI2_CreateFSForDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[3]), GuiCtrlRead($Input2))
  750.                        
  751.                         If $splittenFileToFSatEntry0[1] <> '' Then
  752.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry0[1], $Entry0)
  753.                         EndIf
  754.                         If $splittenFileToFSatEntry1[1] <> '' Then
  755.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry1[1], $Entry1)
  756.                         EndIf
  757.                         If $splittenFileToFSatEntry2[1] <> '' Then
  758.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry2[1], $Entry2)
  759.                         EndIf
  760.                         If $splittenFileToFSatEntry3[1] <> '' Then
  761.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry3[1], $Entry3)
  762.                         EndIf
  763.                         If $splittenFileToFSatEntry4[1] <> '' Then
  764.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry4[1], $Entry4)
  765.                         EndIf
  766.                         If $splittenFileToFSatEntry5[1] <> '' Then
  767.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry5[1], $Entry5)
  768.                         EndIf
  769.                         If $splittenFileToFSatEntry6[1] <> '' Then
  770.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry6[1], $Entry6)
  771.                         EndIf
  772.                         If $splittenFileToFSatEntry7[1] <> '' Then
  773.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry7[1], $Entry7)
  774.                         EndIf
  775.                         If $splittenFileToFSatEntry8[1] <> '' Then
  776.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry8[1], $Entry8)
  777.                         EndIf
  778.                         If $splittenFileToFSatEntry9[1] <> '' Then
  779.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry9[1], $Entry9)
  780.                         EndIf
  781.                         If $splittenFileToFSatEntry10[1] <> '' Then
  782.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry10[1], $Entry10)
  783.                         EndIf
  784.                         If $splittenFileToFSatEntry11[1] <> '' Then
  785.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry11[1], $Entry11)
  786.                         EndIf
  787.                         If $splittenFileToFSatEntry12[1] <> '' Then
  788.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry12[1], $Entry12)
  789.                         EndIf
  790.                         If $splittenFileToFSatEntry13[1] <> '' Then
  791.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry13[1], $Entry13)
  792.                         EndIf
  793.                         If $splittenFileToFSatEntry14[1] <> '' Then
  794.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry14[1], $Entry14)
  795.                         EndIf
  796.                         If $splittenFileToFSatEntry15[1] <> '' Then
  797.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry15[1], $Entry15)
  798.                         EndIf
  799.                         If $splittenFileToFSatEntry16[1] <> '' Then
  800.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry16[1], $Entry16)
  801.                         EndIf
  802.                        
  803.                         _IMAPI2_BurnFSToDrive($FileSystem, _IMAPI2_DriveGetObj($ID_Of_Drives[3]))
  804.                        
  805.                     EndIf
  806.                
  807.                 ElseIf $ID_Of_Drives[0] = 4 Then
  808.                     If GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[1])) & ':' Then
  809.                         If $Formatieren = True Then
  810.                             _IMAPI2_DriveEraseDisc(_IMAPI2_DriveGetObj($ID_Of_Drives[1]))
  811.                         EndIf
  812.                         $FileSystem = _IMAPI2_CreateFSForDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[1]), GuiCtrlRead($Input2))
  813.                        
  814.                         If $splittenFileToFSatEntry0[1] <> '' Then
  815.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry0[1], $Entry0)
  816.                         EndIf
  817.                         If $splittenFileToFSatEntry1[1] <> '' Then
  818.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry1[1], $Entry1)
  819.                         EndIf
  820.                         If $splittenFileToFSatEntry2[1] <> '' Then
  821.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry2[1], $Entry2)
  822.                         EndIf
  823.                         If $splittenFileToFSatEntry3[1] <> '' Then
  824.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry3[1], $Entry3)
  825.                         EndIf
  826.                         If $splittenFileToFSatEntry4[1] <> '' Then
  827.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry4[1], $Entry4)
  828.                         EndIf
  829.                         If $splittenFileToFSatEntry5[1] <> '' Then
  830.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry5[1], $Entry5)
  831.                         EndIf
  832.                         If $splittenFileToFSatEntry6[1] <> '' Then
  833.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry6[1], $Entry6)
  834.                         EndIf
  835.                         If $splittenFileToFSatEntry7[1] <> '' Then
  836.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry7[1], $Entry7)
  837.                         EndIf
  838.                         If $splittenFileToFSatEntry8[1] <> '' Then
  839.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry8[1], $Entry8)
  840.                         EndIf
  841.                         If $splittenFileToFSatEntry9[1] <> '' Then
  842.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry9[1], $Entry9)
  843.                         EndIf
  844.                         If $splittenFileToFSatEntry10[1] <> '' Then
  845.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry10[1], $Entry10)
  846.                         EndIf
  847.                         If $splittenFileToFSatEntry11[1] <> '' Then
  848.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry11[1], $Entry11)
  849.                         EndIf
  850.                         If $splittenFileToFSatEntry12[1] <> '' Then
  851.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry12[1], $Entry12)
  852.                         EndIf
  853.                         If $splittenFileToFSatEntry13[1] <> '' Then
  854.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry13[1], $Entry13)
  855.                         EndIf
  856.                         If $splittenFileToFSatEntry14[1] <> '' Then
  857.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry14[1], $Entry14)
  858.                         EndIf
  859.                         If $splittenFileToFSatEntry15[1] <> '' Then
  860.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry15[1], $Entry15)
  861.                         EndIf
  862.                         If $splittenFileToFSatEntry16[1] <> '' Then
  863.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry16[1], $Entry16)
  864.                         EndIf
  865.                        
  866.                         _IMAPI2_BurnFSToDrive($FileSystem, _IMAPI2_DriveGetObj($ID_Of_Drives[1]))
  867.                        
  868.                     ElseIf GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[2])) & ':' Then
  869.                         If $Formatieren = True Then
  870.                             _IMAPI2_DriveEraseDisc(_IMAPI2_DriveGetObj($ID_Of_Drives[2]))
  871.                         EndIf
  872.                         $FileSystem = _IMAPI2_CreateFSForDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[2]), GuiCtrlRead($Input2))
  873.                        
  874.                         If $splittenFileToFSatEntry0[1] <> '' Then
  875.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry0[1], $Entry0)
  876.                         EndIf
  877.                         If $splittenFileToFSatEntry1[1] <> '' Then
  878.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry1[1], $Entry1)
  879.                         EndIf
  880.                         If $splittenFileToFSatEntry2[1] <> '' Then
  881.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry2[1], $Entry2)
  882.                         EndIf
  883.                         If $splittenFileToFSatEntry3[1] <> '' Then
  884.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry3[1], $Entry3)
  885.                         EndIf
  886.                         If $splittenFileToFSatEntry4[1] <> '' Then
  887.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry4[1], $Entry4)
  888.                         EndIf
  889.                         If $splittenFileToFSatEntry5[1] <> '' Then
  890.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry5[1], $Entry5)
  891.                         EndIf
  892.                         If $splittenFileToFSatEntry6[1] <> '' Then
  893.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry6[1], $Entry6)
  894.                         EndIf
  895.                         If $splittenFileToFSatEntry7[1] <> '' Then
  896.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry7[1], $Entry7)
  897.                         EndIf
  898.                         If $splittenFileToFSatEntry8[1] <> '' Then
  899.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry8[1], $Entry8)
  900.                         EndIf
  901.                         If $splittenFileToFSatEntry9[1] <> '' Then
  902.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry9[1], $Entry9)
  903.                         EndIf
  904.                         If $splittenFileToFSatEntry10[1] <> '' Then
  905.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry10[1], $Entry10)
  906.                         EndIf
  907.                         If $splittenFileToFSatEntry11[1] <> '' Then
  908.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry11[1], $Entry11)
  909.                         EndIf
  910.                         If $splittenFileToFSatEntry12[1] <> '' Then
  911.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry12[1], $Entry12)
  912.                         EndIf
  913.                         If $splittenFileToFSatEntry13[1] <> '' Then
  914.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry13[1], $Entry13)
  915.                         EndIf
  916.                         If $splittenFileToFSatEntry14[1] <> '' Then
  917.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry14[1], $Entry14)
  918.                         EndIf
  919.                         If $splittenFileToFSatEntry15[1] <> '' Then
  920.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry15[1], $Entry15)
  921.                         EndIf
  922.                         If $splittenFileToFSatEntry16[1] <> '' Then
  923.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry16[1], $Entry16)
  924.                         EndIf
  925.                        
  926.                         _IMAPI2_BurnFSToDrive($FileSystem, _IMAPI2_DriveGetObj($ID_Of_Drives[2]))
  927.                        
  928.                     ElseIf GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[3])) & ':' Then
  929.                         If $Formatieren = True Then
  930.                             _IMAPI2_DriveEraseDisc(_IMAPI2_DriveGetObj($ID_Of_Drives[3]))
  931.                         EndIf
  932.                         $FileSystem = _IMAPI2_CreateFSForDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[3]), GuiCtrlRead($Input2))
  933.                        
  934.                         If $splittenFileToFSatEntry0[1] <> '' Then
  935.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry0[1], $Entry0)
  936.                         EndIf
  937.                         If $splittenFileToFSatEntry1[1] <> '' Then
  938.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry1[1], $Entry1)
  939.                         EndIf
  940.                         If $splittenFileToFSatEntry2[1] <> '' Then
  941.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry2[1], $Entry2)
  942.                         EndIf
  943.                         If $splittenFileToFSatEntry3[1] <> '' Then
  944.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry3[1], $Entry3)
  945.                         EndIf
  946.                         If $splittenFileToFSatEntry4[1] <> '' Then
  947.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry4[1], $Entry4)
  948.                         EndIf
  949.                         If $splittenFileToFSatEntry5[1] <> '' Then
  950.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry5[1], $Entry5)
  951.                         EndIf
  952.                         If $splittenFileToFSatEntry6[1] <> '' Then
  953.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry6[1], $Entry6)
  954.                         EndIf
  955.                         If $splittenFileToFSatEntry7[1] <> '' Then
  956.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry7[1], $Entry7)
  957.                         EndIf
  958.                         If $splittenFileToFSatEntry8[1] <> '' Then
  959.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry8[1], $Entry8)
  960.                         EndIf
  961.                         If $splittenFileToFSatEntry9[1] <> '' Then
  962.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry9[1], $Entry9)
  963.                         EndIf
  964.                         If $splittenFileToFSatEntry10[1] <> '' Then
  965.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry10[1], $Entry10)
  966.                         EndIf
  967.                         If $splittenFileToFSatEntry11[1] <> '' Then
  968.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry11[1], $Entry11)
  969.                         EndIf
  970.                         If $splittenFileToFSatEntry12[1] <> '' Then
  971.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry12[1], $Entry12)
  972.                         EndIf
  973.                         If $splittenFileToFSatEntry13[1] <> '' Then
  974.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry13[1], $Entry13)
  975.                         EndIf
  976.                         If $splittenFileToFSatEntry14[1] <> '' Then
  977.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry14[1], $Entry14)
  978.                         EndIf
  979.                         If $splittenFileToFSatEntry15[1] <> '' Then
  980.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry15[1], $Entry15)
  981.                         EndIf
  982.                         If $splittenFileToFSatEntry16[1] <> '' Then
  983.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry16[1], $Entry16)
  984.                         EndIf
  985.                        
  986.                         _IMAPI2_BurnFSToDrive($FileSystem, _IMAPI2_DriveGetObj($ID_Of_Drives[3]))
  987.                        
  988.                     ElseIf GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[4])) & ':' Then
  989.                         If $Formatieren = True Then
  990.                             _IMAPI2_DriveEraseDisc(_IMAPI2_DriveGetObj($ID_Of_Drives[4]))
  991.                         EndIf
  992.                         $FileSystem = _IMAPI2_CreateFSForDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[4]), GuiCtrlRead($Input2))
  993.                        
  994.                         If $splittenFileToFSatEntry0[1] <> '' Then
  995.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry0[1], $Entry0)
  996.                         EndIf
  997.                         If $splittenFileToFSatEntry1[1] <> '' Then
  998.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry1[1], $Entry1)
  999.                         EndIf
  1000.                         If $splittenFileToFSatEntry2[1] <> '' Then
  1001.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry2[1], $Entry2)
  1002.                         EndIf
  1003.                         If $splittenFileToFSatEntry3[1] <> '' Then
  1004.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry3[1], $Entry3)
  1005.                         EndIf
  1006.                         If $splittenFileToFSatEntry4[1] <> '' Then
  1007.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry4[1], $Entry4)
  1008.                         EndIf
  1009.                         If $splittenFileToFSatEntry5[1] <> '' Then
  1010.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry5[1], $Entry5)
  1011.                         EndIf
  1012.                         If $splittenFileToFSatEntry6[1] <> '' Then
  1013.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry6[1], $Entry6)
  1014.                         EndIf
  1015.                         If $splittenFileToFSatEntry7[1] <> '' Then
  1016.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry7[1], $Entry7)
  1017.                         EndIf
  1018.                         If $splittenFileToFSatEntry8[1] <> '' Then
  1019.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry8[1], $Entry8)
  1020.                         EndIf
  1021.                         If $splittenFileToFSatEntry9[1] <> '' Then
  1022.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry9[1], $Entry9)
  1023.                         EndIf
  1024.                         If $splittenFileToFSatEntry10[1] <> '' Then
  1025.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry10[1], $Entry10)
  1026.                         EndIf
  1027.                         If $splittenFileToFSatEntry11[1] <> '' Then
  1028.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry11[1], $Entry11)
  1029.                         EndIf
  1030.                         If $splittenFileToFSatEntry12[1] <> '' Then
  1031.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry12[1], $Entry12)
  1032.                         EndIf
  1033.                         If $splittenFileToFSatEntry13[1] <> '' Then
  1034.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry13[1], $Entry13)
  1035.                         EndIf
  1036.                         If $splittenFileToFSatEntry14[1] <> '' Then
  1037.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry14[1], $Entry14)
  1038.                         EndIf
  1039.                         If $splittenFileToFSatEntry15[1] <> '' Then
  1040.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry15[1], $Entry15)
  1041.                         EndIf
  1042.                         If $splittenFileToFSatEntry16[1] <> '' Then
  1043.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry16[1], $Entry16)
  1044.                         EndIf
  1045.                        
  1046.                         _IMAPI2_BurnFSToDrive($FileSystem, _IMAPI2_DriveGetObj($ID_Of_Drives[4]))
  1047.                        
  1048.                     EndIf
  1049.                
  1050.                 ElseIf $ID_Of_Drives[0] = 5 Then
  1051.                     If GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[1])) & ':' Then
  1052.                         If $Formatieren = True Then
  1053.                             _IMAPI2_DriveEraseDisc(_IMAPI2_DriveGetObj($ID_Of_Drives[1]))
  1054.                         EndIf
  1055.                         $FileSystem = _IMAPI2_CreateFSForDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[1]), GuiCtrlRead($Input2))
  1056.                        
  1057.                         If $splittenFileToFSatEntry0[1] <> '' Then
  1058.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry0[1], $Entry0)
  1059.                         EndIf
  1060.                         If $splittenFileToFSatEntry1[1] <> '' Then
  1061.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry1[1], $Entry1)
  1062.                         EndIf
  1063.                         If $splittenFileToFSatEntry2[1] <> '' Then
  1064.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry2[1], $Entry2)
  1065.                         EndIf
  1066.                         If $splittenFileToFSatEntry3[1] <> '' Then
  1067.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry3[1], $Entry3)
  1068.                         EndIf
  1069.                         If $splittenFileToFSatEntry4[1] <> '' Then
  1070.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry4[1], $Entry4)
  1071.                         EndIf
  1072.                         If $splittenFileToFSatEntry5[1] <> '' Then
  1073.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry5[1], $Entry5)
  1074.                         EndIf
  1075.                         If $splittenFileToFSatEntry6[1] <> '' Then
  1076.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry6[1], $Entry6)
  1077.                         EndIf
  1078.                         If $splittenFileToFSatEntry7[1] <> '' Then
  1079.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry7[1], $Entry7)
  1080.                         EndIf
  1081.                         If $splittenFileToFSatEntry8[1] <> '' Then
  1082.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry8[1], $Entry8)
  1083.                         EndIf
  1084.                         If $splittenFileToFSatEntry9[1] <> '' Then
  1085.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry9[1], $Entry9)
  1086.                         EndIf
  1087.                         If $splittenFileToFSatEntry10[1] <> '' Then
  1088.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry10[1], $Entry10)
  1089.                         EndIf
  1090.                         If $splittenFileToFSatEntry11[1] <> '' Then
  1091.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry11[1], $Entry11)
  1092.                         EndIf
  1093.                         If $splittenFileToFSatEntry12[1] <> '' Then
  1094.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry12[1], $Entry12)
  1095.                         EndIf
  1096.                         If $splittenFileToFSatEntry13[1] <> '' Then
  1097.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry13[1], $Entry13)
  1098.                         EndIf
  1099.                         If $splittenFileToFSatEntry14[1] <> '' Then
  1100.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry14[1], $Entry14)
  1101.                         EndIf
  1102.                         If $splittenFileToFSatEntry15[1] <> '' Then
  1103.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry15[1], $Entry15)
  1104.                         EndIf
  1105.                         If $splittenFileToFSatEntry16[1] <> '' Then
  1106.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry16[1], $Entry16)
  1107.                         EndIf
  1108.                        
  1109.                         _IMAPI2_BurnFSToDrive($FileSystem, _IMAPI2_DriveGetObj($ID_Of_Drives[1]))
  1110.                                                
  1111.                     ElseIf GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[2])) & ':' Then
  1112.                         If $Formatieren = True Then
  1113.                             _IMAPI2_DriveEraseDisc(_IMAPI2_DriveGetObj($ID_Of_Drives[2]))
  1114.                         EndIf
  1115.                         $FileSystem = _IMAPI2_CreateFSForDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[2]), GuiCtrlRead($Input2))
  1116.                        
  1117.                         If $splittenFileToFSatEntry0[1] <> '' Then
  1118.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry0[1], $Entry0)
  1119.                         EndIf
  1120.                         If $splittenFileToFSatEntry1[1] <> '' Then
  1121.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry1[1], $Entry1)
  1122.                         EndIf
  1123.                         If $splittenFileToFSatEntry2[1] <> '' Then
  1124.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry2[1], $Entry2)
  1125.                         EndIf
  1126.                         If $splittenFileToFSatEntry3[1] <> '' Then
  1127.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry3[1], $Entry3)
  1128.                         EndIf
  1129.                         If $splittenFileToFSatEntry4[1] <> '' Then
  1130.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry4[1], $Entry4)
  1131.                         EndIf
  1132.                         If $splittenFileToFSatEntry5[1] <> '' Then
  1133.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry5[1], $Entry5)
  1134.                         EndIf
  1135.                         If $splittenFileToFSatEntry6[1] <> '' Then
  1136.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry6[1], $Entry6)
  1137.                         EndIf
  1138.                         If $splittenFileToFSatEntry7[1] <> '' Then
  1139.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry7[1], $Entry7)
  1140.                         EndIf
  1141.                         If $splittenFileToFSatEntry8[1] <> '' Then
  1142.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry8[1], $Entry8)
  1143.                         EndIf
  1144.                         If $splittenFileToFSatEntry9[1] <> '' Then
  1145.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry9[1], $Entry9)
  1146.                         EndIf
  1147.                         If $splittenFileToFSatEntry10[1] <> '' Then
  1148.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry10[1], $Entry10)
  1149.                         EndIf
  1150.                         If $splittenFileToFSatEntry11[1] <> '' Then
  1151.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry11[1], $Entry11)
  1152.                         EndIf
  1153.                         If $splittenFileToFSatEntry12[1] <> '' Then
  1154.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry12[1], $Entry12)
  1155.                         EndIf
  1156.                         If $splittenFileToFSatEntry13[1] <> '' Then
  1157.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry13[1], $Entry13)
  1158.                         EndIf
  1159.                         If $splittenFileToFSatEntry14[1] <> '' Then
  1160.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry14[1], $Entry14)
  1161.                         EndIf
  1162.                         If $splittenFileToFSatEntry15[1] <> '' Then
  1163.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry15[1], $Entry15)
  1164.                         EndIf
  1165.                         If $splittenFileToFSatEntry16[1] <> '' Then
  1166.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry16[1], $Entry16)
  1167.                         EndIf
  1168.                        
  1169.                         _IMAPI2_BurnFSToDrive($FileSystem, _IMAPI2_DriveGetObj($ID_Of_Drives[2]))
  1170.                        
  1171.                     ElseIf GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[3])) & ':' Then
  1172.                         If $Formatieren = True Then
  1173.                             _IMAPI2_DriveEraseDisc(_IMAPI2_DriveGetObj($ID_Of_Drives[3]))
  1174.                         EndIf
  1175.                         $FileSystem = _IMAPI2_CreateFSForDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[3]), GuiCtrlRead($Input2))
  1176.                        
  1177.                         If $splittenFileToFSatEntry0[1] <> '' Then
  1178.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry0[1], $Entry0)
  1179.                         EndIf
  1180.                         If $splittenFileToFSatEntry1[1] <> '' Then
  1181.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry1[1], $Entry1)
  1182.                         EndIf
  1183.                         If $splittenFileToFSatEntry2[1] <> '' Then
  1184.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry2[1], $Entry2)
  1185.                         EndIf
  1186.                         If $splittenFileToFSatEntry3[1] <> '' Then
  1187.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry3[1], $Entry3)
  1188.                         EndIf
  1189.                         If $splittenFileToFSatEntry4[1] <> '' Then
  1190.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry4[1], $Entry4)
  1191.                         EndIf
  1192.                         If $splittenFileToFSatEntry5[1] <> '' Then
  1193.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry5[1], $Entry5)
  1194.                         EndIf
  1195.                         If $splittenFileToFSatEntry6[1] <> '' Then
  1196.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry6[1], $Entry6)
  1197.                         EndIf
  1198.                         If $splittenFileToFSatEntry7[1] <> '' Then
  1199.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry7[1], $Entry7)
  1200.                         EndIf
  1201.                         If $splittenFileToFSatEntry8[1] <> '' Then
  1202.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry8[1], $Entry8)
  1203.                         EndIf
  1204.                         If $splittenFileToFSatEntry9[1] <> '' Then
  1205.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry9[1], $Entry9)
  1206.                         EndIf
  1207.                         If $splittenFileToFSatEntry10[1] <> '' Then
  1208.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry10[1], $Entry10)
  1209.                         EndIf
  1210.                         If $splittenFileToFSatEntry11[1] <> '' Then
  1211.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry11[1], $Entry11)
  1212.                         EndIf
  1213.                         If $splittenFileToFSatEntry12[1] <> '' Then
  1214.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry12[1], $Entry12)
  1215.                         EndIf
  1216.                         If $splittenFileToFSatEntry13[1] <> '' Then
  1217.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry13[1], $Entry13)
  1218.                         EndIf
  1219.                         If $splittenFileToFSatEntry14[1] <> '' Then
  1220.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry14[1], $Entry14)
  1221.                         EndIf
  1222.                         If $splittenFileToFSatEntry15[1] <> '' Then
  1223.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry15[1], $Entry15)
  1224.                         EndIf
  1225.                         If $splittenFileToFSatEntry16[1] <> '' Then
  1226.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry16[1], $Entry16)
  1227.                         EndIf
  1228.                        
  1229.                         _IMAPI2_BurnFSToDrive($FileSystem, _IMAPI2_DriveGetObj($ID_Of_Drives[3]))
  1230.                        
  1231.                     ElseIf GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[4])) & ':' Then
  1232.                         If $Formatieren = True Then
  1233.                             _IMAPI2_DriveEraseDisc(_IMAPI2_DriveGetObj($ID_Of_Drives[4]))
  1234.                         EndIf
  1235.                         $FileSystem = _IMAPI2_CreateFSForDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[4]), GuiCtrlRead($Input2))
  1236.                        
  1237.                         If $splittenFileToFSatEntry0[1] <> '' Then
  1238.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry0[1], $Entry0)
  1239.                         EndIf
  1240.                         If $splittenFileToFSatEntry1[1] <> '' Then
  1241.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry1[1], $Entry1)
  1242.                         EndIf
  1243.                         If $splittenFileToFSatEntry2[1] <> '' Then
  1244.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry2[1], $Entry2)
  1245.                         EndIf
  1246.                         If $splittenFileToFSatEntry3[1] <> '' Then
  1247.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry3[1], $Entry3)
  1248.                         EndIf
  1249.                         If $splittenFileToFSatEntry4[1] <> '' Then
  1250.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry4[1], $Entry4)
  1251.                         EndIf
  1252.                         If $splittenFileToFSatEntry5[1] <> '' Then
  1253.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry5[1], $Entry5)
  1254.                         EndIf
  1255.                         If $splittenFileToFSatEntry6[1] <> '' Then
  1256.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry6[1], $Entry6)
  1257.                         EndIf
  1258.                         If $splittenFileToFSatEntry7[1] <> '' Then
  1259.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry7[1], $Entry7)
  1260.                         EndIf
  1261.                         If $splittenFileToFSatEntry8[1] <> '' Then
  1262.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry8[1], $Entry8)
  1263.                         EndIf
  1264.                         If $splittenFileToFSatEntry9[1] <> '' Then
  1265.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry9[1], $Entry9)
  1266.                         EndIf
  1267.                         If $splittenFileToFSatEntry10[1] <> '' Then
  1268.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry10[1], $Entry10)
  1269.                         EndIf
  1270.                         If $splittenFileToFSatEntry11[1] <> '' Then
  1271.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry11[1], $Entry11)
  1272.                         EndIf
  1273.                         If $splittenFileToFSatEntry12[1] <> '' Then
  1274.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry12[1], $Entry12)
  1275.                         EndIf
  1276.                         If $splittenFileToFSatEntry13[1] <> '' Then
  1277.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry13[1], $Entry13)
  1278.                         EndIf
  1279.                         If $splittenFileToFSatEntry14[1] <> '' Then
  1280.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry14[1], $Entry14)
  1281.                         EndIf
  1282.                         If $splittenFileToFSatEntry15[1] <> '' Then
  1283.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry15[1], $Entry15)
  1284.                         EndIf
  1285.                         If $splittenFileToFSatEntry16[1] <> '' Then
  1286.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry16[1], $Entry16)
  1287.                         EndIf
  1288.                        
  1289.                         _IMAPI2_BurnFSToDrive($FileSystem, _IMAPI2_DriveGetObj($ID_Of_Drives[4]))
  1290.                        
  1291.                     ElseIf GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[5])) & ':' Then
  1292.                         If $Formatieren = True Then
  1293.                             _IMAPI2_DriveEraseDisc(_IMAPI2_DriveGetObj($ID_Of_Drives[5]))
  1294.                         EndIf
  1295.                         $FileSystem = _IMAPI2_CreateFSForDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[5]), GuiCtrlRead($Input2))
  1296.                        
  1297.                         If $splittenFileToFSatEntry0[1] <> '' Then
  1298.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry0[1], $Entry0)
  1299.                         EndIf
  1300.                         If $splittenFileToFSatEntry1[1] <> '' Then
  1301.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry1[1], $Entry1)
  1302.                         EndIf
  1303.                         If $splittenFileToFSatEntry2[1] <> '' Then
  1304.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry2[1], $Entry2)
  1305.                         EndIf
  1306.                         If $splittenFileToFSatEntry3[1] <> '' Then
  1307.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry3[1], $Entry3)
  1308.                         EndIf
  1309.                         If $splittenFileToFSatEntry4[1] <> '' Then
  1310.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry4[1], $Entry4)
  1311.                         EndIf
  1312.                         If $splittenFileToFSatEntry5[1] <> '' Then
  1313.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry5[1], $Entry5)
  1314.                         EndIf
  1315.                         If $splittenFileToFSatEntry6[1] <> '' Then
  1316.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry6[1], $Entry6)
  1317.                         EndIf
  1318.                         If $splittenFileToFSatEntry7[1] <> '' Then
  1319.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry7[1], $Entry7)
  1320.                         EndIf
  1321.                         If $splittenFileToFSatEntry8[1] <> '' Then
  1322.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry8[1], $Entry8)
  1323.                         EndIf
  1324.                         If $splittenFileToFSatEntry9[1] <> '' Then
  1325.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry9[1], $Entry9)
  1326.                         EndIf
  1327.                         If $splittenFileToFSatEntry10[1] <> '' Then
  1328.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry10[1], $Entry10)
  1329.                         EndIf
  1330.                         If $splittenFileToFSatEntry11[1] <> '' Then
  1331.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry11[1], $Entry11)
  1332.                         EndIf
  1333.                         If $splittenFileToFSatEntry12[1] <> '' Then
  1334.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry12[1], $Entry12)
  1335.                         EndIf
  1336.                         If $splittenFileToFSatEntry13[1] <> '' Then
  1337.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry13[1], $Entry13)
  1338.                         EndIf
  1339.                         If $splittenFileToFSatEntry14[1] <> '' Then
  1340.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry14[1], $Entry14)
  1341.                         EndIf
  1342.                         If $splittenFileToFSatEntry15[1] <> '' Then
  1343.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry15[1], $Entry15)
  1344.                         EndIf
  1345.                         If $splittenFileToFSatEntry16[1] <> '' Then
  1346.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry16[1], $Entry16)
  1347.                         EndIf
  1348.                        
  1349.                         _IMAPI2_BurnFSToDrive($FileSystem, _IMAPI2_DriveGetObj($ID_Of_Drives[5]))
  1350.                        
  1351.                     EndIf
  1352.                
  1353.                 ElseIf $ID_Of_Drives[0] = 6 Then
  1354.                     If GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[1])) & ':' Then
  1355.                         If $Formatieren = True Then
  1356.                             _IMAPI2_DriveEraseDisc(_IMAPI2_DriveGetObj($ID_Of_Drives[1]))
  1357.                         EndIf
  1358.                         $FileSystem = _IMAPI2_CreateFSForDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[1]), GuiCtrlRead($Input2))
  1359.                        
  1360.                         If $splittenFileToFSatEntry0[1] <> '' Then
  1361.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry0[1], $Entry0)
  1362.                         EndIf
  1363.                         If $splittenFileToFSatEntry1[1] <> '' Then
  1364.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry1[1], $Entry1)
  1365.                         EndIf
  1366.                         If $splittenFileToFSatEntry2[1] <> '' Then
  1367.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry2[1], $Entry2)
  1368.                         EndIf
  1369.                         If $splittenFileToFSatEntry3[1] <> '' Then
  1370.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry3[1], $Entry3)
  1371.                         EndIf
  1372.                         If $splittenFileToFSatEntry4[1] <> '' Then
  1373.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry4[1], $Entry4)
  1374.                         EndIf
  1375.                         If $splittenFileToFSatEntry5[1] <> '' Then
  1376.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry5[1], $Entry5)
  1377.                         EndIf
  1378.                         If $splittenFileToFSatEntry6[1] <> '' Then
  1379.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry6[1], $Entry6)
  1380.                         EndIf
  1381.                         If $splittenFileToFSatEntry7[1] <> '' Then
  1382.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry7[1], $Entry7)
  1383.                         EndIf
  1384.                         If $splittenFileToFSatEntry8[1] <> '' Then
  1385.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry8[1], $Entry8)
  1386.                         EndIf
  1387.                         If $splittenFileToFSatEntry9[1] <> '' Then
  1388.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry9[1], $Entry9)
  1389.                         EndIf
  1390.                         If $splittenFileToFSatEntry10[1] <> '' Then
  1391.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry10[1], $Entry10)
  1392.                         EndIf
  1393.                         If $splittenFileToFSatEntry11[1] <> '' Then
  1394.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry11[1], $Entry11)
  1395.                         EndIf
  1396.                         If $splittenFileToFSatEntry12[1] <> '' Then
  1397.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry12[1], $Entry12)
  1398.                         EndIf
  1399.                         If $splittenFileToFSatEntry13[1] <> '' Then
  1400.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry13[1], $Entry13)
  1401.                         EndIf
  1402.                         If $splittenFileToFSatEntry14[1] <> '' Then
  1403.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry14[1], $Entry14)
  1404.                         EndIf
  1405.                         If $splittenFileToFSatEntry15[1] <> '' Then
  1406.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry15[1], $Entry15)
  1407.                         EndIf
  1408.                         If $splittenFileToFSatEntry16[1] <> '' Then
  1409.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry16[1], $Entry16)
  1410.                         EndIf
  1411.                        
  1412.                         _IMAPI2_BurnFSToDrive($FileSystem, _IMAPI2_DriveGetObj($ID_Of_Drives[1]))
  1413.                        
  1414.                     ElseIf GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[2])) & ':' Then
  1415.                         If $Formatieren = True Then
  1416.                             _IMAPI2_DriveEraseDisc(_IMAPI2_DriveGetObj($ID_Of_Drives[2]))
  1417.                         EndIf
  1418.                         $FileSystem = _IMAPI2_CreateFSForDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[2]), GuiCtrlRead($Input2))
  1419.                        
  1420.                         If $splittenFileToFSatEntry0[1] <> '' Then
  1421.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry0[1], $Entry0)
  1422.                         EndIf
  1423.                         If $splittenFileToFSatEntry1[1] <> '' Then
  1424.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry1[1], $Entry1)
  1425.                         EndIf
  1426.                         If $splittenFileToFSatEntry2[1] <> '' Then
  1427.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry2[1], $Entry2)
  1428.                         EndIf
  1429.                         If $splittenFileToFSatEntry3[1] <> '' Then
  1430.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry3[1], $Entry3)
  1431.                         EndIf
  1432.                         If $splittenFileToFSatEntry4[1] <> '' Then
  1433.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry4[1], $Entry4)
  1434.                         EndIf
  1435.                         If $splittenFileToFSatEntry5[1] <> '' Then
  1436.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry5[1], $Entry5)
  1437.                         EndIf
  1438.                         If $splittenFileToFSatEntry6[1] <> '' Then
  1439.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry6[1], $Entry6)
  1440.                         EndIf
  1441.                         If $splittenFileToFSatEntry7[1] <> '' Then
  1442.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry7[1], $Entry7)
  1443.                         EndIf
  1444.                         If $splittenFileToFSatEntry8[1] <> '' Then
  1445.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry8[1], $Entry8)
  1446.                         EndIf
  1447.                         If $splittenFileToFSatEntry9[1] <> '' Then
  1448.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry9[1], $Entry9)
  1449.                         EndIf
  1450.                         If $splittenFileToFSatEntry10[1] <> '' Then
  1451.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry10[1], $Entry10)
  1452.                         EndIf
  1453.                         If $splittenFileToFSatEntry11[1] <> '' Then
  1454.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry11[1], $Entry11)
  1455.                         EndIf
  1456.                         If $splittenFileToFSatEntry12[1] <> '' Then
  1457.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry12[1], $Entry12)
  1458.                         EndIf
  1459.                         If $splittenFileToFSatEntry13[1] <> '' Then
  1460.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry13[1], $Entry13)
  1461.                         EndIf
  1462.                         If $splittenFileToFSatEntry14[1] <> '' Then
  1463.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry14[1], $Entry14)
  1464.                         EndIf
  1465.                         If $splittenFileToFSatEntry15[1] <> '' Then
  1466.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry15[1], $Entry15)
  1467.                         EndIf
  1468.                         If $splittenFileToFSatEntry16[1] <> '' Then
  1469.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry16[1], $Entry16)
  1470.                         EndIf
  1471.                        
  1472.                         _IMAPI2_BurnFSToDrive($FileSystem, _IMAPI2_DriveGetObj($ID_Of_Drives[2]))
  1473.                        
  1474.                     ElseIf GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[3])) & ':' Then
  1475.                         If $Formatieren = True Then
  1476.                             _IMAPI2_DriveEraseDisc(_IMAPI2_DriveGetObj($ID_Of_Drives[3]))
  1477.                         EndIf
  1478.                         $FileSystem = _IMAPI2_CreateFSForDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[3]), GuiCtrlRead($Input2))
  1479.                        
  1480.                         If $splittenFileToFSatEntry0[1] <> '' Then
  1481.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry0[1], $Entry0)
  1482.                         EndIf
  1483.                         If $splittenFileToFSatEntry1[1] <> '' Then
  1484.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry1[1], $Entry1)
  1485.                         EndIf
  1486.                         If $splittenFileToFSatEntry2[1] <> '' Then
  1487.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry2[1], $Entry2)
  1488.                         EndIf
  1489.                         If $splittenFileToFSatEntry3[1] <> '' Then
  1490.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry3[1], $Entry3)
  1491.                         EndIf
  1492.                         If $splittenFileToFSatEntry4[1] <> '' Then
  1493.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry4[1], $Entry4)
  1494.                         EndIf
  1495.                         If $splittenFileToFSatEntry5[1] <> '' Then
  1496.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry5[1], $Entry5)
  1497.                         EndIf
  1498.                         If $splittenFileToFSatEntry6[1] <> '' Then
  1499.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry6[1], $Entry6)
  1500.                         EndIf
  1501.                         If $splittenFileToFSatEntry7[1] <> '' Then
  1502.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry7[1], $Entry7)
  1503.                         EndIf
  1504.                         If $splittenFileToFSatEntry8[1] <> '' Then
  1505.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry8[1], $Entry8)
  1506.                         EndIf
  1507.                         If $splittenFileToFSatEntry9[1] <> '' Then
  1508.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry9[1], $Entry9)
  1509.                         EndIf
  1510.                         If $splittenFileToFSatEntry10[1] <> '' Then
  1511.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry10[1], $Entry10)
  1512.                         EndIf
  1513.                         If $splittenFileToFSatEntry11[1] <> '' Then
  1514.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry11[1], $Entry11)
  1515.                         EndIf
  1516.                         If $splittenFileToFSatEntry12[1] <> '' Then
  1517.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry12[1], $Entry12)
  1518.                         EndIf
  1519.                         If $splittenFileToFSatEntry13[1] <> '' Then
  1520.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry13[1], $Entry13)
  1521.                         EndIf
  1522.                         If $splittenFileToFSatEntry14[1] <> '' Then
  1523.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry14[1], $Entry14)
  1524.                         EndIf
  1525.                         If $splittenFileToFSatEntry15[1] <> '' Then
  1526.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry15[1], $Entry15)
  1527.                         EndIf
  1528.                         If $splittenFileToFSatEntry16[1] <> '' Then
  1529.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry16[1], $Entry16)
  1530.                         EndIf
  1531.                        
  1532.                         _IMAPI2_BurnFSToDrive($FileSystem, _IMAPI2_DriveGetObj($ID_Of_Drives[3]))
  1533.                        
  1534.                     ElseIf GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[4])) & ':' Then
  1535.                         If $Formatieren = True Then
  1536.                             _IMAPI2_DriveEraseDisc(_IMAPI2_DriveGetObj($ID_Of_Drives[4]))
  1537.                         EndIf
  1538.                         $FileSystem = _IMAPI2_CreateFSForDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[4]), GuiCtrlRead($Input2))
  1539.                        
  1540.                         If $splittenFileToFSatEntry0[1] <> '' Then
  1541.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry0[1], $Entry0)
  1542.                         EndIf
  1543.                         If $splittenFileToFSatEntry1[1] <> '' Then
  1544.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry1[1], $Entry1)
  1545.                         EndIf
  1546.                         If $splittenFileToFSatEntry2[1] <> '' Then
  1547.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry2[1], $Entry2)
  1548.                         EndIf
  1549.                         If $splittenFileToFSatEntry3[1] <> '' Then
  1550.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry3[1], $Entry3)
  1551.                         EndIf
  1552.                         If $splittenFileToFSatEntry4[1] <> '' Then
  1553.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry4[1], $Entry4)
  1554.                         EndIf
  1555.                         If $splittenFileToFSatEntry5[1] <> '' Then
  1556.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry5[1], $Entry5)
  1557.                         EndIf
  1558.                         If $splittenFileToFSatEntry6[1] <> '' Then
  1559.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry6[1], $Entry6)
  1560.                         EndIf
  1561.                         If $splittenFileToFSatEntry7[1] <> '' Then
  1562.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry7[1], $Entry7)
  1563.                         EndIf
  1564.                         If $splittenFileToFSatEntry8[1] <> '' Then
  1565.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry8[1], $Entry8)
  1566.                         EndIf
  1567.                         If $splittenFileToFSatEntry9[1] <> '' Then
  1568.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry9[1], $Entry9)
  1569.                         EndIf
  1570.                         If $splittenFileToFSatEntry10[1] <> '' Then
  1571.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry10[1], $Entry10)
  1572.                         EndIf
  1573.                         If $splittenFileToFSatEntry11[1] <> '' Then
  1574.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry11[1], $Entry11)
  1575.                         EndIf
  1576.                         If $splittenFileToFSatEntry12[1] <> '' Then
  1577.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry12[1], $Entry12)
  1578.                         EndIf
  1579.                         If $splittenFileToFSatEntry13[1] <> '' Then
  1580.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry13[1], $Entry13)
  1581.                         EndIf
  1582.                         If $splittenFileToFSatEntry14[1] <> '' Then
  1583.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry14[1], $Entry14)
  1584.                         EndIf
  1585.                         If $splittenFileToFSatEntry15[1] <> '' Then
  1586.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry15[1], $Entry15)
  1587.                         EndIf
  1588.                         If $splittenFileToFSatEntry16[1] <> '' Then
  1589.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry16[1], $Entry16)
  1590.                         EndIf
  1591.                        
  1592.                         _IMAPI2_BurnFSToDrive($FileSystem, _IMAPI2_DriveGetObj($ID_Of_Drives[4]))
  1593.                        
  1594.                     ElseIf GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[5])) & ':' Then
  1595.                         If $Formatieren = True Then
  1596.                             _IMAPI2_DriveEraseDisc(_IMAPI2_DriveGetObj($ID_Of_Drives[5]))
  1597.                         EndIf
  1598.                         $FileSystem = _IMAPI2_CreateFSForDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[5]), GuiCtrlRead($Input2))
  1599.                        
  1600.                         If $splittenFileToFSatEntry0[1] <> '' Then
  1601.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry0[1], $Entry0)
  1602.                         EndIf
  1603.                         If $splittenFileToFSatEntry1[1] <> '' Then
  1604.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry1[1], $Entry1)
  1605.                         EndIf
  1606.                         If $splittenFileToFSatEntry2[1] <> '' Then
  1607.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry2[1], $Entry2)
  1608.                         EndIf
  1609.                         If $splittenFileToFSatEntry3[1] <> '' Then
  1610.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry3[1], $Entry3)
  1611.                         EndIf
  1612.                         If $splittenFileToFSatEntry4[1] <> '' Then
  1613.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry4[1], $Entry4)
  1614.                         EndIf
  1615.                         If $splittenFileToFSatEntry5[1] <> '' Then
  1616.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry5[1], $Entry5)
  1617.                         EndIf
  1618.                         If $splittenFileToFSatEntry6[1] <> '' Then
  1619.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry6[1], $Entry6)
  1620.                         EndIf
  1621.                         If $splittenFileToFSatEntry7[1] <> '' Then
  1622.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry7[1], $Entry7)
  1623.                         EndIf
  1624.                         If $splittenFileToFSatEntry8[1] <> '' Then
  1625.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry8[1], $Entry8)
  1626.                         EndIf
  1627.                         If $splittenFileToFSatEntry9[1] <> '' Then
  1628.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry9[1], $Entry9)
  1629.                         EndIf
  1630.                         If $splittenFileToFSatEntry10[1] <> '' Then
  1631.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry10[1], $Entry10)
  1632.                         EndIf
  1633.                         If $splittenFileToFSatEntry11[1] <> '' Then
  1634.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry11[1], $Entry11)
  1635.                         EndIf
  1636.                         If $splittenFileToFSatEntry12[1] <> '' Then
  1637.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry12[1], $Entry12)
  1638.                         EndIf
  1639.                         If $splittenFileToFSatEntry13[1] <> '' Then
  1640.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry13[1], $Entry13)
  1641.                         EndIf
  1642.                         If $splittenFileToFSatEntry14[1] <> '' Then
  1643.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry14[1], $Entry14)
  1644.                         EndIf
  1645.                         If $splittenFileToFSatEntry15[1] <> '' Then
  1646.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry15[1], $Entry15)
  1647.                         EndIf
  1648.                         If $splittenFileToFSatEntry16[1] <> '' Then
  1649.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry16[1], $Entry16)
  1650.                         EndIf
  1651.                        
  1652.                         _IMAPI2_BurnFSToDrive($FileSystem, _IMAPI2_DriveGetObj($ID_Of_Drives[5]))
  1653.                        
  1654.                     ElseIf GuiCtrlRead($Combo1) = _IMAPI2_DriveGetLetter(_IMAPI2_DriveGetObj($ID_Of_Drives[6])) & ':' Then
  1655.                         If $Formatieren = True Then
  1656.                             _IMAPI2_DriveEraseDisc(_IMAPI2_DriveGetObj($ID_Of_Drives[6]))
  1657.                         EndIf
  1658.                         $FileSystem = _IMAPI2_CreateFSForDrive(_IMAPI2_DriveGetObj($ID_Of_Drives[6]), GuiCtrlRead($Input2))
  1659.                        
  1660.                         If $splittenFileToFSatEntry0[1] <> '' Then
  1661.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry0[1], $Entry0)
  1662.                         EndIf
  1663.                         If $splittenFileToFSatEntry1[1] <> '' Then
  1664.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry1[1], $Entry1)
  1665.                         EndIf
  1666.                         If $splittenFileToFSatEntry2[1] <> '' Then
  1667.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry2[1], $Entry2)
  1668.                         EndIf
  1669.                         If $splittenFileToFSatEntry3[1] <> '' Then
  1670.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry3[1], $Entry3)
  1671.                         EndIf
  1672.                         If $splittenFileToFSatEntry4[1] <> '' Then
  1673.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry4[1], $Entry4)
  1674.                         EndIf
  1675.                         If $splittenFileToFSatEntry5[1] <> '' Then
  1676.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry5[1], $Entry5)
  1677.                         EndIf
  1678.                         If $splittenFileToFSatEntry6[1] <> '' Then
  1679.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry6[1], $Entry6)
  1680.                         EndIf
  1681.                         If $splittenFileToFSatEntry7[1] <> '' Then
  1682.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry7[1], $Entry7)
  1683.                         EndIf
  1684.                         If $splittenFileToFSatEntry8[1] <> '' Then
  1685.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry8[1], $Entry8)
  1686.                         EndIf
  1687.                         If $splittenFileToFSatEntry9[1] <> '' Then
  1688.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry9[1], $Entry9)
  1689.                         EndIf
  1690.                         If $splittenFileToFSatEntry10[1] <> '' Then
  1691.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry10[1], $Entry10)
  1692.                         EndIf
  1693.                         If $splittenFileToFSatEntry11[1] <> '' Then
  1694.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry11[1], $Entry11)
  1695.                         EndIf
  1696.                         If $splittenFileToFSatEntry12[1] <> '' Then
  1697.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry12[1], $Entry12)
  1698.                         EndIf
  1699.                         If $splittenFileToFSatEntry13[1] <> '' Then
  1700.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry13[1], $Entry13)
  1701.                         EndIf
  1702.                         If $splittenFileToFSatEntry14[1] <> '' Then
  1703.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry14[1], $Entry14)
  1704.                         EndIf
  1705.                         If $splittenFileToFSatEntry15[1] <> '' Then
  1706.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry15[1], $Entry15)
  1707.                         EndIf
  1708.                         If $splittenFileToFSatEntry16[1] <> '' Then
  1709.                             _IMAPI2_AddFileToFS($FileSystem, $splittenFileToFSatEntry16[1], $Entry16)
  1710.                         EndIf
  1711.                        
  1712.                         _IMAPI2_BurnFSToDrive($FileSystem, _IMAPI2_DriveGetObj($ID_Of_Drives[6]))
  1713.                        
  1714.                     EndIf
  1715.                 EndIf
  1716.                
  1717.             EndIf
  1718.    
  1719.            
  1720.         Case $MenuItem8
  1721.             If $ListView1_0 <> '' Then GuiCtrlDelete($ListView1_0)
  1722.             If $ListView1_1 <> '' Then GuiCtrlDelete($ListView1_1)
  1723.             If $ListView1_2 <> '' Then GuiCtrlDelete($ListView1_2)
  1724.             If $ListView1_3 <> '' Then GuiCtrlDelete($ListView1_3)
  1725.             If $ListView1_4 <> '' Then GuiCtrlDelete($ListView1_4)
  1726.             If $ListView1_5 <> '' Then GuiCtrlDelete($ListView1_5)
  1727.             If $ListView1_6 <> '' Then GuiCtrlDelete($ListView1_6)
  1728.             If $ListView1_7 <> '' Then GuiCtrlDelete($ListView1_7)
  1729.             If $ListView1_8 <> '' Then GuiCtrlDelete($ListView1_8)
  1730.             If $ListView1_9 <> '' Then GuiCtrlDelete($ListView1_9)
  1731.             If $ListView1_10 <> '' Then GuiCtrlDelete($ListView1_10)
  1732.             If $ListView1_11 <> '' Then GuiCtrlDelete($ListView1_11)
  1733.             If $ListView1_12 <> '' Then GuiCtrlDelete($ListView1_12)
  1734.             If $ListView1_13 <> '' Then GuiCtrlDelete($ListView1_13)
  1735.             If $ListView1_14 <> '' Then GuiCtrlDelete($ListView1_14)
  1736.             If $ListView1_15 <> '' Then GuiCtrlDelete($ListView1_15)
  1737.             If $ListView1_16 <> '' Then GuiCtrlDelete($ListView1_16)
  1738.             GuiCtrlSetData($Input1, "")
  1739.             GuiCtrlSetData($Progress1, 0)
  1740.            
  1741.             $ListView1_0 = GuiCtrlCreateListViewItem(IniRead(@ScriptDir & "\Options.b2d", "Brennen", "Datei 0", ""), $ListView1)    ;Eintrag wird durch lesen erstellt.
  1742.             If GuiCtrlRead($ListView1_0) = '0|||' Then GuiCtrlDelete($ListView1_0)                                                  ;Wenn Eintrag '0|||' ist, dann löschen.
  1743.             $ListView1_1 = GuiCtrlCreateListViewItem(IniRead(@ScriptDir & "\Options.b2d", "Brennen", "Datei 1", ""), $ListView1)
  1744.             If GuiCtrlRead($ListView1_1) = '0|||' Then GuiCtrlDelete($ListView1_1)
  1745.             $ListView1_2 = GuICtrlCreateListViewItem(IniRead(@ScriptDir & "\Options.b2d", "Brennen", "Datei 2", ""), $ListView1)
  1746.             If GuiCtrlRead($ListView1_2) = '0|||' Then GuiCtrlDelete($ListView1_2)
  1747.             $ListView1_3 = GuICtrlCreateListViewItem(IniRead(@ScriptDir & "\Options.b2d", "Brennen", "Datei 3", ""), $ListView1)
  1748.             If GuiCtrlRead($ListView1_3) = '0|||' Then GuiCtrlDelete($ListView1_3)
  1749.             $ListView1_4 = GuICtrlCreateListViewItem(IniRead(@ScriptDir & "\Options.b2d", "Brennen", "Datei 4", ""), $ListView1)
  1750.             If GuiCtrlRead($ListView1_4) = '0|||' Then GuiCtrlDelete($ListView1_4)
  1751.             $ListView1_5 = GuICtrlCreateListViewItem(IniRead(@ScriptDir & "\Options.b2d", "Brennen", "Datei 5", ""), $ListView1)
  1752.             If GuiCtrlRead($ListView1_5) = '0|||' Then GuiCtrlDelete($ListView1_5)
  1753.             $ListView1_6 = GuICtrlCreateListViewItem(IniRead(@ScriptDir & "\Options.b2d", "Brennen", "Datei 6", ""), $ListView1)
  1754.             If GuiCtrlRead($ListView1_6) = '0|||' Then GuiCtrlDelete($ListView1_6)
  1755.             $ListView1_7 = GuICtrlCreateListViewItem(IniRead(@ScriptDir & "\Options.b2d", "Brennen", "Datei 7", ""), $ListView1)
  1756.             If GuiCtrlRead($ListView1_7) = '0|||' Then GuiCtrlDelete($ListView1_7)
  1757.             $ListView1_8 = GuICtrlCreateListViewItem(IniRead(@ScriptDir & "\Options.b2d", "Brennen", "Datei 8", ""), $ListView1)
  1758.             If GuiCtrlRead($ListView1_8) = '0|||' Then GuiCtrlDelete($ListView1_8)
  1759.             $ListView1_9 = GuICtrlCreateListViewItem(IniRead(@ScriptDir & "\Options.b2d", "Brennen", "Datei 9", ""), $ListView1)
  1760.             If GuiCtrlRead($ListView1_9) = '0|||' Then GuiCtrlDelete($ListView1_9)
  1761.             $ListView1_10 = GuICtrlCreateListViewItem(IniRead(@ScriptDir & "\Options.b2d", "Brennen", "Datei 10", ""), $ListView1)
  1762.             If GuiCtrlRead($ListView1_10) = '0|||' Then GuiCtrlDelete($ListView1_10)
  1763.             $ListView1_11 = GuICtrlCreateListViewItem(IniRead(@ScriptDir & "\Options.b2d", "Brennen", "Datei 11", ""), $ListView1)
  1764.             If GuiCtrlRead($ListView1_11) = '0|||' Then GuiCtrlDelete($ListView1_11)
  1765.             $ListView1_12 = GuICtrlCreateListViewItem(IniRead(@ScriptDir & "\Options.b2d", "Brennen", "Datei 12", ""), $ListView1)
  1766.             If GuiCtrlRead($ListView1_12) = '0|||' Then GuiCtrlDelete($ListView1_12)
  1767.             $ListView1_13 = GuICtrlCreateListViewItem(IniRead(@ScriptDir & "\Options.b2d", "Brennen", "Datei 13", ""), $ListView1)
  1768.             If GuiCtrlRead($ListView1_13) = '0|||' Then GuiCtrlDelete($ListView1_13)
  1769.             $ListView1_14 = GuICtrlCreateListViewItem(IniRead(@ScriptDir & "\Options.b2d", "Brennen", "Datei 14", ""), $ListView1)
  1770.             If GuiCtrlRead($ListView1_14) = '0|||' Then GuiCtrlDelete($ListView1_14)
  1771.             $ListView1_15 = GuICtrlCreateListViewItem(IniRead(@ScriptDir & "\Options.b2d", "Brennen", "Datei 15", ""), $ListView1)
  1772.             If GuiCtrlRead($ListView1_15) = '0|||' Then GuiCtrlDelete($ListView1_15)
  1773.             $ListView1_16 = GuICtrlCreateListViewItem(IniRead(@ScriptDir & "\Options.b2d", "Brennen", "Datei 16", ""), $ListView1)
  1774.             If GuiCtrlRead($ListView1_16) = '0|||' Then GuiCtrlDelete($ListView1_16)
  1775.             If IniRead(@ScriptDir & "\Options.b2d", "Einstellungen", "Formatieren", "") = 1 Then
  1776.                 GuiCtrlSetState($CheckBox1, $GUI_CHECKED)
  1777.                 $Formatieren = True
  1778.             ElseIf IniRead(@ScriptDir & "\Options.b2d", "Einstellungen", "Formatieren", "") = 0 Then
  1779.                 GuiCtrlSetState($CheckBox1, $GUI_UNCHECKED)
  1780.                 $Formatieren = False
  1781.             EndIf
  1782.            
  1783.             GuiCtrlSetData($Input2, IniRead(@ScriptDir & "\Options.b2d", "Einstellungen", "Titel", ""), $ListView1)
  1784.  
  1785.             If IniRead(@ScriptDir & "\Options.b2d", "Einstellungen", "Laufwerk", "") = 'CD' Then
  1786.                 $Typ = 'CD'
  1787.             ElseIf IniRead(@ScriptDir & "\Options.b2d", "Einstellungen", "Laufwerk", "") = 'DVD' Then
  1788.                 $Typ = 'DVD'
  1789.             EndIf
  1790.             MsgBox(64, "Laufwerk", "Typ: " & $Typ & " wird verwendet.")
  1791.             If $Typ = 'CD' Then
  1792.                 $Read_0 = StringSplit(GuiCtrlRead($ListView1_0), "|")
  1793.                 $Read_1 = StringSplit(GuiCtrlRead($ListView1_1), "|")
  1794.                 $Read_2 = StringSplit(GuiCtrlRead($ListView1_2), "|")
  1795.                 $Read_3 = StringSplit(GuiCtrlRead($ListView1_3), "|")
  1796.                 $Read_4 = StringSplit(GuiCtrlRead($ListView1_4), "|")
  1797.                 $Read_5 = StringSplit(GuiCtrlRead($ListView1_5), "|")
  1798.                 $Read_6 = StringSplit(GuiCtrlRead($ListView1_6), "|")
  1799.                 $Read_7 = StringSplit(GuiCtrlRead($ListView1_7), "|")
  1800.                 $Read_8 = StringSplit(GuiCtrlRead($ListView1_8), "|")
  1801.                 $Read_9 = StringSplit(GuiCtrlRead($ListView1_9), "|")
  1802.                 $Read_10 = StringSplit(GuiCtrlRead($ListView1_10), "|")
  1803.                 $Read_11 = StringSplit(GuiCtrlRead($ListView1_11), "|")
  1804.                 $Read_12 = StringSplit(GuiCtrlRead($ListView1_12), "|")
  1805.                 $Read_13 = StringSplit(GuiCtrlRead($ListView1_13), "|")
  1806.                 $Read_14 = StringSplit(GuiCtrlRead($ListView1_14), "|")
  1807.                 $Read_15 = StringSplit(GuiCtrlRead($ListView1_15), "|")
  1808.                 $Read_16 = StringSplit(GuiCtrlRead($ListView1_16), "|")
  1809.                 GuiCtrlSetData($Progress1, (FileGetSize($Read_0[1])/1024/700000*100) + (FileGetSize($Read_1[1])/1024/700000*100) + (FileGetSize($Read_2[1])/1024/700000*100) + (FileGetSize($Read_3[1])/1024/700000*100) + (FileGetSize($Read_4[1])/1024/700000*100) + (FileGetSize($Read_5[1])/1024/700000*100) + (FileGetSize($Read_6[1])/1024/700000*100) + (FileGetSize($Read_7[1])/1024/700000*100) + (FileGetSize($Read_8[1])/1024/700000*100) + (FileGetSize($Read_9[1])/1024/700000*100) + (FileGetSize($Read_10[1])/1024/700000*100) + (FileGetSize($Read_11[1])/1024/700000*100) + (FileGetSize($Read_12[1])/1024/700000*100) + (FileGetSize($Read_13[1])/1024/700000*100) + (FileGetSize($Read_14[1])/1024/700000*100) + (FileGetSize($Read_15[1])/1024/700000*100) + (FileGetSize($Read_16[1])/1024/700000*100))
  1810.            
  1811.             ElseIf $Typ = 'DVD' Then
  1812.                 $Read_0 = StringSplit(GuiCtrlRead($ListView1_0), "|")
  1813.                 $Read_1 = StringSplit(GuiCtrlRead($ListView1_1), "|")
  1814.                 $Read_2 = StringSplit(GuiCtrlRead($ListView1_2), "|")
  1815.                 $Read_3 = StringSplit(GuiCtrlRead($ListView1_3), "|")
  1816.                 $Read_4 = StringSplit(GuiCtrlRead($ListView1_4), "|")
  1817.                 $Read_5 = StringSplit(GuiCtrlRead($ListView1_5), "|")
  1818.                 $Read_6 = StringSplit(GuiCtrlRead($ListView1_6), "|")
  1819.                 $Read_7 = StringSplit(GuiCtrlRead($ListView1_7), "|")
  1820.                 $Read_8 = StringSplit(GuiCtrlRead($ListView1_8), "|")
  1821.                 $Read_9 = StringSplit(GuiCtrlRead($ListView1_9), "|")
  1822.                 $Read_10 = StringSplit(GuiCtrlRead($ListView1_10), "|")
  1823.                 $Read_11 = StringSplit(GuiCtrlRead($ListView1_11), "|")
  1824.                 $Read_12 = StringSplit(GuiCtrlRead($ListView1_12), "|")
  1825.                 $Read_13 = StringSplit(GuiCtrlRead($ListView1_13), "|")
  1826.                 $Read_14 = StringSplit(GuiCtrlRead($ListView1_14), "|")
  1827.                 $Read_15 = StringSplit(GuiCtrlRead($ListView1_15), "|")
  1828.                 $Read_16 = StringSplit(GuiCtrlRead($ListView1_16), "|")
  1829.                 GuiCtrlSetData($Progress1, (FileGetSize($Read_0[1])/1024/4900000*100) + (FileGetSize($Read_1[1])/1024/4900000*100) + (FileGetSize($Read_2[1])/1024/4900000*100) + (FileGetSize($Read_3[1])/1024/4900000*100) + (FileGetSize($Read_4[1])/1024/4900000*100) + (FileGetSize($Read_5[1])/1024/4900000*100) + (FileGetSize($Read_6[1])/1024/4900000*100) + (FileGetSize($Read_7[1])/1024/4900000*100) + (FileGetSize($Read_8[1])/1024/4900000*100) + (FileGetSize($Read_9[1])/1024/4900000*100) + (FileGetSize($Read_10[1])/1024/4900000*100) + (FileGetSize($Read_11[1])/1024/4900000*100) + (FileGetSize($Read_12[1])/1024/4900000*100) + (FileGetSize($Read_13[1])/1024/4900000*100) + (FileGetSize($Read_14[1])/1024/4900000*100) + (FileGetSize($Read_15[1])/1024/4900000*100) + (FileGetSize($Read_16[1])/1024/4900000*100))
  1830.            
  1831.             EndIf
  1832.            
  1833.         Case $MenuItem9
  1834.             IniWrite(@ScriptDir & "\Options.b2d", "Brennen", "Datei 0", GuiCtrlRead($ListView1_0))
  1835.             IniWrite(@ScriptDir & "\Options.b2d", "Brennen", "Datei 1", GuiCtrlRead($ListView1_1))
  1836.             IniWrite(@ScriptDir & "\Options.b2d", "Brennen", "Datei 2", GuiCtrlRead($ListView1_2))
  1837.             IniWrite(@ScriptDir & "\Options.b2d", "Brennen", "Datei 3", GuiCtrlRead($ListView1_3))
  1838.             IniWrite(@ScriptDir & "\Options.b2d", "Brennen", "Datei 4", GuiCtrlRead($ListView1_4))
  1839.             IniWrite(@ScriptDir & "\Options.b2d", "Brennen", "Datei 5", GuiCtrlRead($ListView1_5))
  1840.             IniWrite(@ScriptDir & "\Options.b2d", "Brennen", "Datei 6", GuiCtrlRead($ListView1_6))
  1841.             IniWrite(@ScriptDir & "\Options.b2d", "Brennen", "Datei 7", GuiCtrlRead($ListView1_7))
  1842.             IniWrite(@ScriptDir & "\Options.b2d", "Brennen", "Datei 8", GuiCtrlRead($ListView1_8))
  1843.             IniWrite(@ScriptDir & "\Options.b2d", "Brennen", "Datei 9", GuiCtrlRead($ListView1_9))
  1844.             IniWrite(@ScriptDir & "\Options.b2d", "Brennen", "Datei 10", GuiCtrlRead($ListView1_10))
  1845.             IniWrite(@ScriptDir & "\Options.b2d", "Brennen", "Datei 11", GuiCtrlRead($ListView1_11))
  1846.             IniWrite(@ScriptDir & "\Options.b2d", "Brennen", "Datei 12", GuiCtrlRead($ListView1_12))
  1847.             IniWrite(@ScriptDir & "\Options.b2d", "Brennen", "Datei 13", GuiCtrlRead($ListView1_13))
  1848.             IniWrite(@ScriptDir & "\Options.b2d", "Brennen", "Datei 14", GuiCtrlRead($ListView1_14))
  1849.             IniWrite(@ScriptDir & "\Options.b2d", "Brennen", "Datei 15", GuiCtrlRead($ListView1_15))
  1850.             IniWrite(@ScriptDir & "\Options.b2d", "Brennen", "Datei 16", GuiCtrlRead($ListView1_16))
  1851.             IniWrite(@ScriptDir & "\Options.b2d", "Einstellungen", "Formatieren", _GetFormat())
  1852.             IniWrite(@ScriptDir & "\Options.b2d", "Einstellungen", "Titel", GuiCtrlRead($Input2))
  1853.             If $Typ = 'CD' Then IniWrite(@ScriptDir & "\Options.b2d", "Einstellungen", "Laufwerk", $Typ)
  1854.             If $Typ = 'DVD' Then IniWrite(@ScriptDir & "\Options.b2d", "Einstellungen", "Laufwerk", $Typ)
  1855.        
  1856.         Case $MenuItem7
  1857.             ShellExecute(@ScriptDir & "\" & @ScriptName)
  1858.             Exit
  1859.        
  1860.         Case $MenuItem10
  1861.             Exit
  1862.            
  1863.         Case $Button5
  1864.             $oWMP.cdromcollection.item(0).eject()
  1865.                        
  1866.         Case $CheckBox1
  1867.             MsgBox(48,"Warnung", "Wenn Ihre CD/DVD keine Wiederbeschreibbare ist," & @CRLF & "dann kann Ihre CD/DVD ggf. auch Ihr Laufwerk beschädigt werden." & @CRLF & @CRLF & "Wenn Ihr Laufwerk ein CD/DVD Typ z.B. RW+- nicht unterstützt," & @CRLF & "dann kann ihr Laufwerk ebenfalls Schaden nehmen." & @CRLF & @CRLF & "ANWENDUNG AUF EIGENE GEFAHR !!!")
  1868.             If $Formatieren = False Then
  1869.                 $Formatieren = True
  1870.                 MsgBox(64,"Formatieren", "CD/DVD wird vor dem Brennen formatiert." & @CRLF & "Bitte Warnung zur Kenntnis nehmen !")
  1871.             ElseIf $Formatieren = True Then
  1872.                 $Formatieren = False
  1873.                 MsgBox(64,"Formatieren", "CD/DVD wird nicht formatiert.")
  1874.             EndIf          
  1875.                
  1876.         Case $Button7
  1877.             If $ListView1_0 <> '' Then GuiCtrlDelete($ListView1_0)
  1878.             If $ListView1_1 <> '' Then GuiCtrlDelete($ListView1_1)
  1879.             If $ListView1_2 <> '' Then GuiCtrlDelete($ListView1_2)
  1880.             If $ListView1_3 <> '' Then GuiCtrlDelete($ListView1_3)
  1881.             If $ListView1_4 <> '' Then GuiCtrlDelete($ListView1_4)
  1882.             If $ListView1_5 <> '' Then GuiCtrlDelete($ListView1_5)
  1883.             If $ListView1_6 <> '' Then GuiCtrlDelete($ListView1_6)
  1884.             If $ListView1_7 <> '' Then GuiCtrlDelete($ListView1_7)
  1885.             If $ListView1_8 <> '' Then GuiCtrlDelete($ListView1_8)
  1886.             If $ListView1_9 <> '' Then GuiCtrlDelete($ListView1_9)
  1887.             If $ListView1_10 <> '' Then GuiCtrlDelete($ListView1_10)
  1888.             If $ListView1_11 <> '' Then GuiCtrlDelete($ListView1_11)
  1889.             If $ListView1_12 <> '' Then GuiCtrlDelete($ListView1_12)
  1890.             If $ListView1_13 <> '' Then GuiCtrlDelete($ListView1_13)
  1891.             If $ListView1_14 <> '' Then GuiCtrlDelete($ListView1_14)
  1892.             If $ListView1_15 <> '' Then GuiCtrlDelete($ListView1_15)
  1893.             If $ListView1_16 <> '' Then GuiCtrlDelete($ListView1_16)
  1894.             GuiCtrlSetData($Progress1, 0)
  1895.        
  1896.         Case $Button2
  1897.             $FilePath = FileOpenDialog("Bitte wählen Sie eine Datei aus.", @DesktopDir, "Alle Dateien (*.*)")
  1898.             GuiCtrlSetData($Input1, $FilePath)
  1899.             If FileExists($FilePath) = 1 Then
  1900.                 If $Typ = 'CD' Then
  1901.                     If $Count = 0 Then
  1902.                         $ListView1_0 = GuiCtrlCreateListViewItem($FilePath & "|" & StringTrimLeft($FilePath, StringInStr($FilePath, ".")) & "|" & Round(FileGetSize($FilePath) / 1024 / 1024, 3) & " MB" , $ListView1)
  1903.                         $Count += 1
  1904.                         GuiCtrlSetData($Progress1, GuiCtrlRead($Progress1) + ((FileGetSize($FilePath)/1024) / 700000)*100)
  1905.                        
  1906.                     ElseIf $Count = 1 Then
  1907.                         $ListView1_1 = GuiCtrlCreateListViewItem($FilePath & "|" & StringTrimLeft($FilePath, StringInStr($FilePath, ".")) & "|" & Round(FileGetSize($FilePath) / 1024 / 1024, 3) & " MB" , $ListView1)
  1908.                         $Count += 1
  1909.                         GuiCtrlSetData($Progress1, GuiCtrlRead($Progress1) + ((FileGetSize($FilePath)/1024) / 700000)*100)
  1910.                        
  1911.                     ElseIf $Count = 2 Then
  1912.                         $ListView1_2 = GuiCtrlCreateListViewItem($FilePath & "|" & StringTrimLeft($FilePath, StringInStr($FilePath, ".")) & "|" & Round(FileGetSize($FilePath) / 1024 / 1024, 3) & " MB" , $ListView1)
  1913.                         $Count += 1
  1914.                         GuiCtrlSetData($Progress1, GuiCtrlRead($Progress1) + ((FileGetSize($FilePath)/1024) / 700000)*100)
  1915.                        
  1916.                     ElseIf $Count = 3 Then
  1917.                         $ListView1_3 = GuiCtrlCreateListViewItem($FilePath & "|" & StringTrimLeft($FilePath, StringInStr($FilePath, ".")) & "|" & Round(FileGetSize($FilePath) / 1024 / 1024, 3) & " MB" , $ListView1)
  1918.                         $Count += 1
  1919.                         GuiCtrlSetData($Progress1, GuiCtrlRead($Progress1) + ((FileGetSize($FilePath)/1024) / 700000)*100)
  1920.                        
  1921.                     ElseIf $Count = 4 Then
  1922.                         $ListView1_4 = GuiCtrlCreateListViewItem($FilePath & "|" & StringTrimLeft($FilePath, StringInStr($FilePath, ".")) & "|" & Round(FileGetSize($FilePath) / 1024 / 1024, 3) & " MB" , $ListView1)
  1923.                         $Count += 1
  1924.                         GuiCtrlSetData($Progress1, GuiCtrlRead($Progress1) + ((FileGetSize($FilePath)/1024) / 700000)*100)
  1925.                        
  1926.                     ElseIf $Count = 5 Then
  1927.                         $ListView1_5 = GuiCtrlCreateListViewItem($FilePath & "|" & StringTrimLeft($FilePath, StringInStr($FilePath, ".")) & "|" & Round(FileGetSize($FilePath) / 1024 / 1024, 3) & " MB" , $ListView1)
  1928.                         $Count += 1
  1929.                         GuiCtrlSetData($Progress1, GuiCtrlRead($Progress1) + ((FileGetSize($FilePath)/1024) / 700000)*100)
  1930.                        
  1931.                     ElseIf $Count = 6 Then
  1932.                         $ListView1_6 = GuiCtrlCreateListViewItem($FilePath & "|" & StringTrimLeft($FilePath, StringInStr($FilePath, ".")) & "|" & Round(FileGetSize($FilePath) / 1024 / 1024, 3) & " MB" , $ListView1)
  1933.                         $Count += 1
  1934.                         GuiCtrlSetData($Progress1, GuiCtrlRead($Progress1) + ((FileGetSize($FilePath)/1024) / 700000)*100)
  1935.                        
  1936.                     ElseIf $Count = 7 Then
  1937.                         $ListView1_7 = GuiCtrlCreateListViewItem($FilePath & "|" & StringTrimLeft($FilePath, StringInStr($FilePath, ".")) & "|" & Round(FileGetSize($FilePath) / 1024 / 1024, 3) & " MB" , $ListView1)
  1938.                         $Count += 1
  1939.                         GuiCtrlSetData($Progress1, GuiCtrlRead($Progress1) + ((FileGetSize($FilePath)/1024) / 700000)*100)
  1940.                        
  1941.                     ElseIf $Count = 8 Then
  1942.                         $ListView1_8 = GuiCtrlCreateListViewItem($FilePath & "|" & StringTrimLeft($FilePath, StringInStr($FilePath, ".")) & "|" & Round(FileGetSize($FilePath) / 1024 / 1024, 3) & " MB" , $ListView1)
  1943.                         $Count += 1
  1944.                         GuiCtrlSetData($Progress1, GuiCtrlRead($Progress1) + ((FileGetSize($FilePath)/1024) / 700000)*100)
  1945.                        
  1946.                     ElseIf $Count = 9 Then
  1947.                         $ListView1_9 = GuiCtrlCreateListViewItem($FilePath & "|" & StringTrimLeft($FilePath, StringInStr($FilePath, ".")) & "|" & Round(FileGetSize($FilePath) / 1024 / 1024, 3) & " MB" , $ListView1)
  1948.                         $Count += 1
  1949.                         GuiCtrlSetData($Progress1, GuiCtrlRead($Progress1) + ((FileGetSize($FilePath)/1024) / 700000)*100)
  1950.                        
  1951.                     ElseIf $Count = 10 Then
  1952.                         $ListView1_10 = GuiCtrlCreateListViewItem($FilePath & "|" & StringTrimLeft($FilePath, StringInStr($FilePath, ".")) & "|" & Round(FileGetSize($FilePath) / 1024 / 1024, 3) & " MB" , $ListView1)
  1953.                         $Count += 1
  1954.                         GuiCtrlSetData($Progress1, GuiCtrlRead($Progress1) + ((FileGetSize($FilePath)/1024) / 700000)*100)
  1955.                        
  1956.                     ElseIf $Count = 11 Then
  1957.                         $ListView1_11 = GuiCtrlCreateListViewItem($FilePath & "|" & StringTrimLeft($FilePath, StringInStr($FilePath, ".")) & "|" & Round(FileGetSize($FilePath) / 1024 / 1024, 3) & " MB" , $ListView1)
  1958.                         $Count += 1
  1959.                         GuiCtrlSetData($Progress1, GuiCtrlRead($Progress1) + ((FileGetSize($FilePath)/1024) / 700000)*100)
  1960.                        
  1961.                     ElseIf $Count = 12 Then
  1962.                         $ListView1_12 = GuiCtrlCreateListViewItem($FilePath & "|" & StringTrimLeft($FilePath, StringInStr($FilePath, ".")) & "|" & Round(FileGetSize($FilePath) / 1024 / 1024, 3) & " MB" , $ListView1)
  1963.                         $Count += 1
  1964.                         GuiCtrlSetData($Progress1, GuiCtrlRead($Progress1) + ((FileGetSize($FilePath)/1024) / 700000)*100)
  1965.                        
  1966.                     ElseIf $Count = 13 Then
  1967.                         $ListView1_13 = GuiCtrlCreateListViewItem($FilePath & "|" & StringTrimLeft($FilePath, StringInStr($FilePath, ".")) & "|" & Round(FileGetSize($FilePath) / 1024 / 1024, 3) & " MB" , $ListView1)
  1968.                         $Count += 1
  1969.                         GuiCtrlSetData($Progress1, GuiCtrlRead($Progress1) + ((FileGetSize($FilePath)/1024) / 700000)*100)
  1970.                        
  1971.                     ElseIf $Count = 14 Then
  1972.                         $ListView1_14 = GuiCtrlCreateListViewItem($FilePath & "|" & StringTrimLeft($FilePath, StringInStr($FilePath, ".")) & "|" & Round(FileGetSize($FilePath) / 1024 / 1024, 3) & " MB" , $ListView1)
  1973.                         $Count += 1
  1974.                         GuiCtrlSetData($Progress1, GuiCtrlRead($Progress1) + ((FileGetSize($FilePath)/1024) / 700000)*100)
  1975.                        
  1976.                     ElseIf $Count = 15 Then
  1977.                         $ListView1_15 = GuiCtrlCreateListViewItem($FilePath & "|" & StringTrimLeft($FilePath, StringInStr($FilePath, ".")) & "|" & Round(FileGetSize($FilePath) / 1024 / 1024, 3) & " MB" , $ListView1)
  1978.                         $Count += 1
  1979.                         GuiCtrlSetData($Progress1, GuiCtrlRead($Progress1) + ((FileGetSize($FilePath)/1024) / 700000)*100)
  1980.                        
  1981.                     ElseIf $Count = 16 Then
  1982.                         $ListView1_16 = GuiCtrlCreateListViewItem($FilePath & "|" & StringTrimLeft($FilePath, StringInStr($FilePath, ".")) & "|" & Round(FileGetSize($FilePath) / 1024 / 1024, 3) & " MB" , $ListView1)
  1983.                         $Count += 1
  1984.                         GuiCtrlSetData($Progress1, GuiCtrlRead($Progress1) + ((FileGetSize($FilePath)/1024) / 700000)*100)
  1985.                     EndIf
  1986.                        
  1987.                 ElseIf $Typ = 'DVD' Then
  1988.                        
  1989.                     If $Count = 0 Then
  1990.                         $ListView1_0 = GuiCtrlCreateListViewItem($FilePath & "|" & StringTrimLeft($FilePath, StringInStr($FilePath, ".")) & "|" & Round(FileGetSize($FilePath) / 1024 / 1024, 3) & " MB" , $ListView1)
  1991.                         $Count += 1
  1992.                         GuiCtrlSetData($Progress1, GuiCtrlRead($Progress1) + ((FileGetSize($FilePath)/1024) / 4700000)*100)
  1993.                        
  1994.                     ElseIf $Count = 1 Then
  1995.                         $ListView1_1 = GuiCtrlCreateListViewItem($FilePath & "|" & StringTrimLeft($FilePath, StringInStr($FilePath, ".")) & "|" & Round(FileGetSize($FilePath) / 1024 / 1024, 3) & " MB" , $ListView1)
  1996.                         $Count += 1
  1997.                         GuiCtrlSetData($Progress1, GuiCtrlRead($Progress1) + ((FileGetSize($FilePath)/1024) / 4700000)*100)
  1998.                        
  1999.                     ElseIf $Count = 2 Then
  2000.                         $ListView1_2 = GuiCtrlCreateListViewItem($FilePath & "|" & StringTrimLeft($FilePath, StringInStr($FilePath, ".")) & "|" & Round(FileGetSize($FilePath) / 1024 / 1024, 3) & " MB" , $ListView1)
  2001.                         $Count += 1
  2002.                         GuiCtrlSetData($Progress1, GuiCtrlRead($Progress1) + ((FileGetSize($FilePath)/1024) / 4700000)*100)
  2003.                        
  2004.                     ElseIf $Count = 3 Then
  2005.                         $ListView1_3 = GuiCtrlCreateListViewItem($FilePath & "|" & StringTrimLeft($FilePath, StringInStr($FilePath, ".")) & "|" & Round(FileGetSize($FilePath) / 1024 / 1024, 3) & " MB" , $ListView1)
  2006.                         $Count += 1
  2007.                         GuiCtrlSetData($Progress1, GuiCtrlRead($Progress1) + ((FileGetSize($FilePath)/1024) / 4700000)*100)
  2008.                        
  2009.                     ElseIf $Count = 4 Then
  2010.                         $ListView1_4 = GuiCtrlCreateListViewItem($FilePath & "|" & StringTrimLeft($FilePath, StringInStr($FilePath, ".")) & "|" & Round(FileGetSize($FilePath) / 1024 / 1024, 3) & " MB" , $ListView1)
  2011.                         $Count += 1
  2012.                         GuiCtrlSetData($Progress1, GuiCtrlRead($Progress1) + ((FileGetSize($FilePath)/1024) / 4700000)*100)
  2013.                        
  2014.                     ElseIf $Count = 5 Then
  2015.                         $ListView1_5 = GuiCtrlCreateListViewItem($FilePath & "|" & StringTrimLeft($FilePath, StringInStr($FilePath, ".")) & "|" & Round(FileGetSize($FilePath) / 1024 / 1024, 3) & " MB" , $ListView1)
  2016.                         $Count += 1
  2017.                         GuiCtrlSetData($Progress1, GuiCtrlRead($Progress1) + ((FileGetSize($FilePath)/1024) / 4700000)*100)
  2018.                        
  2019.                     ElseIf $Count = 6 Then
  2020.                         $ListView1_6 = GuiCtrlCreateListViewItem($FilePath & "|" & StringTrimLeft($FilePath, StringInStr($FilePath, ".")) & "|" & Round(FileGetSize($FilePath) / 1024 / 1024, 3) & " MB" , $ListView1)
  2021.                         $Count += 1
  2022.                         GuiCtrlSetData($Progress1, GuiCtrlRead($Progress1) + ((FileGetSize($FilePath)/1024) / 4700000)*100)
  2023.                        
  2024.                     ElseIf $Count = 7 Then
  2025.                         $ListView1_7 = GuiCtrlCreateListViewItem($FilePath & "|" & StringTrimLeft($FilePath, StringInStr($FilePath, ".")) & "|" & Round(FileGetSize($FilePath) / 1024 / 1024, 3) & " MB" , $ListView1)
  2026.                         $Count += 1
  2027.                         GuiCtrlSetData($Progress1, GuiCtrlRead($Progress1) + ((FileGetSize($FilePath)/1024) / 4700000)*100)
  2028.                        
  2029.                     ElseIf $Count = 8 Then
  2030.                         $ListView1_8 = GuiCtrlCreateListViewItem($FilePath & "|" & StringTrimLeft($FilePath, StringInStr($FilePath, ".")) & "|" & Round(FileGetSize($FilePath) / 1024 / 1024, 3) & " MB" , $ListView1)
  2031.                         $Count += 1
  2032.                         GuiCtrlSetData($Progress1, GuiCtrlRead($Progress1) + ((FileGetSize($FilePath)/1024) / 4700000)*100)
  2033.                        
  2034.                     ElseIf $Count = 9 Then
  2035.                         $ListView1_9 = GuiCtrlCreateListViewItem($FilePath & "|" & StringTrimLeft($FilePath, StringInStr($FilePath, ".")) & "|" & Round(FileGetSize($FilePath) / 1024 / 1024, 3) & " MB" , $ListView1)
  2036.                         $Count += 1
  2037.                         GuiCtrlSetData($Progress1, GuiCtrlRead($Progress1) + ((FileGetSize($FilePath)/1024) / 4700000)*100)
  2038.                        
  2039.                     ElseIf $Count = 10 Then
  2040.                         $ListView1_10 = GuiCtrlCreateListViewItem($FilePath & "|" & StringTrimLeft($FilePath, StringInStr($FilePath, ".")) & "|" & Round(FileGetSize($FilePath) / 1024 / 1024, 3) & " MB" , $ListView1)
  2041.                         $Count += 1
  2042.                         GuiCtrlSetData($Progress1, GuiCtrlRead($Progress1) + ((FileGetSize($FilePath)/1024) / 4700000)*100)
  2043.                        
  2044.                     ElseIf $Count = 11 Then
  2045.                         $ListView1_11 = GuiCtrlCreateListViewItem($FilePath & "|" & StringTrimLeft($FilePath, StringInStr($FilePath, ".")) & "|" & Round(FileGetSize($FilePath) / 1024 / 1024, 3) & " MB" , $ListView1)
  2046.                         $Count += 1
  2047.                         GuiCtrlSetData($Progress1, GuiCtrlRead($Progress1) + ((FileGetSize($FilePath)/1024) / 4700000)*100)
  2048.                        
  2049.                     ElseIf $Count = 12 Then
  2050.                         $ListView1_12 = GuiCtrlCreateListViewItem($FilePath & "|" & StringTrimLeft($FilePath, StringInStr($FilePath, ".")) & "|" & Round(FileGetSize($FilePath) / 1024 / 1024, 3) & " MB" , $ListView1)
  2051.                         $Count += 1
  2052.                         GuiCtrlSetData($Progress1, GuiCtrlRead($Progress1) + ((FileGetSize($FilePath)/1024) / 4700000)*100)
  2053.                        
  2054.                     ElseIf $Count = 13 Then
  2055.                         $ListView1_13 = GuiCtrlCreateListViewItem($FilePath & "|" & StringTrimLeft($FilePath, StringInStr($FilePath, ".")) & "|" & Round(FileGetSize($FilePath) / 1024 / 1024, 3) & " MB" , $ListView1)
  2056.                         $Count += 1
  2057.                         GuiCtrlSetData($Progress1, GuiCtrlRead($Progress1) + ((FileGetSize($FilePath)/1024) / 4700000)*100)
  2058.                        
  2059.                     ElseIf $Count = 14 Then
  2060.                         $ListView1_14 = GuiCtrlCreateListViewItem($FilePath & "|" & StringTrimLeft($FilePath, StringInStr($FilePath, ".")) & "|" & Round(FileGetSize($FilePath) / 1024 / 1024, 3) & " MB" , $ListView1)
  2061.                         $Count += 1
  2062.                         GuiCtrlSetData($Progress1, GuiCtrlRead($Progress1) + ((FileGetSize($FilePath)/1024) / 4700000)*100)
  2063.                        
  2064.                     ElseIf $Count = 15 Then
  2065.                         $ListView1_15 = GuiCtrlCreateListViewItem($FilePath & "|" & StringTrimLeft($FilePath, StringInStr($FilePath, ".")) & "|" & Round(FileGetSize($FilePath) / 1024 / 1024, 3) & " MB" , $ListView1)
  2066.                         $Count += 1
  2067.                         GuiCtrlSetData($Progress1, GuiCtrlRead($Progress1) + ((FileGetSize($FilePath)/1024) / 4700000)*100)
  2068.                        
  2069.                     ElseIf $Count = 16 Then
  2070.                         $ListView1_16 = GuiCtrlCreateListViewItem($FilePath & "|" & StringTrimLeft($FilePath, StringInStr($FilePath, ".")) & "|" & Round(FileGetSize($FilePath) / 1024 / 1024, 3) & " MB" , $ListView1)
  2071.                         $Count += 1
  2072.                         GuiCtrlSetData($Progress1, GuiCtrlRead($Progress1) + ((FileGetSize($FilePath)/1024) / 4700000)*100)
  2073.                     EndIf
  2074.                 EndIf
  2075.            
  2076.             Else
  2077.            
  2078.                 MsgBox(16,"Fehler","Datei nicht vorhanden, oder Zugriff verweigert.")
  2079.                
  2080.             EndIf
  2081.     EndSwitch
  2082. WEnd
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!