久久精品人成免费_国产精品久久久久久久白皙女_一级片播放_日韩欧美在线免费_亚洲AV无码精品色午夜果冻不卡_成人高潮免费视频

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

[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)投資,自動編程 源碼庫領(lǐng)域博主

https://blog.csdn.net/xiaoyao961

主站蜘蛛池模板: 蜜桃精品久久久久久久免费影院 | 一区二区在线免费观看 | 欧美精品一区二区三区免费视频 | 日韩欧美小视频 | 91高清免费看 | 亚洲精品国产综合久久久久紧 | 欧美一区二区最爽乱淫视频免费看 | 成人h动漫免费观看网站 | 免费夜色污私人影院在线观看 | 精品乱码一区二区三区四区 | 亚洲国产精品午夜在线观看 | baoyu116.永久免费视频 | 精品久久一二三区 | 日本成人久久久 | 成人国产精品高清在线观看 | 亚洲国产精品成人网址天堂 | 国产成人精品久久亚洲高清不卡p | 欧美精品密入口播放 | 国产午夜免费高清久久影院 | 乱肉aa偷伦视频 | 国产美女一级片 | 男人猛躁进女人免费视频看n | 国产午夜片 | 中文字幕一区二区三中文字幕 | 超碰95在线| 91麻豆视频 | 久久久成人免费 | 亚洲AV成人WWW永久无码精品 | 亚洲成人aa| 免费看c片| 国产又粗又猛又大爽又黄 | 日本熟妇无码色视频网站 | 四虎精品8848ys一区二区 | 久久影院在线观看 | 久久久伦理片 | 欧美日韩激情在线一区二区三区 | 91视频官网入口 | 久久精品欧美一区二区三区黑人 | 日本亚洲精品中字幕日产2020 | 中文字幕无码人妻不卡 | 亚洲欧美日本韩国综合在线观看 |