VB скрипт + найти путь к нужной директории на диске D:

Question

Как найти полный путь к каталогу SUB_MAIN по сценарию VB?

ПРАВИЛО: каталог SUB_MAIN всегда находится в каталоге MAIN

Каталог SUB_MAIN может находиться в любом месте в PATH, как показано в следующих примерах:

D:\...\...\...\MAIN\SUB_MAIN

Or

D:\...\...\MAIN\SUB_MAIN

Or   

D:\...\...\... \...\...\MAIN\SUB_MAIN

Пример PATH, который должен найти VB-скрипт:

PATH = D: \ scripts \ win \ my_folder \ MAIN \ SUB_MAIN

Answer 1

Используйте FileSystemObject и рекурсивно просматривайте подпапки, пока не найдете нужную папку.

http://msdn.microsoft.com/en-us/library/d6dw7aeh(v=VS.85).aspx

Не совсем так, как я бы это сделал, но вы должны понять ...

Option Explicit

Dim sub_mains

function getfolders(rootfolder)

    Dim FSO, fold, folds,folds1

    set FSO =  CreateObject("Scripting.FileSystemObject")

    Set fold = FSO.GetFolder(rootfolder)
    Set folds = fold.SubFolders
    For Each folds1 in folds
        getfolders(folds1.path)
        if InStr(folds1.path,"sub_main") > 0 then
            sub_mains = sub_mains + folds1.path + ":" 
        End If
    Next

end function
getfolders("C:\test")

MsgBox(sub_mains)