女公务员人妻呻吟求饶_国模小黎自慰GOGO人体_广东少妇大战黑人34厘米视频_网禁拗女稀缺资源在线观看_国产乱子伦高清露脸对白_国产综合视频一区二区三区_日韩精品一区二区三区影院_亚洲欧美日韩中文无线码_无码无遮挡又大又爽又黄的视频_

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]