Пример 4:

For i=lbound(array) to ubound(array)

len1=instr(cstr(array(i)),"=")

msgbox "len1:  "&len1

if len(cstr(array(i)))<>0 then

value=left(cstr(array(i)), len1-1)

msgbox "value: "& value

   Select Case value

Case "Symbol" path1=right(cstr(array(i)), len(cstr(array(i)))-len1)

Case  "Path_To_Root" path2=right(cstr(array(i)), len(cstr(array(i)))-len1)

Case  "Label_FileName" path3=right(cstr(array(i)), len(cstr(array(i)))-len1)

Case "Cache_FileName" path4=right(cstr(array(i)), len(cstr(array(i)))-len1)

   End Select

End if

Next

MsgBox path1+chr(13)+ path2+chr(13)+ path3+chr(13)+ path4+chr(13)

Чтение структуры подкаталогов

Чтение структуры подкаталогов осуществляется с помощью объекта Scrpting.FileSystemObject WSH, который создается функцией CreateObject. После создания объекта необходимо получить доступ к подкаталогу, элементы которого (файлы и каталоги) должны быть обработаны. Последовательно перебирая все элементы массива, осуществляется считывание имен папок.

Пример 5:

Path=”C:RootFolder”

Temp=””

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

Set oFolder=fso.GetFolder(path)

Set oFolders=oFolder.SubFolders

                 For Each oF In oFolders

Temp=Temp+cstr(oF.Path)+chr(13)+chr(10)

                 Next

MsgBox Temp

Как уже говорилось, данный фрагмент считывает все подкаталоги в заданном каталоге. Для чтения всей структуры подкаталогов необходимо этот механизм поместить в функцию, а ее сделать рекурсивной[4]. Функция будет иметь два параметра – путь к абсолютному подкаталогу (PATH) и уровень вложенности подкаталогов (IDX).