蜜桃免费av-一级中文片-久久青青草原av免费观看-香蕉在线观看视频-少妇丰满极品嫩模白嫩-成人妇女免费播放久久久-久久国产精品_国产精品-少妇69xx-国产网站免费在线观看-sese婷婷-最近中文字幕在线中文视频-欧美色xxx-亚洲a∨国产av综合av-免费观看日批视频-午夜福利免费0948视频-亚洲一二三视频-可以免费观看的av毛片下载-日韩综合精品-国产精品福利久久久-亚洲精品综合一区二区

vb6源碼分享，列出目錄下所有文件（多級）

[code[
Function GetFileList(Path As String, Optional FileType As String = "*.*")
'PATH要求\結尾
On Error GoTo DoErr
Dim Sz, ID As Long, ub As Long, AddC As Long
AddC = 30
ub = AddC
ReDim Sz(AddC)
Dim F As String
F = Dir(Path & FileType)
While F <> ""
    ID = ID + 1
    Sz(ID) = F
    F = Dir
Wend
ReDim Preserve Sz(ID)
GetFileList = Sz
Exit Function
DoErr:
ub = ub + AddC
ReDim Preserve Sz(ub)
Resume
End Function
[/code]