用DIR这个函数来列出某个文件夹下的内容,
以excel里的为例
Dim i As Integer
i = 1
Sheet1.Range("A" & i) = Dir("C:\")
Do While True
i = i + 1
Sheet1.Range("A" & i) = Dir
If Sheet1.Range("A" & i) = "" Then Exit Do
Loop
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024