获得指定目录下的所有文件的列表(包括子目录下的文件)——VB2005
来源:互联网 发布:企业对三农的投资数据 编辑:程序博客网 时间:2024/05/11 13:50
在实际的运用中,我们有时要求能获得一个目录下的所有文件列表,包括子目录下的文件。
在VB2005中有函数My.Computer.FileSystem.GetFiles(Path)。其效用是获得目录下所有文件列表,但是不包括子目录下的文件。My.Computer.FileSystem.GetDirectories(Path)这个函数效用是获得目录下的一级子目录的列表,不包含子目录下的目录列表。
将这两个函数灵活运用,就能达到标题所要求的效果。现将代码赋予其后。
函数:GetAllFile
作用:获得制定目录下的文件列表,包括子目录下的文件
参数:Path;制定的目录名
返回值:字符串数组,目录列表
Public Shared Function GetAllFile(ByVal Path As String) As String()
Dim tS() As String
Dim tC As Collections.ObjectModel.ReadOnlyCollection(Of String) _
= My.Computer.FileSystem.GetFiles(Path)
ReDim tS(tC.Count - 1)
tC.CopyTo(tS, 0)
Dim tS1() As String
Dim tP As String
Dim j As Integer
For Each tP In My.Computer.FileSystem.GetDirectories(Path)
tS1 = GetAllFile(tP)
If tS1.Length > 0 Then
If tS.Length = 0 Then
ReDim tS(tS1.GetUpperBound(0))
tS1.CopyTo(tS, 0)
Else
j = tS.GetUpperBound(0)
ReDim Preserve tS(j + tS1.Length)
tS1.CopyTo(tS, j + 1)
End If
End If
Next
Return tS
End Function
- 获得指定目录下的所有文件的列表(包括子目录下的文件)——VB2005
- 查找指定目录下的特定文件 (包括子目录)
- 查找某个目录下的所有文件(包括子目录)
- python列举目录(包括子目录)下的所有文件
- 查找某个目录下的所有文件(包括子目录)
- [批处理]把指定文件复制到指定目录下的所有子目录下(包括子目录的下级目录)
- java 文件 读取目录下的所有文件(包括子目录)
- javase——递归获取指定目录下(包括子目录)指定后缀的文件的文件名
- 获取指定目录下的所有文件名(包括子目录)
- 二、列出指定目录下的文件(包括子目录)
- Python扫描指定目录下(包括子目录)的文件
- Python扫描指定目录下(包括子目录)的文件
- Python扫描指定目录下(包括子目录)的文件
- java读取目录下(包括子目录)的所有文件
- 获得文件夹下的文件,包括子目录`
- 查找指定目录下所有文件(包括子目录)——使用递归
- 获取指定目录及其子目录下所有文件的绝对路径
- 如何获得某个目录下所有的文件名,包括子目录
- SAP 名词解析
- Oracle中系统process与session的关系
- 麦克风播放器
- 字符指针和字符数组
- char varchar nvarchar
- 获得指定目录下的所有文件的列表(包括子目录下的文件)——VB2005
- 终于搞定通过联通vac提供的wsdl获取response的xml包
- 什么是Double Array Trie
- 中断与异常的区别,以及他们与任务调度的关系
- 引用asp.net母版页后,母版页和内容页的页面事件执行顺序
- 从美国网站About.com想到的
- wxWidgets资源索引
- u-boot
- 命令提示符已被系统管理员停用