|
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
| Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Autoit |
|
|
[решено] Autoit
|
|
Новый участник Сообщения: 8 |
Всем привет снова нужна ваша помощь вот
#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 | |
|