Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » AutoIT (Часть 3)

Модерирует : gyra, Maz

gyra (23-01-2020 10:51): AutoIT (Часть 4)  Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

Skif_off

Gold Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Код:
#NoTrayIcon
 
;Проверяем количество параметров
If $CmdLine[0] <> 3 Then
    MsgBox(4096, 'JPEGViewCopyMove.au3', 'Проверьте параметры запуска.')
    Exit
EndIf
;Получаем каталог назначения
$sNewFilePath = FileSelectFolder('Укажите каталог назначения', '', 1+4)
If @error = 1 Then Exit
;Получаем имя файла для MsgBox
$sFileName = StringRegExpReplace($CmdLine[1], '^.*\\', '')
 
If $CmdLine[2] = 'copy' Then
    FileCopy($CmdLine[1], $sNewFilePath)
    If $CmdLine[3] = 1 Then MsgBox(4096, 'JPEGViewCopyMove.au3', 'Файл "' & $sFileName & '" скопирован в каталог "' & $sNewFilePath & '"')
ElseIf $CmdLine[2] = 'move' Then
    FileMove($CmdLine[1], $sNewFilePath)
    If $CmdLine[3] = 1 Then MsgBox(4096, 'JPEGViewCopyMove.au3', 'Файл "' & $sFileName & '" перемещен в каталог "' & $sNewFilePath & '"')
Else
    MsgBox(4096, 'JPEGViewCopyMove.au3', 'Проверьте параметры запуска.')
    Exit
EndIf

Всего записей: 6490 | Зарегистр. 28-01-2008 | Отправлено: 03:21 06-10-2014 | Исправлено: Skif_off, 03:24 06-10-2014
   

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » AutoIT (Часть 3)
gyra (23-01-2020 10:51): AutoIT (Часть 4)


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru