VB 脚本 +在D:盘下找到所需目录的PATH

发布于 2024-10-28 15:14:32 字数 336 浏览 1 评论 0原文

如何通过VB脚本找到SUB_MAIN目录完整路径？

规则：sub_main目录始终在MAIN DERICTORY下方的

sub_main目录可能在路径中的任何位置，如以下示例：

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

Or

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

Or   

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

vb脚本需要查找的路径示例：

path = d：\ scripts \ win \ win \ my_folder \ main \ sub_main

原文

How to find the SUB_MAIN directory full PATH by VB script?

RULE: SUB_MAIN directory always under MAIN directory

SUB_MAIN directory could be anywhere in the PATH as the following examples:

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

Or

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

Or   

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

Example of PATH that VB script need to find:

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

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

滴情不沾 2024-11-04 15:14:32

使用 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)

Use FileSystemObject and recursively go through the sub-folders until you find the folder you are looking for.

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

Not exactly how I would do it but you should get the point

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)

回复收藏 0 原文

~没有更多了~