Что нового

[Элементы GUI] Вывод пути к каталогу в $Input

АндрейVirus

Новичок
Сообщения
8
Репутация
0
Доброго времени суток! Помогите кто может! Нужно чтоб при выборе каталога путь к нему выводился в $Input. :IL_AutoIt_1:

Код:
#include <File.au3>
#Include <APIConstants.au3>
#Include <WinAPIEx.au3>

$Form1_1 = GUICreate("Copy to Folder", 499, 103, -1, -1)
$MenuItem1 = GUICtrlCreateMenu("Каталог")
$MenuItem2 = GUICtrlCreateMenuItem("Исходный", $MenuItem1)
$MenuItem3 = GUICtrlCreateMenuItem("Конечный", $MenuItem1)
GUISetBkColor(0xA0A0A4)
$Input1 = GUICtrlCreateInput("", 8, 16, 377, 21)
$Input2 = GUICtrlCreateInput("", 8, 48, 377, 21)
$Button1 = GUICtrlCreateButton("Копировать", 392, 29, 99, 25)
GUISetState(@SW_SHOW)


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

		
		Case $MenuItem2
		_WinAPI_BrowseForFolderDlg('', 'Выберите каталог', $BIF_RETURNONLYFSDIRS)
		
		Case $MenuItem3
		_WinAPI_BrowseForFolderDlg('', 'Сохранить каталог', BitOR($BIF_NEWDIALOGSTYLE, $BIF_RETURNONLYFSDIRS))
		
		Case $Button1
		DirCopy(GUICtrlRead($Input1), GUICtrlRead($Input2), 1)
MsgBox (64, "Копирование", "Выполнино")
		
	EndSwitch
WEnd
 

ra4o

AutoIT Гуру
Сообщения
1,162
Репутация
242
Так ?
Код:
#include <File.au3>
#Include <APIConstants.au3>
#Include <WinAPIEx.au3>

$Form1_1 = GUICreate("Copy to Folder", 499, 103, -1, -1)
$MenuItem1 = GUICtrlCreateMenu("Каталог")
$MenuItem2 = GUICtrlCreateMenuItem("Исходный", $MenuItem1)
$MenuItem3 = GUICtrlCreateMenuItem("Конечный", $MenuItem1)
GUISetBkColor(0xA0A0A4)
$Input1 = GUICtrlCreateInput("", 8, 16, 377, 21)
$Input2 = GUICtrlCreateInput("", 8, 48, 377, 21)
$Button1 = GUICtrlCreateButton("Копировать", 392, 29, 99, 25)
GUISetState(@SW_SHOW)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit


        Case $MenuItem2
        GuiCtrlSetData($Input1,_WinAPI_BrowseForFolderDlg('', 'Выберите каталог', $BIF_RETURNONLYFSDIRS))

        Case $MenuItem3
        GuiCtrlSetData($Input2,_WinAPI_BrowseForFolderDlg('', 'Сохранить каталог', BitOR($BIF_NEWDIALOGSTYLE, $BIF_RETURNONLYFSDIRS)))

        Case $Button1
        DirCopy(GUICtrlRead($Input1), GUICtrlRead($Input2), 1)
MsgBox (64, "Копирование", "Выполнино")

    EndSwitch
WEnd
 
Автор
АндрейVirus

АндрейVirus

Новичок
Сообщения
8
Репутация
0
ra4o сказал(а):
Так ?
Код:
#include <File.au3>
#Include <APIConstants.au3>
#Include <WinAPIEx.au3>

$Form1_1 = GUICreate("Copy to Folder", 499, 103, -1, -1)
$MenuItem1 = GUICtrlCreateMenu("Каталог")
$MenuItem2 = GUICtrlCreateMenuItem("Исходный", $MenuItem1)
$MenuItem3 = GUICtrlCreateMenuItem("Конечный", $MenuItem1)
GUISetBkColor(0xA0A0A4)
$Input1 = GUICtrlCreateInput("", 8, 16, 377, 21)
$Input2 = GUICtrlCreateInput("", 8, 48, 377, 21)
$Button1 = GUICtrlCreateButton("Копировать", 392, 29, 99, 25)
GUISetState(@SW_SHOW)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit


        Case $MenuItem2
        GuiCtrlSetData($Input1,_WinAPI_BrowseForFolderDlg('', 'Выберите каталог', $BIF_RETURNONLYFSDIRS))

        Case $MenuItem3
        GuiCtrlSetData($Input2,_WinAPI_BrowseForFolderDlg('', 'Сохранить каталог', BitOR($BIF_NEWDIALOGSTYLE, $BIF_RETURNONLYFSDIRS)))

        Case $Button1
        DirCopy(GUICtrlRead($Input1), GUICtrlRead($Input2), 1)
MsgBox (64, "Копирование", "Выполнино")

    EndSwitch
WEnd

Да!!! Спасибо! :ok:
 
Верх