义辉 藤藏 法师:一个关于vb的问题(递归返回文件名称)

来源：百度文库 编辑：中科新闻网 时间：2024/04/29 12:06:59
If UBound(DirPath) <> 0 Then

For i = 0 To UBound(DirPath) Step 1 '开始循环

FileIncept() = SearchFile(DirPath(i)) '调用SearchFile查找文件夹里的内容

FLL = UBound(FileList) '取得返回数组的长度

'设定返回数组的长度
ReDim Preserve FileList(UBound(FileList) + UBound(FileIncept)) As String

'把返回来的数组,加到要返回数组里
For j = 0 To UBound(FileIncept) Step 1

FileList(FLL + j) = FileIncept(j)

Next j

Next i

End If
这里是我的源码..知道里的字符受限
http://www.vbgood.com/viewthread.php?tid=39452&highlight=
一个关于vb的问题(递归返回文件名称) 关于windows文件名称的问题！ 关于windows文件名称的问题！ 关于递归调用的问题. 关于改运行文件名称的问题 vb:列举一个文件夹中所有文件名称 一个递归算法的实现问题 关于VB的一个问题 关于VB的一个问题 关于VB的一个问题？