vbs搜索文件名或者得到目录列表

要使用VBScript搜索文件名或者获取目录列表，可以按照以下步骤进行：

1.使用FileSystemObject创建文件系统对象

Set fso = CreateObject("Scripting.FileSystemObject") 

2.搜索文件

Set objFolder = fso.GetFolder("C:\Users\")
Set colFiles = objFolder.Files

For Each objFile in colFiles
    If InStr(objFile.Name, "example") > 0 Then
        WScript.Echo objFile.Path
    End If
Next

上面的代码会递归搜索C:\Users\目录及其所有子目录中包含“example”字符串的文件名，并输出其路径。

示例1：搜索png格式的图片

Set objFolder = fso.GetFolder("D:\Pictures")
Set colFiles = objFolder.Files

For Each objFile in colFiles
    If InStr(LCase(objFile.Name), ".png") > 0 Then
        WScript.Echo objFile.Path
    End If
Next

这段代码会搜索D:\Pictures目录下所有子目录中的PNG格式图片，并输出其路径。

示例2：搜索指定文件名

Set objFolder = fso.GetFolder("C:\Program Files")
Set colFiles = objFolder.Files

For Each objFile in colFiles
    If objFile.Name = "example.txt" Then
        WScript.Echo objFile.Path
    End If
Next

这段代码会搜索C:\Program Files目录及其所有子目录中名为“example.txt”的文件，并输出其路径。

3.获取目录列表

Set objFolder = fso.GetFolder("C:\Program Files")
Set colSubfolders = objFolder.Subfolders

For Each objSubfolder in colSubfolders
    WScript.Echo objSubfolder.Path
Next

上面的代码会输出C:\Program Files目录下的所有子目录路径。

示例3：获取C:\Users\目录下的所有子目录

Set objFolder = fso.GetFolder("C:\Users\")
Set colSubfolders = objFolder.Subfolders

For Each objSubfolder in colSubfolders
    WScript.Echo objSubfolder.Path
Next

这段代码会输出C:\Users\目录下的所有子目录路径。