国产CHINESE男男GAYGAY免费网站_日本在线一区二区三区_欧美大屁股xxxx_国产xxx精品视频大全_一区二区视频国产_人人爱国产

工控軟件開發(fā)
級(jí)別: 正式會(huì)員
精華主題: 0
發(fā)帖數(shù)量: 42 個(gè)
工控威望: 89 點(diǎn)
下載積分: 504 分
在線時(shí)間: 4(小時(shí))
注冊(cè)時(shí)間: 2023-04-06
最后登錄: 2024-06-04
查看工控軟件開發(fā)的 主題 / 回貼
樓主  發(fā)表于: 2024-06-04 22:44
vb6源碼分享,列出目錄下所有文件(多級(jí))

[code[
Function GetFileList(Path As String, Optional FileType As String = "*.*")
'PATH要求\結(jié)尾
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]
我的博客,你可以先看一下我的文章和以前幫別人解決的一些技術(shù)問題。
專注VB編程開發(fā)20年的博客_CSDN博客-作品成品 開發(fā)的一些軟件,股票分析理財(cái)投資,自動(dòng)編程 源碼庫領(lǐng)域博主

https://blog.csdn.net/xiaoyao961

主站蜘蛛池模板: 日日爽爽 | 亚洲国产日韩一区三区 | 免费吃奶摸下激烈视频青青网 | 午夜精品久久久久久99热明星 | 91干网 | 亚洲小视频在线播放 | 日日操日日插 | 日本韩国一区二区三区视频 | 日本大片免费观看完整视频 | 爱草视频在线 | 国产高清视频一区三区 | 亚洲精品欧洲 | 最刺激的毛片无遮挡欧美 | 99视频精品全国免费 | 国产精品青草久久 | 免费网站在线观看人数在哪买 | 中文无码天天AV天天爽 | 含着两个雪乳上下晃动人妻 | 免费看的av网站 | 国产精品国产自线拍免费 | 国产人成无码视频在线1000 | 慈禧一级淫片免费放特级 | 欧美国产日韩在线三区 | 国产成人无码aⅴ片在线观看导航 | 精品一区二区久久久久 | 另类春色校园亚洲 | 国产精品亚洲产品一区二区三区 | 日本美女一区二区三区插比 | 成人精品一区二区三区免费看 | 91蜜桃在线观看 | 国产69精品久久99不卡免费版亮点 | 性情中人中文网 | 1区2区3区在线观看 日韩综合一区二区 | 黄片毛片一级片 | 青青久久av | 在线国产福利精品 | 青草草97超级碰碰碰 | 亚洲一区二区三区高清视频 | 一区二区三区不人妻无码 | 伊人久久综合无码成人网 | 97久久人人超碰超碰窝窝 |