Question

如何用vbs获取指定路径下的文件名并输出到文本文件

Answer 1

把文本文件处理为数组，每则中行为一个数组元素，然后在每个元素中查找关键词，vbs可以直接使用instr函数来查找，也可以使用正则表达式查找。找到后把那个数组元素复制出来就可以了。第一种，源盯睁使用instrc = split(createobject("scripting.filesystemobject").opentextfile("a.txt").readall,vbcrlf)for i = 0 to ubound(c)if instr(c(i),"nice") then msgbox c(i)next第二种，使用正则表达式c = split(createobject("scripting.filesystemobject").opentextfile("雹岁a.txt").readall,vbcrlf)for i = 0 to ubound(c)if rt("nice",c(i)) then msgbox c(i)nextFunction rt(patrn,str)set regex=new regexpregex.pattern = patrnregex.ignorecase = falsert = regex.test(str)End Function

Answer 2

把下面代码复制到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