Question

vb6.0 查找指定文件

如何用vb6.0查找只知道文件名称和盘符，找到这个文件的具体路径
如：查找H盘下的“chr.exe”，只知道在H盘，求出该文件的具体路径（可能有多个）？

Answer 1

使用方法：首先选择需要查找的硬盘分区；

再在“查找的文件”的文本框输入需要查询的文件名，注意文件名必须是名称+扩展名，可以使用通配符 * 号；

然后点击【查找】按钮，如果你的文件名没有问题，就会查询出这个硬盘分区中所有文件，并且在查询过程中会逐一显示在下面的控件中；

如果你需要保存这个查询结果，你可以点击【保存结果】按钮，这样就会在程序根目录中保存一个名称为“查询结果.txt”的文本文件，保存你刚刚查询到的结果；

如果你需要再次查询，你必须首先退出，再次启动！

Answer 2

窗体添加一个列表框List1和一个按钮Command1，代码如下：

Private Function TreeSearch(ByVal sPath As String, ByVal sFileSpec As String, sFiles() As String) As Long
    Static lngFiles As Long '文件数目
    Dim sDir As String
    Dim sSubDirs() As String '存放子目录名称
    Dim lngIndex As Long
    Dim lngTemp&
    
    If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
    sDir = Dir(sPath & sFileSpec)
   '获得当前目录下文件名和数目
    Do While Len(sDir)
      lngFiles = lngFiles + 1
      ReDim Preserve sFiles(1 To lngFiles)
      sFiles(lngFiles) = sPath & sDir
      sDir = Dir
    Loop
   '获得当前目录下的子目录名称
    lngIndex = 0
    sDir = Dir(sPath & "*.*", vbDirectory)
    Do While Len(sDir)
      If Left(sDir, 1) <> "." And Left(sDir, 1) <> ".." Then '' 跳过当前的目录及上层目录
     '找出子目录名
        If GetAttr(sPath & sDir) And vbDirectory Then
          lngIndex = lngIndex + 1
         '保存子目录名
          ReDim Preserve sSubDirs(1 To lngIndex)
          sSubDirs(lngIndex) = sPath & sDir & "\"
        End If
      End If
      sDir = Dir
    Loop
    For lngTemp = 1 To lngIndex
      '查找每一个子目录下文件，这里利用了递归
      Call TreeSearch(sSubDirs(lngTemp), sFileSpec, sFiles())
    Next lngTemp
    TreeSearch = lngFiles
'    lngFiles = 0                                '如果用到递归，需要删除此行
  End Function

Private Sub Command1_Click()
Dim myFiles() As String
If TreeSearch("H:", "chr.exe", myFiles) > 0 Then
  For i = 1 To UBound(myFiles)
    List1.AddItem myFiles(i)
  Next i
End If
End Sub

Answer 3

试试吧 应该能满足你需求

Answer 4

使用FileList控件