Nothing

不明白你的意思?
是自动运行程序还是查找文件？

Nothing

先建个文本框，可以输入内容，然后用dir命令查找文件。

Nothing

Option Explicit           Dim filesearch As String           Dim findflag As Boolean                        ' 清空搜索结果           Private Sub clrcmd_Click()                   lstfiles.Clear           End Sub                        ' 开始查找文件           Private Sub cmdgo_Click()           Dim starttime As Single           Dim i As Integer           Dim Add As Boolean                        lstfiles.Clear '查找文件之前先清空结果           lstdirs.Clear           findflag = True '设置查找标志           stopcmd.Enabled = True '设置停止查找按钮为可用           clrcmd.Enabled = False '设置清空结果按钮为不可用           starttime = Timer '记录开始查找时刻           filesearch = Combo1.Text           ' 将查找文件加入到组合框中           For i = 0 To Combo1.ListCount - 1                   If Combo1.List(i) <> Combo1.Text Then                           Add = True                   Else                           Add = False                   End If           Next           If Add = True Then                   Combo1.AddItem (Combo1.Text)           End If           lstdirs.AddItem (Drive1.Drive & "\")           ' 执行查找文件           Do                   status.Caption = "Searching . . . " & lstdirs.List(0)                   ' 调用函数                   findfilesdir lstdirs.List(0)                   ' 从目录列表中移除                   lstdirs.RemoveItem 0                   ' 中途退出查找                   If findflag = False Then                       Exit Do                   End If           Loop Until lstdirs.ListCount = 0           stopcmd.Enabled = False           clrcmd.Enabled = True                        ' 显示查找文件的信息           status.Caption = "用时" & Timer - starttime & "秒 " & "找到" & lstfiles.ListCount & "个文件"           End Sub                        ' 用来查找文件的函数           Public Sub findfilesdir(DirPath As String)           Dim filestring As String           DirPath = Trim(DirPath)                        If Right(DirPath, 1) <> "\" Then               DirPath = DirPath & "\"           End If           ' 使用Dir函数获得DirPath目录下的文件或目录           filestring = Dir(DirPath & "*.*", vbArchive Or vbHidden Or vbSystem Or vbDirectory)           Do               DoEvents '转让控制权，以便让操作系统处理其它的事件               If filestring = "" Then                   Exit Do               Else                   If (GetAttr(DirPath & filestring) And vbDirectory) Then                       If Left(filestring, 1) <> "." And Left(filestring, 2) <> ".." Then                           lstdirs.AddItem DirPath & filestring & "\"                       End If                   Else                       ' 比较以确定是否是要查找的文件                       If (filestring Like filesearch) Then                       lstfiles.AddItem DirPath & filestring                       End If                   End If               End If               filestring = Dir ' 返回其他文件名           Loop           End Sub                        ' 结束退出           Private Sub quitcmd_Click()                   Unload Me                   End           End Sub                        ' 停止查找           Private Sub stopcmd_Click()                   findflag = False                   stopcmd.Enabled = False           End Sub                        Private Sub Form_Load()                   Combo1.AddItem ("*.*")           End Sub

Nothing

Public Declare Function SearchTreeForFile Lib "imagehlp.dll" (ByVal lpRoothPath As String, ByVal lpInputName As String, ByVal lpOutputName As String) As Long '---- 下面为sysFileFind函数的编码： Public Function sysFileFind(ByVal WhichRootPath As String,ByVal WhichFileName As String) As String     Dim iNull As Integer     Dim lResult As Long     Dim sBuffer As String     On Error GoTo L_FILEFINDERROR     sBuffer = String$(1024, 0)     '注释：查找文件     lResult = SearchTreeForFile(WhichRootPath, WhichFileName, sBuffer)     '注释：如果文件找到，将返回字符串后续的空格删除     '注释：否则返回一个空字符串     If lResult Then         iNull = InStr(sBuffer, vbNullChar)         If Not iNull Then             sBuffer = Left$(sBuffer, iNull - 1)         End If         sysFileFind = sBuffer      Else             sysFileFind = ""     End If Exit Function L_FILEFINDERROR:     MsgBox "查找文件过程中遇到错误！",     vbInformation, "查找文件错误"     sysFileFind = Format(Err.Number) & " - " & Err.Description End Function '---- 该函数可以很快遍历整个硬盘，从而查找到我们所需的文件。