(Q) Можно ли передавать параметры командной строки в vbscript?

Узнай цену своей работы

Формулировка задачи:

Добрый день!
Хотелось бы передать через командную строку параметы в запускаемый vbscript-файл
- аналогично передаче параметров через командную строку в запускаемый bat-файл
(доступ к которым в тексте командника можно получить через переменные %1,%2,...).
Можно ли передавать параметры через командную строку в запускаемый vbscript?
Какой синтаксис необходимо использовать для доступа к переданным через командную строку
параметрам в тексте vbscript? Пожалуйста, приведите пример.
С уважением, Алексей

Решение задачи: «(Q) Можно ли передавать параметры командной строки в vbscript?»

textual
Листинг программы
<font color="00AA00">' ShareFile.vbs</font>
<font color="blue">dim</font> objArgs, FSO, oOutlook, oMail
<font color="blue">Dim</font> sFileName, sMailBody


<font color="blue">Set</font> oOutlook = CreateObject(<font color="teal">"Outlook.Application"</font>)
<font color="blue">Set</font> FSO = CreateObject(<font color="teal">"Scripting.FileSystemObject"</font>)
sMailBody = <font color="teal">"Here is the link(s) to download file(s)"</font>

<font color="blue">Set</font> objArgs = WScript.Arguments
<font color="blue">For</font> I = <font color="darkblue"><b>0</b></font> <font color="blue">to</font> objArgs.Count - <font color="darkblue"><b>1</b></font>
	sFileName = FSO.GetFileName(objArgs(I))
	FSO.CopyFile objArgs(I), <font color="teal">"\\FTPServer\files\"</font>
	sMailBody = sMailBody & chr(<font color="darkblue"><b>13</b></font>) & chr(<font color="darkblue"><b>10</b></font>) & <font color="teal">"ftp://ftp.server.com/download/"</font> & sFileName 

<font color="blue">Next</font>
<font color="blue">set</font> oMail = oOutlook.CreateItem(<font color="darkblue"><b>0</b></font>)
oMail.Body = sMailBody
oMail.Subject = <font color="teal">"Link to download"</font>
oMail.Display

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.769 из 5
Похожие ответы