DyadyaGenya
Знающий
- Сообщения
- 300
- Репутация
- 10
Добрый день всем. Указанная в заглавии темы ошибка есть в описании фатальных ошибок. Означает: "Оператор "If" не имеет сопровождающий его оператор "EndIf" ". Пробовал вставлять EndIf, но выскакивает аналогичная проблема.
Вообще задача стоит выбрать папку по нажатию одной кнопки, запомнить (записать) в файл четыре выбора. На пятом выдать сообщение, что уже есть 4 варианта. Вот, что у меня получается
Вообще задача стоит выбрать папку по нажатию одной кнопки, запомнить (записать) в файл четыре выбора. На пятом выдать сообщение, что уже есть 4 варианта. Вот, что у меня получается
Код:
#RequireAdmin
#include <GUIConstantsEx.au3>
#include <Date.au3>
#include <WindowsConstants.au3>
#include <Timers.au3>
#include <StaticConstants.au3>
#include <WinAPIProc.au3>
#Include <ScreenCapture.au3>
#include <WinAPI.au3>
#include <Clipboard.au3>
#include <GDIPlus.au3>
Global $sPS, $sPD
Global $iPid, $iTM
Global $Counter = IniRead("Setting.ini","Statistika","Count","0")
Global $GP = IniRead("Setting.ini","GPat","Pat","")
$hGui = GUICreate('Секундомер', 700, 680, -1, -1, -1, $WS_EX_TOPMOST)
Local $btStart = GUICtrlCreateButton('Старт', 392, 8, 75, 25)
Local $sPathSS = GUICtrlCreateInput('', 8, 96, 325, 21)
Local $sPathS = GUICtrlCreateButton('Откуда', 392, 96, 75, 25)
GUISetState()
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ProcessClose($iPid)
Exit
Case $sPathS
GUICtrlSetData($sPathSS, '')
$sPS = FileSelectFolder('Выбор копируемой папки', '', 0, '', $hGui)
If Not @error Then GUICtrlSetData($sPathSS, $sPS)
Case $btStart
_GetPath()
EndSwitch
WEnd
Func _GetPath()
Local $GPath1 =IniWrite("Setting.ini","Путь1","Путь",'')
Local $GPath2 =IniWrite("Setting.ini","Путь2","Путь",'')
Local $GPath3 =IniWrite("Setting.ini","Путь3","Путь",'')
Local $GPath4 =IniWrite("Setting.ini","Путь4","Путь",'')
If $GPath1 ='' Then $GPath1 = $sPS
IniWrite("Setting.ini","Путь1","Путь",$sPS)
ElseIf $GPath2 ='' Then $GPath2 = $sPS
IniWrite("Setting.ini","Путь2","Путь",$sPS)
Else $GPath3 ='' Then $GPath3 = $sPS
IniWrite("Setting.ini","Путь3","Путь",$sPS)
EndFunc ;==>_GetPath