軟體:excel
版本:2007
因為要取得某個資料夾下所有子資料夾所有檔案的名稱(只要檔案名稱不要資料夾)
vba如下:
filepath是已經指定好的路徑上面已經定義好
buf = Dir(filepath & "*.*")
If buf = "" Then
MsgBox "找不到檔案"
Exit Sub
End If
Do While buf <> ""
cnt = cnt + 1
Sheets("設定").Range("A" & cnt) = buf
buf = Dir()
Loop
不知道這邊要怎麼修改
感謝大大

以filesystemobject，巢狀迴圈於subfolders和files集合