列出指定文件夾中的子文件夾和文件

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; }