Question

如何通过VB脚本找到完整PATH的SUB_MAIN目录？

RULE：SUB_MAIN目录始终位于MAIN目录

下

SUB_MAIN目录可以在PATH中的任何位置，如下例所示：

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

Or

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

Or   

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

VB脚本需要查找的PATH示例：

PATH = d：\脚本\赢\ 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)

VB脚本+在D：驱动下找到所需目录的PATH

1 个答案: