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

最新推荐文章于 2024-07-03 12:33:01 发布

原创最新推荐文章于 2024-07-03 12:33:01 发布 · 2.7k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#object #vba #string #each #c# #file

EXCEL VBA 同时被 2 个专栏收录

30 篇文章

订阅专栏

EXCEL VSTO

19 篇文章

订阅专栏

本文提供了使用VBA和C#列出指定文件夹内所有子文件夹及文件的方法。VBA部分包括两个示例：一是列出指定路径下所有子文件夹；二是列出同一工作簿所在目录的所有文件。C#部分则展示了如何使用VSTO技术获取指定目录的所有子文件夹和文件。

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