VB查找指定路径中的文件和目录列表
来源:互联网 发布:c语言实现加减乘除 编辑:程序博客网 时间:2024/05/17 01:51
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(), 0, varDirCount - 1
funQuickSortFile vFiles(), 0, varFileCount - 1
Exit Function
'vErrorMessage = "File Not Found."
End Function
- VB查找指定路径中的文件和目录列表
- node 根据文件名查找其在指定目录中的路径
- PHP - Manual手册 - 函数参考 - Directory 目录函数 - scandir列出指定路径中的文件和目录
- python 文件和目录 当前目录以及当前目录的所有子目录下查找文件名包含指定字符串的文件,并打印出相对路径。
- 查找指定目录下的.exe文件 并且将.exe文件按全路径保存
- VB 将长路径转为短路径 & 获取剪粘板中的文件的列表
- java classpath如何指定一个目录及java资源文件的路径查找问题
- linux 获取文件路径中的目录路径和文件名
- 指定目录下查找指定目录(文件)
- vb查找指定文件夹下面的所有文件和其子目录下的文件
- grep查找字符串所在文件和行号,find查找文件所在目录即路径
- wget指定文件,指定目录,指定路径下载
- wget指定文件,指定目录,指定路径下载
- wget指定文件,指定目录,指定路径下载
- 如何根据指定路径查找文件发布
- 指定路径下查找文件的方法!
- 获取指定目录下的文件列表
- vc查找指定目录下的文件:
- 读书笔记_windows内核编程基础_part 2
- c++类中定义静态对象成员
- 自定义系统菜单的背景
- Servlet的细节、ServletConfig对象、ServletContext对象及ServletContext应用
- 谁将成为下一个乔布斯:扎克伯格上榜(组图)
- VB查找指定路径中的文件和目录列表
- 计算机视觉领域的一些牛人博客
- Java与Flex学习笔记(1)---Myeclipse9.0与eclipse 3.6 集成Flah Builder 4.5教程(2012-04-03 更新)
- 乔布斯的成功之道
- 你知道我有多喜欢你吗
- Android Audio System 之一:AudioTrack如何与AudioFlinger交换音频数据
- 全球商务经济论坛
- 面试的感受
- Android Audio代码分析14 - testPlaybackHeadPositionIncrease