阿Q吧 > vb6.0 查找指定文件

vb6.0 查找指定文件

2025-03-01 05:25:35

推荐回答（4个）

回答1：

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

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

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

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

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

回答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

回答3：

试试吧应该能满足你需求

回答4：

使用FileList控件

最新问答

services.exe 进程占cpu过多

帮忙起个名字好么？我要弄个草莓园不知道起什么名字好！！跪求！317960689@qq.com

钯金的未来一年升值潜力怎么样？能上1000美元⼀盎司吗？懂行的朋友来分析一下，回答得好还可以加分

请问一下这部电影叫什么名字？简介

形容“对你好，你却欺骗我”的句子有哪些？

做头部核磁共振大概要多少钱

自然地理好就业吗?只能当老师吗?人文地理呢?希望大家帮助我一下

1966年7月初1戌时生的人命运如何

带着牙套还能不能和女朋友接吻啊？

女主角带古武穿越的小说