VBS/WSH/JS

Iska · Отправлено: **01:32, 05-09-2014** | #2

Цитата V!RTuE:

в bat/cmd просто - "%~dp0program.exe". »

В WSH:

Код:

Dim objFSO


Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

WScript.Echo objFSO.BuildPath(objFSO.GetParentFolderName(WScript.ScriptFullName), "program.exe")

Set objFSO = Nothing

Цитата V!RTuE:

2-й вопрос: если название файла точно неизвестно, но знаю что начинается на din*.rar, то также как указать в скрипте? »

Например, найти посредством регулярного выражения. Если укажете, где/откуда начинать поиск «din*.rar» — могу привести примерный код.

Цитата V!RTuE:

3-й что означают цифры 2 и 1 в строках и какие могут быть другие значения? »

Искать здесь: http://schemas.microsoft.com/cdo/configuration/.

1. sendusing Field, возможные значения: CdoSendUsing Enum;
2. smtpauthenticate Field, возможные значения в случае, если для поля «sendusing» указано значение «cdoSendUsingPort»: CdoProtocolsAuthentication Enum.

V!RTuE · Отправлено: **01:40, 05-09-2014** | #3

Цитата Iska:

Например, найти посредством регулярного выражения. Если укажете, где/откуда начинать поиск «din*.rar» — могу привести примерный код. »

вот мне нужен пример если скрипт запускается из той папки, где находится n-ое количество файлов din*.rar (ну и для примера, если находится в папке \BASE)
Также просьба учесть, что может запускаться скрипт как на сервере, так и в имени пути к данному скрипту могут быть пробелы (для bat/cmd знаю что надо в кавычки заключать). А для VBS также?

Цитата Iska:

Код:
Dim objFSO
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
WScript.Echo objFSO.BuildPath(objFSO.GetParentFolderName(WScript.ScriptFullName), "program.exe")
Set objFSO = Nothing »

и что-то не получается у меня. куда его вставлять? у меня сначала появляется окно, где написан полный путь к program.exe и после выдает ошибку в строке

Код:

objEmail.AddAttachment "program.exe"

P.S.: В общем мне надо с помощью этого скрипта отправить файл program.exe и все din*.rar. Эти все файлы находятся в той же папке, где и сам скрипт

Iska · Отправлено: **13:15, 05-09-2014** | #4

Цитата V!RTuE:

скрипт запускается из той папки »

Цитата V!RTuE:

если находится в папке »

V!RTuE, так Вам что нужно, не пойму: папка, из которой скрипт запускается — текущий каталог для скрипта, или же папка, в которой находится сам скрипт? Это в корне разные вещи, хоть и могут в большинстве случаев совпадать.

Georgio · Отправлено: **17:25, 05-09-2014** | #5

Цитата V!RTuE:

в bat/cmd просто - "%~dp0program.exe". »

В VBS тоже просто: «Replace(WScript.ScriptFullName,WScript.ScriptName,"")&"program.exe"».

Пример:

Код:

WScript.Echo Replace(WScript.ScriptFullName,WScript.ScriptName,"")&"program.exe"

'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'' Если "program.exe" находится в одной директории с файлом сценария VBScript, то:
'' ===============================================================================

'' 1) эта строка выполнит запуск "program.exe" как при запуске VBS-файла из проводника, 
'' так и при запуске VBS-файла из командной строки:
'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 WScript.CreateObject("Shell.Application").ShellExecute Replace(WScript.ScriptFullName,WScript.ScriptName,"")&"program.exe"
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

'' 2) эта строка выполнит запуск "program.exe" только при запуске VBS-файла из проводника, 
'' а при запуске VBS-файла из командной строки получим ошибку: 
'' "Не удатся найти "program.exe". Проверьте, правильно ли указано имя и повтоите попытку."
'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 WScript.CreateObject("Shell.Application").ShellExecute "program.exe"
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Iska · Отправлено: **04:09, 06-09-2014** | #6

Цитата Georgio:

Replace(WScript.ScriptFullName,WScript.ScriptName,"") »

Теоретически в полном пути может попасться папка, одноимённая с именем скрипта.

Georgio · Отправлено: **08:55, 06-09-2014** | #7

Цитата Iska:

Теоретически в полном пути может попасться папка, одноимённая с именем скрипта. »

Справедливое замечание. Чтобы это предусмотреть, предложу такие варианты:

Код:

Replace(WScript.ScriptFullName&"*",WScript.ScriptName&"*","")

и

Код:

Wscript.CreateObject("Scripting.FileSystemObject").GetFile(WScript.ScriptFullName).ParentFolder&"\"

.

Iska · Отправлено: **16:31, 06-09-2014** | #8

Цитата Georgio:

Код:

Replace(WScript.ScriptFullName&"*",WScript.ScriptName&"*","")

»

.

Georgio · Отправлено: **17:59, 07-09-2014** | #9

Ещё пара вариантов:

Код:

Left(WScript.ScriptFullname,Instrrev(WScript.ScriptFullname,"\"))

и

Код:

WScript.CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName)&"\"

.

ypmail · Отправлено: **09:57, 21-12-2014** | #10

Цитата Georgio:

Код:
WScript.CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName)&"\"
. »

Не получается этот вариант адаптировать под запуск файла, находящегося в той же папке, что и скрипт. Можно полный код?