List1.Clear
Dim path, filename, folders(1 To 20000)
Dim i%, j%
i = 1
j = 1
path = folder
folders(1) = path
Do While i <= j
filename = Dir(folders(i), vbDirectory)
Do Until filename = ""
If InStr(filename, ".") = 0 Then
j = j + 1
folders(j) = folders(i) & filename & "\"
List1.AddItem filename
End If
filename = Dir
Loop
i = i + 1
Loop
uj5u.com熱心網友回復：
遍歷檔案名，包含子檔案夾的所有檔案名。搞了很久 老報錯，目前遍歷檔案夾名稱還沒弄好。uj5u.com熱心網友回復：
已請教高手給了給思路就自行解決了，靠"."判斷是否為檔案夾是誰發明的，一點不嚴謹
fso.FolderExists(folders(i) & filename) = True
uj5u.com熱心網友回復：
在 Win系統下：檔案夾名稱可以“帶點”；
檔案名也可以“不帶點”（即“無擴展名”）。
按是否“有點”來判斷是否為文，本來就不靠譜！
真正的“底層”要按是否有“檔案夾屬性”標識來判斷。
uj5u.com熱心網友回復：
好好跟你們學學，還望不嗇賜教
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/15142.html
標籤：VB基礎類
上一篇：SolidWorks宏為VB語言，可以用它查詢獲得資料庫的回傳值嗎？謝謝
下一篇：求個大神，看看怎么整