#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1_1 = GUICreate("Copy Master", 258, 216)
$Label1 = GUICtrlCreateLabel("Введите путь до файла", 8, 8, 121, 17)
$file_input = GUICtrlCreateInput("", 8, 24, 209, 21)
$Button1 = GUICtrlCreateButton("...", 224, 22, 27, 25, $WS_GROUP)
$Label3 = GUICtrlCreateLabel("Путь до файла на сервере", 8, 48, 138, 17)
$file_out = GUICtrlCreateInput("", 8, 64, 240, 21)
GUICtrlCreateLabel("Данная прога просто выполняет копирование", 8, 96, 240, 17)
GUICtrlCreateLabel("в шару сервера 10.12.3.51", 8, 112, 137, 17)
GUICtrlCreateLabel("Если путь до файла на сервере будет sss.exe", 8, 128, 233, 17)
GUICtrlCreateLabel("путь копирования будет таким:", 8, 144, 163, 17)
GUICtrlCreateLabel("\\10.12.3.51\files_server\sss.exe", 8, 160, 163, 17)
$Button3 = GUICtrlCreateButton("Скопировать!", 8, 184, 243, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button1
$def_dir=@DesktopCommonDir
$temp=FileOpenDialog('Выбери файл',$def_dir,'ALL (*.*)')
GUICtrlSetData($file_input,$temp)
case $Button3
$file_in=GUICtrlRead($file_input)
if $file_in='' Then
MsgBox(0,'Copy Master','Файл-то укажи!')
ContinueLoop
EndIf
$file_out=GUICtrlRead($file_out)
if $file_in='' Then
MsgBox(0,'Copy Master','Файл-то укажи!')
ContinueLoop
EndIf
WinSetState($Form1_1,'',@SW_HIDE)
TrayTip('Copy Master','Подождите, копирую! Может потребоваться много времени!',10)
$result=FileCopy($file_in,'\\10.12.3.51\files_server\' & $file_out,9) ; тут если что замени папку files_server на любую другую
WinSetState($Form1_1,'',@SW_SHOW)
If $result=1 Then
TrayTip('Copy Master','Успешно скопировано!',10)
MsgBox(0,'Copy Master','Успешно скопировано!')
Else
TrayTip('Copy Master','НЕ скопировано!',10)
MsgBox(16,'Copy Master','НЕ скопировано!')
EndIf
EndSwitch
WEnd
)
