[решено] VBS: Объединение аргументов в одну строку

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - [решено] VBS: Объединение аргументов в одну строку (http://forum.oszone.net/showthread.php?t=325318)

Паразит

29-03-2017 13:15 2724051

VBS: Объединение аргументов в одну строку

Привет, такая задача.
Вот у меня есть скрипт, и я его запускаю с разным количеством аргументов.

Код:

Cnt = WScript.Arguments.Count

For i = 0 To Cnt - 1

 MsgBox WScript.Arguments(i)

'sss = Array(WScript.Arguments(i))

'ddd = join(sss)

' MsgBox ddd

Next

Как мне объединить весь этот массив аргументов в одну строку?

Iska	29-03-2017 17:05 2724119

Цитата:

Цитата Паразит

Как мне объединить весь этот массив аргументов в одну строку? »

Это не массив, это коллекция. А зачем объединять в одну строку?

Код:

Option Explicit



Dim strArgument, strArguments



strArguments = ""



For Each strArgument In WScript.Arguments

        strArguments = strArguments & " " & strArgument

Next



strArguments = Mid(strArguments, 2)



WScript.Echo "[" & strArguments & "]"



WScript.Quit 0

Паразит

29-03-2017 17:27 2724130

Iska, да вот сегодня появилась задача, и тут я забуксовал. Это всего лишь, часть скрипта.
Спасибо, за помощь.

Iska	29-03-2017 17:42 2724133

Паразит, дык, зачем? Интересно. Мне, вот, как-то ни разу не понадобилось.

Паразит

29-03-2017 17:59 2724142

Я хочу создать скрипт, чтобы переносить папки с определёнными условиями.
И мне нужны были имена этих папок, чтобы конструировать строку, куда я хотел их перемещать.

Iska	29-03-2017 18:24 2724149

Паразит, покажете здесь потом?

Паразит

29-03-2017 19:00 2724161

Честно говоря, задача уже неактуальна. Я решил по другому делать.
Ещё раз, спасибо, Вам за помощь.

Время: 13:55.