Любой язык - [решено] Нужна программа которая в папку SendTo "закидывает" командный файл

Vadikan · Конфигурация компьютера

intersk, достаточно запаковать ваш скрипт в SFX архив http://oszone.net/3171 и добавить туда же скрипт, определяющий операционную систему и копирующий файл в нужное расположение.

Переношу в скрипты.

intersk · Отправлено: **10:35, 14-06-2011** | #3

Vadikan, для меня это не понятно.... Если можете делайте - я дам свой файл.

amel27 · Отправлено: **11:03, 14-06-2011** | #4

Цитата intersk:

для меня это не понятно »

пример батника для WinRAR,
для файла "inst.cmd" создаёт самораспаковывающийся (SFX) архив "inst.exe" в текущей папке:

Код:

set WHAT=inst.cmd
set INST=inst.exe

set ProfilePath=%%UserProfile%%
"%ProgramFiles%\WinRAR\rar.exe" a -ep -sfx "%INST%" "%WHAT%"
(echo TempMode
 echo Setup=%COMSPEC% /C COPY /Y "%WHAT%" "%%ProfilePath%%\SendTo"
 echo Silent=2
 echo Overwrite=1
)|"%ProgramFiles%\WinRAR\rar.exe" c "%INST%"

intersk · Отправлено: **12:01, 14-06-2011** | #5

Цитата amel27:

для файла "inst.cmd" создаёт самораспаковывающийся (SFX) архив "inst.exe" в текущей папке: »

это для моего компьютера, а нужно чтобы на любом компьютере копирование файла происходило в SendTo независимо от операц.системы
я изменил параметры на
------------------------
;Расположенный ниже комментарий содержит команды SFX-сценария

Path=%UserProfile%\SendTo
......
--------------
теперь вроде то что нужно. Интересно на Vista и Seven сработает?

Iska · Отправлено: **12:18, 14-06-2011** | #6

Цитата intersk:

а нужно чтобы на любом компьютере копирование файла происходило в SendTo независимо от операц.системы »

На VBScript, без проверок корректности:

Код:

Const CSIDL_SENDTO = &H09

WScript.CreateObject("Shell.Application").NameSpace(CSIDL_SENDTO).CopyHere WScript.Arguments.Item(0)

Полный путь к файлу, который нужно скопировать (кстати, а почему именно «помещать» туда сам файл, а не ярлык на него, как положено?) в «SendTo», указывается аргументом скрипта (равно можно просто перетащить файл на данный скрипт).

intersk · Отправлено: **12:28, 14-06-2011** | #7

Цитата Iska:

почему именно «помещать» туда сам файл, а не ярлык на него »

это маленький командный файл, размером с ярлык).
А что делать с кодом VBScript - создать из него cmd ?

amel27 · Отправлено: **12:29, 14-06-2011** | #8

Цитата intersk:

нужно чтобы на любом компьютере »

исправил

пришлось через CMD - WinRAR считает путь только относительно ProgramFiles

Iska · Отправлено: **12:46, 14-06-2011** | #9

Цитата intersk:

А что делать с кодом VBScript…? »

Сохранить в файл в кодировке ANSI (1251) с расширением «.vbs».

amel27 · Отправлено: **12:55, 14-06-2011** | #10

Цитата amel27:

пришлось через CMD »

хотя нет, такой вариант тоже вроде работает, не смотря что в документации к WinRAR явно не сказано, что он поддерживает подстановки в параметрах:

Код:

set WHAT=inst.cmd
set INST=inst.exe

set ProfilePath=%%UserProfile%%
"%ProgramFiles%\WinRAR\rar.exe" a -ep -sfx "%INST%" "%WHAT%"
(echo Path=%%ProfilePath%%\SendTo
 echo Silent=2
 echo Overwrite=1
)|"%ProgramFiles%\WinRAR\rar.exe" c "%INST%"