Question

VBS获取文件夹下的所有文件名称，把名称写到一个文档里

要求连同文件夹
例如 文件夹01j介质录入，下有文件001_000电影介质录入等
格式为
01介质录入/001_000电影介质录入
01介质录入/002_000电影介质录入
01介质录入/003_000电影介质录入
01介质录入/004_000电影介质录入
不要文件的格式，只要名字，最好用vbs或dos命令

Answer 1

把下面代码复制到VBS文件，运行后获取当前文件夹路径下的所有文件夹名字（不带路径）
文件夹名字生成在Comp.txt中

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.Name & vbcrlf
Next
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("comp.txt", True)
MyFile.WriteLine(t)
MyFile.Close
MsgBox t