Серый форум — AHK: Копирование файлов стандартными средствами Windows

Re: AHK: Копирование файлов стандартными средствами Windows

null@example.com (avens) — Sun, 04 Jan 2015 08:22:55 +0000

А можно как то в данном коде сделать копирование нескольких файлов в папку назначения?
Например надо скопировать файлы:
J:\Video\file1.mp4
J:\Video\file2.mp4
И может даже вместе с этими еще несколько файлов из другой папки:
J:\Audio\file1.mp3
J:\Audio\file2.mp3

;Копирование
target = J:\Video\file1.mp4
destination = F:\Media
objShell := ComObjCreate("Shell.Application")
objFolder := objShell.NameSpace(destination)
objFolder.CopyHere(target, fFlags)
objShell := objFolder := ""

Re: AHK: Копирование файлов стандартными средствами Windows

null@example.com (avens) — Sat, 03 Jan 2015 09:51:08 +0000

Благодарствую! То что надо

MsgBox, 4,, Копировать файлы с подтверждением или без?
IfMsgBox Yes
    fFlags = 0
else
IfMsgBox No
    fFlags = 16

;Копирование
target = J:\Video\file.mp4
destination = F:\Video
objShell := ComObjCreate("Shell.Application")
objFolder := objShell.NameSpace(destination)
objFolder.CopyHere(target, fFlags)
objShell := objFolder := ""

Re: AHK: Копирование файлов стандартными средствами Windows

null@example.com (Malcev) — Fri, 02 Jan 2015 20:14:48 +0000

Можно. По ссылке написано, что надо в опциях 16 добавить.
http://msdn.microsoft.com/en-us/library … 85%29.aspx

Re: AHK: Копирование файлов стандартными средствами Windows

null@example.com (avens) — Fri, 02 Jan 2015 18:58:49 +0000

А можно как то сделать что бы при существовании копируемого файла в папке назначения, копирование подтверждалось автоматически?

Re: AHK: Копирование файлов стандартными средствами Windows

null@example.com (teadrinker) — Wed, 21 Aug 2013 16:47:36 +0000

Можно через WinApi: SHFileOperation()
Примеры использования можно найти на оф. форуме.

Re: AHK: Копирование файлов стандартными средствами Windows

null@example.com (avens) — Tue, 20 Aug 2013 07:18:16 +0000

Упс. Почему то в скомпилированом виде скрипт выдает ошибку:

Error: Call to nonexistent function.
Specifically: ComObjCreate("Shell.Application")
Line#
---> 017: objShell := ComObjCreate("Shell.Application")
The program will exit.

А, извеняюсь, это на старом AutoHotkey, на AutoHotkeyL все путем.
Можно как то эту ошибку обойти, или сделать как то по другому, что бы на последней версии AutoHotkey тоже работало?
Мне просто некоторые скрипты нужно компилировать на AutoHotkey.

Re: AHK: Копирование файлов стандартными средствами Windows

null@example.com (avens) — Tue, 20 Aug 2013 06:55:59 +0000

Спасибо большое, teadrinker! То что надо!

Удачи!

Re: AHK: Копирование файлов стандартными средствами Windows

null@example.com (teadrinker) — Mon, 19 Aug 2013 20:11:51 +0000

Так примерно:

target := "D:\Downloads\Видео\Probuzhdenie.avi"
destination := "D:\Downloads"
objShell := ComObjCreate("Shell.Application")
objFolder := objShell.NameSpace(destination)
objFolder.CopyHere(target)
objShell := objFolder := ""

Folder object

AHK: Копирование файлов стандартными средствами Windows

null@example.com (avens) — Mon, 19 Aug 2013 08:24:39 +0000

Здравствуйте!

Как можно с помощью AHK, копировать/перемещать файлы стандартными средствами Windows, с выводом стандартного окна копирования? То есть аналогично командам: Ctrl+C/Ctrl+X и после Ctrl+V в нужную директорию.