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 Cells(i, 2) = mydir mydir = Dir Loop End Sub VSTO列出文件夹里所有的子文件夹和文件(C#) int i = 0, k = 0; DirectoryInfo dir = new DirectoryInfo(@"c:/windows"); DirectoryInfo[] dirs = dir.GetDirectories(); foreach (DirectoryInfo folder in dirs) { i++; this.Range["a" + i, missing].Value2 = folder.Name; } FileInfo[] files = dir.GetFiles(); foreach (FileInfo file in files) { k++; this.Range["b" + k, missing].Value2 = file.Name; }