当前位置 博文首页 > VBS获取当前目录下所有文件夹名字的代码

最大化 缩小

    VBS获取当前目录下所有文件夹名字的代码

    作者：admin 时间：2021-02-05 06:00

    VBS获取当前目录下所有文件夹名字，不包括子文件夹。我要给每个文件夹进行操作，所以最好用循环输出。

    测试的时候要保证当前目录下有文件夹才可以，否则输出为空。
    复制代码 代码如下:

    Set ws=WScript.CreateObject("wscript.shell")
    w=ws.CurrentDirectory
    Set fso=WScript.CreateObject("scripting.filesystemobject")
    Set fs=fso.GetFolder(w)
    Set f=fs.SubFolders
    For Each uu In f
    t=t & uu.Path & vbcrlf
    Next
    MsgBox t


    效果图：

    js
    上一篇：Iannnnnnnnnnnnn：.NET使用DinkToPdf将HTML转成PDF
    下一篇：没有了