PublicFunction funFindDirectory(ByVal strDir As String,Optional vMode As Long =vbDirectory) As Integer Dim vFileNames As String Dim vLoop As Integer Dim vFileAttr As FILEATTRIB varFileCount = 0 varDirCount = 0 On Error GoTo lopErr If strDir = "" Then strDir = varCurrentPath End If If Right(Trim(strDir),1) <>"\" Then strDir = Trim(strDir) &"\" End If strDir = UCase(strDir) vFileNames = Dir(strDir,vMode) ReDim Preserve vFiles(11) ReDim Preserve vDirectories(11) Err.Clear do while vFileNames <>"" varCurrentPath = strDir If vFileNames <>"." And vFileNames<>".." Then If (GetAttr(strDir&vFileNames) And vbDirectory) = vbDirectory Then If varDirCount Mod10 = 0 Then ReDimPreserve vDirectories(varDirCount + 10) DoEvents End If funGetFileAttribstrDir &vFileNames,vDirectories(varDirCount) varDirCount =varDirCount + 1 Else If varFileCountMod 10 = 0 Then ReDimPreserve vFiles(varFileCount + 10) DoEvents End If funGetFileAttribstrDir &vFileNames,vFiles(varFileCount) varFileCount =varFileCount + 1 End If End If lopErr: vFileNames = Dir(,vbAlias) Loop funQuickSortFile vDirectories(),varDirCount - 1 funQuickSortFile vFiles(),varFileCount - 1 Exit Function 'vErrorMessage = "File Not Found." End Function
原文地址：https://www.jb51.cc/vb/260765.html
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
