VB搜索指定盘的相关类型文件?

来源：百度知道 编辑：UC知道 时间：2024/06/21 19:48:58
VB搜索指定盘的相关类型文件?
如搜索指定是E盘的.txt和.doc文件.不要界面控件.
有多种文件类型,如txt和doc.
并复制这些文件到本程序相同的目录.

根据补充要求，修改如下：

Private Sub Command1_Click()
Dim objWMIService, FileList, objFile
Dim strNewName, errResult
Dim FilePath As String, FileExt As String
FilePath = "e:" '要查找的盘符，请自行修改
FileExt = "doc;txt;" '要查找的文件类型，之间用;分开。

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set FileList = objWMIService.ExecQuery _
("ASSOCIATORS OF {Win32_Directory.Name='" & FilePath & "'} Where " _
& "ResultClass = CIM_DataFile")
For Each objFile In FileList
If InStr(1, FileExt, objFile.Extension, vbTextCompare) > 0 Then
strNewName = objFile.Drive & objFile.Path & _
objFile.FileName & "." & FileExt
Debug.Print strNewName '找到后输出，请具体修改
End If
DoEvents
Next
End Sub

在dos里输入dir /b /s e:\*.txt > c:\1.txt(它会在C盘生成一个文件,里面有所有的TX