傳回目錄與子目錄所有檔案
hPath | String | - | 必須 | (無) | 路徑及副檔名,可使用萬用字元 |
Attributes | VbFileAttribute | 4 | 可省略 | vbNormal | 同 VB Dir 函數 Attributes,預設值為 vbNormal |
SearchSub | Boolean | 2 | 可省略 | False | 是否搜尋子目錄,預設值為 False |
傳回陣列
tDir=myDir("C:\Life\Staff\防洪運轉\Technolegy\",vbDirectory) for i = lbound(tDir) to ubound(tDir) debug.print i,tDir(i) next
Visual Basic 4 以後 | FileTool.bas
|