VB遍历该驱动器下的每一个文件并将文件名记录于字符串数组a中

文件有几万个
你都要阿
那得多大的字符串数组阿
计算机得死机好几分钟呢
你真要阿？

下面这个就是你要的DIR~不过如果目录树过多~就会导致错误~甚至蓝屏~
command list label各一
把查到的文件名保存在List1中

Public Function GetExtName(strFileName As String) As String
Dim strTmp As String
Dim strByte As String
Dim i As Long
For i = Len(strFileName) To 1 Step -1
strByte = Mid(strFileName, i, 1)
If strByte <> "." Then
strTmp = strByte + strTmp
Else
Exit For
End If
Next i
GetExtName = strTmp
End Function
Public Function search(ByVal strPath As String, Optional strSearch As String = "") As Boolean
Dim strFileDir() As String
Dim strFile As String
Dim i As Long

Dim lDirCount As Long
On Error GoTo MyErr
If Right(strPath, 1) <> "\" Then strPath = strPath + "\"
strFile = Dir(strPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly) <