vbs有没有办法显示一个文件夹下所有子文件夹的名称（是不是要用到递归）

答案:3 悬赏:80 手机版

解决时间 2021-08-01 23:04

提问者网友：你独家记忆
2021-07-31 23:28

最佳答案

五星知识达人网友：动情书生
2021-08-01 00:16

你看看，显示所有的子文件夹 d:盘的

Dim t
Set fso=WScript.CreateObject("scripting.filesystemobject")
Set fs=fso.GetFolder("d:\")
WScript.Echo aa(fs)
Function aa(n)
Set f=n.subfolders
For Each uu In f
Set op=fso.GetFolder(uu.path)
t=t & vbcrlf & op.path
Call aa(op)
Next
aa=t
End function

全部回答

1楼网友：鸠书
2021-08-01 00:54

如果是显示文件夹下所有子文件夹

不包括子文件夹中的文件与文件夹的话，就不用递归

如果包括，那就只能用递归了！

2楼网友：刀戟声无边
2021-08-01 00:42

团队的补充 2009-12-02 09:17

str=""

call bianli(".")

function bianli(fd)

set fsys=createobject("scripting.filesystemobject") set tempfolder=fsys.getfolder(fd) for each file in tempfolder.files if instr(right(file.name,4),".txt") then str=str&file.name&vbcrlf end if next for each fds in tempfolder.subfolders

call bianli(fds)

end function

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息