1 Тема от Lucky (изменено: Lucky, 2012-02-23 22:29:32)

  • Lucky
  • Разработчик
  • Неактивен

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

Добрый день, земляне! Не могу понять в чём фатальность в банальном коде и как сие решить, не прибегая к 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
---------------------------
ОК   
---------------------------

Стремление - залог успеха

2 Ответ от Евген

  • Евген
  • Разработчик
  • Неактивен

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

msgbox subfols.count
Времени не хватает... :-(

3 Ответ от alexii

  • alexii
  • Разработчик
  • Неактивен

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

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

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

4 Ответ от Lucky

  • Lucky
  • Разработчик
  • Неактивен

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

Спасибо!

alexii пишет:

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

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

Стремление - залог успеха

5 Ответ от alexii

  • alexii
  • Разработчик
  • Неактивен

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

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

6 Ответ от Lucky (изменено: Lucky, 2012-02-23 22:32:13)

  • Lucky
  • Разработчик
  • Неактивен

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

alexii пишет:

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

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

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

Стремление - залог успеха

7 Ответ от alexii

  • alexii
  • Разработчик
  • Неактивен

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

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

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

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

8 Ответ от Lucky

  • Lucky
  • Разработчик
  • Неактивен

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

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

Стремление - залог успеха