批处理之家 » VBS求助&讨论 » 如何用VBS查找文件名以指定字符串开头的文件/筛选文件名？

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

返回列表发帖

Rank: 2

帖子: 12
积分: 133
技术: 0
捐助: 0
注册时间: 2009-12-7

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2009-12-10 11:03 | 只看该作者

[问题求助] 如何用VBS查找文件名以指定字符串开头的文件/筛选文件名？

本帖最后由 pcl_test 于 2017-3-20 17:44 编辑

某个文件夹内有大量文件，只筛选出特定文件名的文件，例如 LPD_*.TXT，不必筛选子文件夹，谢谢！

Rank: 6 Rank: 6

帖子: 27
积分: 1861
技术: 0
捐助: 0
注册时间: 2009-5-10

2楼

发表于 2009-12-10 18:31 | 只看该作者

用正则吧！

看山是山，看山不是山！

Rank: 8 Rank: 8

帖子: 1069
积分: 12123
技术: 38
捐助: 0
注册时间: 2008-5-10

3楼

发表于 2009-12-10 21:48 | 只看该作者

folder = "D:\桌面\"
set fso = CreateObject("Scripting.FileSystemObject")
set file = fso.GetFolder(folder).Files
for each f in files
fn = f.name
if InStr(1, fso.GetBaseName(fn), "LPD_", 1)=1 and LCase(Right(fn,3))=LCase("txt") then
    s = s & fn & vbCrLf
end if
next
wsh.echo s
复制代码

命令行参考：hh.exe ntcmds.chm::/ntcmds.htm
求助者请拿出诚心，别人才愿意奉献热心！
把查看手册形成条件反射！

Rank: 8 Rank: 8

帖子: 1069
积分: 12123
技术: 38
捐助: 0
注册时间: 2008-5-10

4楼

发表于 2009-12-10 21:54 | 只看该作者

只适用于 Windows XP 及以上版本

folder = "D:\桌面\"

if Right(folder,1) <> "\" then folder = folder & "\"
folder = Replace(folder, "\", "\\")
set wmi = GetObject("winmgmts:")
set files = wmi.ExecQuery("select * from CIM_DataFile where (" _
    & "drive='" & Left(folder, 2) & "' and path='" _
    & Mid(folder,3) & "' and extension='txt' and " _
    & "filename like '" & "LPD_%" & "')")
for each f in files
    s = s & f.name & vbCrLf
next
wsh.echo s
复制代码

（可能存在未知原因导致文件获取不完整）

命令行参考：hh.exe ntcmds.chm::/ntcmds.htm
求助者请拿出诚心，别人才愿意奉献热心！
把查看手册形成条件反射！

Rank: 2

帖子: 12
积分: 133
技术: 0
捐助: 0
注册时间: 2009-12-7

5楼

发表于 2009-12-14 09:08 | 只看该作者

谢谢您的回答！请问有包含通配符格式的筛选方法么？比如，IF 文件名=LPD_*.txt THEN ....