|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Autoit |
|
[решено] Autoit
|
Новый участник Сообщения: 8 |
Профиль | Отправить PM | Цитировать Всем привет снова нужна ваша помощь вот
#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <ProgressConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form=C:\Program Files (x86)\koda_1.7.3.0\Forms\Form1.kxf $Form1_1 = GUICreate("Form1", 532, 110, 192, 124) $Button1 = GUICtrlCreateButton("Folder№1", 8, 8, 75, 25) $Button2 = GUICtrlCreateButton("Folder№2", 8, 40, 75, 25) $Input1 = GUICtrlCreateInput("", 88, 8, 433, 21) $Input2 = GUICtrlCreateInput("", 88, 40, 433, 21) $Button3 = GUICtrlCreateButton("Copy", 8, 72, 75, 25) $Progress1 = GUICtrlCreateProgress(88, 72, 430, 17) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 $path = FileSelectFolder ( "", "", "") GUICtrlSetData($Input1, $path & "\") Case $Button2 $path = FileSelectFolder ( "", "", "") GUICtrlSetData($Input2, $path & "\") Case $Button3 FileCopy("$ GUICtrlRead($Input1) $", "$ GUICtrlRead($Input2) $", 9) EndSwitch WEnd |
|
Отправлено: 12:24, 28-08-2021 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата ZmeyRepack:
#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <ProgressConstants.au3> #include <WindowsConstants.au3> #include <FileConstants.au3> #Region ### START Koda GUI section ### Form=C:\Program Files (x86)\koda_1.7.3.0\Forms\Form1.kxf $Form1_1 = GUICreate("Form1", 532, 110, 192, 124) $Button1 = GUICtrlCreateButton("Folder№1", 8, 8, 75, 25) $Button2 = GUICtrlCreateButton("Folder№2", 8, 40, 75, 25) $Input1 = GUICtrlCreateInput("", 88, 8, 433, 21) $Input2 = GUICtrlCreateInput("", 88, 40, 433, 21) $Button3 = GUICtrlCreateButton("Copy", 8, 72, 75, 25) $Progress1 = GUICtrlCreateProgress(88, 72, 430, 17) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 $path = FileSelectFolder("Select source folder", "", $FSF_CREATEBUTTON + $FSF_NEWDIALOG + $FSF_EDITCONTROL, GUICtrlRead($Input1), $Form1_1) If Not @error Then GUICtrlSetData($Input1, $path) EndIf Case $Button2 $path = FileSelectFolder("Select destination folder", "", $FSF_CREATEBUTTON + $FSF_NEWDIALOG + $FSF_EDITCONTROL, GUICtrlRead($Input2), $Form1_1) If Not @error Then GUICtrlSetData($Input2, $path) EndIf Case $Button3 FileCopy(GUICtrlRead($Input1) & "\*.*", GUICtrlRead($Input2), $FC_OVERWRITE + $FC_CREATEPATH) EndSwitch WEnd Цитата ZmeyRepack:
|
||
Отправлено: 17:51, 28-08-2021 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Новый участник Сообщения: 8
|
Профиль | Отправить PM | Цитировать Здравствуй Iska снова выручаешь. Получить файлы из исходного каталога $Input1, посчитать их количество. Только каталог должен быть копирован без изменений сохранив структуру под папок.
|
Отправлено: 18:13, 28-08-2021 | #3 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Тогда смотрите в сторону DirCopy(). Если нужен ProgressBar — то рекурсивный разбор каталога $Input1 для подсчёта количества/объёма, затем ещё один рекурсивный разбор $Input1 и DirCreate() для каждого с последующим FileCopy() и обновлением ProgressBar.
|
Отправлено: 18:32, 28-08-2021 | #4 |
Новый участник Сообщения: 8
|
Профиль | Отправить PM | Цитировать Спасибо буде копать!!!
|
|
Отправлено: 20:23, 28-08-2021 | #5 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
AutoIt и Jabber | morgan1991 | AutoIt | 4 | 28-07-2010 23:52 | |
AutoIt | bgs | AutoIt | 6 | 01-02-2010 21:20 | |
MsExcel2007 и AutoIT | Veter_cmd | AutoIt | 1 | 10-07-2009 16:45 | |
Разное - Autoit | vampirqueen | Программирование и базы данных | 2 | 30-06-2008 04:59 | |
SMS и AUTOIt | mikola1983 | AutoIt | 0 | 02-04-2008 07:43 |
|