Dim FolderArray(), FileArray() As String ‘\u5168\u540d
Dim FolderCount, FileCount As Integer<\/p>\n\n\n\n
Dim I, J As Integer Private Function SearchFiles(sTargetPath As String, sPartialName As String, Optional bAllPaths As Boolean = True) <\/p>\n","protected":false},"excerpt":{"rendered":"
SearchFiles “E:\\”, “*”, True ‘\u67e5\u627e\u6240\u6709\u6587\u4ef6
If IsEmptyArray<\/a>(FileArray) Then Exit Sub
For I = LBound(FolderArray) To UBound(FolderArray)
Debug.Print FolderArray(I)
Next I
Debug.Print FolderCount; “Folders”
For I = LBound(FileArray) To UBound(FileArray)
Debug.Print FileArray(I)
Next I
Debug.Print FileCount; “Files”
‘\u8c03\u7528\u793a\u4f8b(\u652f\u6301\u901a\u914d\u7b26)
‘SearchFiles “C:\\Program Files\\WinRAR\\”, “” ‘\u67e5\u627e\u6240\u6709\u6587\u4ef6 ‘SearchFiles “C:\\Program Files\\WinRAR\\”, “.exe” ‘\u67e5\u627e\u6240\u6709exe\u6587\u4ef6
‘SearchFiles “C:\\Program Files\\WinRAR\\”, “in.exe” ‘\u67e5\u627e\u6587\u4ef6\u540d\u4e2d\u5305\u542b\u6709 in \u7684exe\u6587\u4ef6<\/p>\n\n\n\n
Dim I, J As Integer
Dim SubFolderCount As Long
Dim SubFolderArray() As String ‘\u5b50\u6587\u4ef6\u5939\u5168\u540d
Dim sPath As String ‘\u6587\u4ef6\u540d\u6216\u5b50\u6587\u4ef6\u5939\u77ed\u540d
If Right(sTargetPath, 1) <> “\\” Then sTargetPath = sTargetPath & “\\”
FolderCount = FolderCount + 1
ReDim Preserve FolderArray(1 To FolderCount)
FolderArray(FolderCount) = sTargetPath
sPath = Dir(GetFullName<\/a>(sTargetPath, sPartialName)) ‘\u67e5\u627e\u7b2c\u4e00\u4e2a\u6587\u4ef6
Do While Len(sPath) ‘\u5faa\u73af\u5230\u6ca1\u6709\u6587\u4ef6\u4e3a\u6b62
FileCount = FileCount + 1
ReDim Preserve FileArray(1 To FileCount)
FileArray(FileCount) = sTargetPath & sPath ‘\u5c06\u6587\u4ef6\u76ee\u5f55\u548c\u6587\u4ef6\u540d\u7ec4\u5408,\u5e76\u5b58\u653e\u5230\u6570\u7ec4\u4e2d
sPath = Dir ‘\u67e5\u627e\u4e0b\u4e00\u4e2a\u6587\u4ef6
DoEvents ‘\u8ba9\u51fa\u63a7\u5236\u6743
Loop
If Not bAllPaths Then Exit Function
sPath = Dir(sTargetPath, vbDirectory) ‘\u67e5\u627e\u7b2c\u4e00\u4e2a\u6587\u4ef6\u5939
Do While Len(sPath) ‘\u5faa\u73af\u5230\u6ca1\u6709\u6587\u4ef6\u5939\u4e3a\u6b62
If Left(sPath, 1) <> “.” Then ‘\u4e3a\u4e86\u9632\u6b62\u91cd\u590d\u67e5\u627e
If GetAttr(GetFullName(sTargetPath, sPath)) And vbDirectory Then ‘\u5982\u679c\u662f\u6587\u4ef6\u5939\u5219\u2026 \u2026
SubFolderCount = SubFolderCount + 1
ReDim Preserve SubFolderArray(1 To SubFolderCount)
SubFolderArray(SubFolderCount) = GetFullName(sTargetPath, sPath) & “\\” ‘\u5c06\u76ee\u5f55\u548c\u6587\u4ef6\u5939\u540d\u79f0\u7ec4\u5408\u5f62\u6210\u65b0\u7684\u76ee\u5f55,\u5e76\u5b58\u653e\u5230\u6570\u7ec4\u4e2d
End If
End If
sPath = Dir ‘\u67e5\u627e\u4e0b\u4e00\u4e2a\u6587\u4ef6\u5939
DoEvents ‘\u8ba9\u51fa\u63a7\u5236\u6743
Loop
For I = 1 To SubFolderCount ‘\u4f7f\u7528\u9012\u5f52\u65b9\u6cd5\uff0c\u904d\u5386\u6240\u6709\u76ee\u5f55
SearchFiles SubFolderArray(I), sPartialName
Next
End Function<\/p>\n\n\n\n