(Q) Можно ли передавать параметры командной строки в vbscript?
Формулировка задачи:
Добрый день!
Хотелось бы передать через командную строку параметы в запускаемый vbscript-файл
- аналогично передаче параметров через командную строку в запускаемый bat-файл
(доступ к которым в тексте командника можно получить через переменные %1,%2,...).
Можно ли передавать параметры через командную строку в запускаемый vbscript?
Какой синтаксис необходимо использовать для доступа к переданным через командную строку
параметрам в тексте 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д