获取文件夹（含子文件夹）所有文件名称

最新推荐文章于 2024-11-04 14:30:42 发布

seven_north

最新推荐文章于 2024-11-04 14:30:42 发布

阅读量601

点赞数

分类专栏： office/wps 文章标签： excel

本文链接：https://blog.youkuaiyun.com/seven_north/article/details/128263437

版权

office/wps 专栏收录该内容

4 篇文章

订阅专栏

excel vb窗体插入以下代码

Sub 提取指定文件夹内的所有文件名() '含所有子文件夹内的文件
	On Error Resume Next 
	Dim Fso As Object, arrf$(), mf& 
	Set Fso = CreateObject("Scripting.FileSystemObject") 
	Call GetFiles(CreateObject("Shell.Application").BrowseForFolder(0, "请选择文件夹", 0, "").Self.Path, Fso, arrf, mf) 
	Sheet1.[a2].Resize(mf) = Application.Transpose(arrf) 
	Set Fso = Nothing
End Sub

Private Sub GetFiles(ByVal sPath$, ByRef Fso As Object, ByRef arrf$(), ByRef mf&)
	On Error Resume Next 
	Dim Folder As Object 
	Dim SubFolder As Object
	Dim File As Object
	Set Folder = Fso.GetFolder(sPath)
	For Each File In Folder.Files  
	mf = mf + 1  
	ReDim Preserve arrf(1 To mf)  
	arrf(mf) = File.Name
	Next
	For Each SubFolder In Folder.SubFolders  
	Call GetFiles(SubFolder.Path, Fso, arrf, mf)
	Next
	Set Folder = Nothing
	Set File = Nothing
End Sub