傳回目錄與子目錄所有檔案
| 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
|
|