VBS/WSH/JS - Скрипт для отправки на e-mail

Iska · Отправлено: **00:34, 20-01-2014** | #2

APiM, Вам пора ознакомиться с тэгом [code].

Цитата APiM:

но как сделать чтобы не указывать путь типо C:\test.txt, а чтобы отправлялся файл из этой же папки где лежит скрипт »

Код:

Dim objFSO

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
…
objMessage.AddAttachment objFSO.BuildPath(objFSO.GetParentFolderName(WScript.ScriptFullName), "File.txt")
…
Set objFSO = Nothing

APiM · Отправлено: **21:25, 20-01-2014** | #3

Спасибо)

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

Код:

objMessage.AddAttachment replace(wscript.scriptfullname, wscript.scriptname, "File.txt")

Iska · Отправлено: **19:20, 23-01-2014** | #5

Цитата omegastripes:

objMessage.AddAttachment replace(wscript.scriptfullname, wscript.scriptname, "File.txt") »

WScript.ScriptFullName == "c:\My Path 1.vbscript codes here\1.vbs\1.vbs". Радуемся результату.

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

Цитата Iska:

не всегда самый хитрожёппый путь — самый правильный »

Спешу исправить оплошность:

Код:

objMessage.AddAttachment Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, WScript.ScriptName) - 1) & "File.txt"

Iska · Отправлено: **00:22, 01-02-2014** | #7

Цитата omegastripes:

Спешу исправить оплошность: »

«FSO.GetParentFolderName(WScript.ScriptFullName)» проще и нагляднее.

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

Цитата Iska:

проще и нагляднее »

Соглашусь. Однако 3 строки вместо 1 немного смущают, можно как-то так:

Код:

objMessage.AddAttachment CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName) & "\File.txt"

Iska · Отправлено: **07:40, 02-02-2014** | #9

omegastripes, можно.

Но и я могу тут возразить, что желательно перед попыткой присоединения файла к письму проверять его существование посредством «FSO.FileExists()». И таким образом мы возвращается к нескольким строкам

.