要使用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\目录下的所有子目录路径。
本站文章如无特殊说明,均为本站原创,如若转载,请注明出处:vbs搜索文件名或者得到目录列表 - Python技术站