如何用VBS查找文件名以指定字符串开头的文件/筛选文件名？

3Q3Q

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

rwxyxy

用正则吧！

zqz0012005

1. folder = "D:\桌面"
   
2. set fso = CreateObject("Scripting.FileSystemObject")
   
3. set file = fso.GetFolder(folder).Files
   
4. for each f in files
   
5. fn = f.name
   
6. if InStr(1, fso.GetBaseName(fn), "LPD_", 1)=1 and LCase(Right(fn,3))=LCase("txt") then
   
7.     s = s & fn & vbCrLf
   
8. end if
   
9. next
   
10. wsh.echo s

复制代码

zqz0012005

只适用于 Windows XP 及以上版本

1. folder = "D:\桌面"
   
2. 
   
3. if Right(folder,1) <> "" then folder = folder & ""
   
4. folder = Replace(folder, "", "\")
   
5. set wmi = GetObject("winmgmts:")
   
6. set files = wmi.ExecQuery("select * from CIM_DataFile where (" _
   
7.     & "drive='" & Left(folder, 2) & "' and path='" _
   
8.     & Mid(folder,3) & "' and extension='txt' and " _
   
9.     & "filename like '" & "LPD_%" & "')")
   
10. for each f in files
    
11.     s = s & f.name & vbCrLf
    
12. next
    
13. wsh.echo s

复制代码

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

3Q3Q

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