如何能找出c盤下的所有文件﹐高分送上

Question

我这里有一个文件搜索的例子要的话跟我联系
[email protected]
或发短信

Answer 1

我可以用listbox全部举出来!或者TREEVIEW

Answer 2

建立fso後遞歸查找，不過時間要比microsoft的慢n倍.以前寫過一個,現在找不到了

Answer 3

看一下dir()函数的帮助Dim MyFile, MyPath, MyName' 返回“WIN.INI” （如果该文件存在）。
MyFile = Dir("C:\WINDOWS\WIN.ini")   ' 返回带指定扩展名的文件名。如果超过一个 *.ini 文件存在，
' 函数将返回按条件第一个找到的文件名。
MyFile = Dir("C:\WINDOWS\*.ini")' 若第二次调用 Dir 函数，但不带任何参数，则函数将返回同一目录下的下一个 *.ini 文件。
MyFile = Dir' 返回找到的第一个隐式 *.TXT 文件。
MyFile = Dir("*.TXT", vbHidden)' 显示 C:\ 目录下的名称。
MyPath = "c:\"   ' 指定路径。
MyName = Dir(MyPath, vbDirectory)   ' 找寻第一项。
Do While MyName <> ""   ' 开始循环。
   ' 跳过当前的目录及上层目录。
   If MyName <> "." And MyName <> ".." Then
      ' 使用位比较来确定 MyName 代表一目录。
      If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
         Debug.Print MyName   ' 如果它是一个目录，将其名称显示出来。
      End If
   End If
   MyName = Dir   ' 查找下一个目录。
Loop

Answer 4

我知道一个找出根目录文件的方法，抛砖引玉吧
窗体中建一个command1，一个list1
Private Sub Command1_Click()
Dim g_FX As New FileSystemObject
Dim g_FY As Folder
Dim g_FZ As File
Set g_FY = g_FX.GetFolder("c:\")
For Each g_FZ In g_FY.Files
    List1.AddItem Left(g_FZ.Name, Len(g_FZ.Name))
Next
End Sub

Answer 5

还使用我的吧；
遍历文件夹
http://www.csdn.net/expert/topic/666/666906.xml?temp=.9986231

Answer 6

需要的话，找我[email protected]
可以遍历任意文件夹，何况跟目录，给分！！