只适用于 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
复制代码 (可能存在未知原因导致文件获取不完整) |