'VBA列出文件夹中所有的子文件夹
Sub ShowFolderList()
Dim fso As Object, oFolder As Object
Dim oFolderArray As Object, f As Object
Dim k&
Set fso = CreateObject("scripting.filesystemobject")
Set oFolder = fso.GetFolder("C:/Program Files")
Set oFolderArray = oFolder.SubFolders
For Each f In oFolderArray
k = k + 1
Cells(k, 1) = f.Name
Next
End Sub
'
'VBA列出文件夹中所有的文件
Sub mydir()
Dim mydir As String
Dim i&
Range("A:A").ClearContents
mydir = Dir(ThisWorkbook.Path & "/*.*", vbNormal)
Do While mydir <> ""
i = i + 1
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余1页未读,立即下载