Данные, содержащие абсолютные пути к подкаталогам, разумно записывать в динамический одномерный массив. Приведем пример создания и заполнения элементов динамического массива на примере чтения структуры подкаталогов (основа – предыдущий пример), затем шаблон рекурсивной функции. Листинг рекурсивной функции см. в приложении[5], листинг файла service.vbs.

Пример 6:

Path=”C:RootFolder”

i=0

Dim Array()      'Объявление динамического массива

Set fso=Wscript.CreateObject("Scripting.FileSystemObject")

Set oFolder=fso.GetFolder(path)

Set oFolders=oFolder.SubFolders

' Изменение размера динамического массива

Redim Preserve Array(oFolders.count)

    For Each of In oFolders

Array(i)=cstr(oF.Path) ' Запись элементов в массив

i=i+1

                 Next

'Чтение элементов массива

Temp=””

For i=Lbound(Array) to Ubound(Array)

Temp=Temp+cstr(Array(i))+chr(13)+chr(10)

Next

MsgBox Temp

Пример 7: Шаблон рекурсивной функции

………..

' Вызов функции RecFolder  в теле сценария

RecFolder index, path

………..

Function Recfolder (idx, path)

………..