_Lexa98_
Осваивающий
- Сообщения
- 551
- Репутация
- 25
Есть скрипт:
Почему когда я переношу файл ничего не происходит?
Добавлено:
Помогите кто нибудь, срочно надо :(
Код:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#NoTrayIcon
#Region ### START Koda GUI section ### Form=C:\Users\Lexa\Desktop\WinMIF.kxf
$Form1 = GUICreate("WinMIF", 302, 110, 190, 120, -1, 0x00000010, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
$PageControl1 = GUICtrlCreateTab(0, 0, 395, 255)
$TabSheet1 = GUICtrlCreateTabItem("Создать")
$Group2 = GUICtrlCreateGroup("Файлы", 175, 23, 120, 80)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label1 = GUICtrlCreateLabel("список", 182, 40, 107, 55, $SS_SUNKEN)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Group1 = GUICtrlCreateGroup("Сюда ложить файлы", 8, 23, 160, 80)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Label2 = GUICtrlCreateLabel("", 15, 40, 147, 55, BitOR($SS_SUNKEN,$WS_BORDER))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$stroka1 = GUICtrlCreateLabel('Положите файлы', 150, 5, 100, 25)
$TabSheet2 = GUICtrlCreateTabItem("Открыть")
$Group3 = GUICtrlCreateGroup("Файлы", 8, 23, 160, 80)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Label4 = GUICtrlCreateLabel("список", 15, 40, 147, 55, BitOR($SS_SUNKEN,$WS_BORDER))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateButton("Открыть", 175, 28, 120, 35)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label1 = GUICtrlCreateButton("Извлечь", 175, 67, 120, 35)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$stroka2 = GUICtrlCreateLabel('Откройте архив', 150, 5, 100, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = -3
Exit
Case $nMsg = -13
GUICtrlSetData($stroka1, @GUI_DRAGFILE)
$filename=StringRegExp(@GUI_DRAGFILE,'(^.*)\\(.*)\.(.*)$',3)
$ScrBin='0x'&@CRLF
$file = FileOpen(@GUI_DRAGFILE, 16)
While 1
$Bin = FileRead($file, 2040)
If @error = -1 Then ExitLoop
$ScrBin&=""&StringTrimLeft($Bin,2)&""""&@CRLF
Sleep(1)
WEnd
FileClose($file)
If FileExists($filename[1]&'.mif') Then
MsgBox(64, '', 'Такой файл уже есть')
Exit
EndIf
$Output = $filename[1]&'.mif'
$file = FileOpen($Output,2)
FileWrite($file, "-----"&$filename[1]&"."&$filename[2]&'-----'&@CRLF& _
$ScrBin&@CRLF)
FileClose($file)
EndSelect
WEnd
Почему когда я переношу файл ничего не происходит?
Добавлено:
Сообщение автоматически объединено:
Помогите кто нибудь, срочно надо :(