#include <GUIConstantsEx.au3>
#include <FileConstants.au3>

Local $hGUI = GUICreate("Расклеиватель файлов", 500, 500)
Local $idButton = GUICtrlCreateButton("Разбить файл на два файла", 120, 250, 150, 25)
GUICtrlCreateLabel("Размер первого файла в байтах", 0, 25, 300, 20)
Local $sFile = GUICtrlCreateInput("5", 0, 50, 300, 20)
GUICtrlCreateLabel("Имя первого файла-результата", 0, 75, 300, 20)
Local $File1 = GUICtrlCreateInput("myfile1.txt", 0, 100, 300, 20)
GUICtrlCreateLabel("Имя второго файла-результата", 0, 125, 300, 20)
Local $File2 = GUICtrlCreateInput("myfile2.txt", 0, 150, 300, 20)
GUICtrlCreateLabel("Название разбиваемого файла", 0, 175, 300, 20)
Local $File = GUICtrlCreateInput("test.txt", 0, 200, 300, 20)

GUISetState(@SW_SHOW, $hGUI)

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop

Case $idButton

Local $hFileOpen = FileOpen(GUICtrlRead($File), $FO_READ)
Local $hFileOpen2 = FileOpen(GUICtrlRead($File1), $FO_APPEND)
FileSetPos($hFileOpen,0,$FILE_BEGIN)
Local $sFileRead1 = FileRead($hFileOpen,GUICtrlRead($sFile))
FileWrite($hFileOpen2,$sFileRead1)

Local $hFileOpen3 = FileOpen(GUICtrlRead($File2), $FO_APPEND)
FileSetPos($hFileOpen,GUICtrlRead($sFile),$FILE_BEGIN)
Local $sFileRead2 = FileRead($hFileOpen,GUICtrlRead($sFile))
FileWrite($hFileOpen3,$sFileRead2)

msgbox(0,"Сообщение","Разъединение файла завершено")
EndSwitch
WEnd