Серый форум — VBS: Определение количества подпапок в папке

Re: VBS: Определение количества подпапок в папке

2012-03-15T14:53:20Z

Ага, сейчас понял что вы имели ввиду, теперь уже она раскрыта в названии.

Re: VBS: Определение количества подпапок в папке

2012-02-23T20:42:03Z

Я имею в виду пункт Правил §4.10 [выделение моё]:

Если Вы задаёте конкретный вопрос по программированию, всегда указывайте свою конечную цель, если есть такая возможность. Помните, что Ваша проблема может не нуждаться в решении. Не заставляйте отвечающих заниматься изобретением велосипедов, которые Вы выкинете через полчаса, когда поймёте суть своей проблемы до конца.

В Вашем конкретном случае Вам нужно было в теле поста сразу озвучить конечную цель — определение количества вложенных папок. Заголовок же темы при этом вполне мог быть и тем, который Вы написали изначально.

Re: VBS: Определение количества подпапок в папке

2012-02-23T18:24:25Z

alexii пишет:

Вы неправильно задали вопрос, коллега . Не забывайте упоминать, при озвучивании проблемы, зачем сие нужно.

Вы имеете ввиду не правильно назвал тему? - Прошу прощения, не подумал на скорую руку из-за, так сказать, банальности вопроса...

P.S: Всё, переименовал.

Re: VBS: Определение количества подпапок в папке

2012-02-23T08:16:53Z

Вы неправильно задали вопрос, коллега . Не забывайте упоминать, при озвучивании проблемы, зачем сие нужно.

Re: VBS: Определение количества подпапок в папке

2012-02-23T07:06:54Z

Спасибо!

alexii пишет:

А чем Вам не нравится «For Each …»?

Числом строк и операций. Мне просто необходимо знать количество папок и ничего больше.

Re: VBS: Определение количества подпапок в папке

2012-02-23T07:01:50Z

Функция UBound() применима к массивам и не применима к коллекциям, коей и является возвращаемое свойством .SubFolders значение.

А чем Вам не нравится «For Each …»?

Re: VBS: Определение количества подпапок в папке

2012-02-23T06:53:23Z

msgbox subfols.count

VBS: Определение количества подпапок в папке

2012-02-23T06:19:30Z

Добрый день, земляне! Не могу понять в чём фатальность в банальном коде и как сие решить, не прибегая к for each fol in subfols:


set FSO = CreateObject("Scripting.FileSystemObject")
set subfols=FSO.Getfolder("D:\folder0").subfolders
msgbox Ubound(subfols)

---------------------------
Windows Script Host
---------------------------
Строка: 3
Символ: 1
Ошибка: Недопустимое число аргументов или присвоение значения свойства
Код: 800A01C2
Источник: Ошибка выполнения Microsoft VBScript
---------------------------
ОК
---------------------------