VBA列出没有FileSystemObject的子文件夹中的所有文件(快速方式) [英] VBA List all files (fast way) in subfolders without FileSystemObject
本文介绍了VBA列出没有FileSystemObject的子文件夹中的所有文件(快速方式)的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我正在寻找一种快速列出文件夹子文件夹中的所有文件的方法。基于FileSystemObject的方法太慢 - 从网络驱动器(intranet)列出416个文件名需要大约6分钟,因为我明白Dir()函数不允许循环遍历子文件夹。
I'm searching for a way for fast listing all files from subfolders of folder. Approach based on FileSystemObject is too slow - it takes ~6 minutes for listing 416 filenames from a network drive (intranet), as I understand Dir() function doesn't allow for looping throught subfolders.
推荐答案
使用CMD:
Sub SO()
Const parentFolder As String = "C:\Users\bloggsj\folder\" '// change as required, keep trailing slash
Dim results As String
results = CreateObject("WScript.Shell").Exec("CMD /C DIR """ & parentFolder & "*.*"" /S /B /A:-D").StdOut.ReadAll
Debug.Print results
'// uncomment to dump results into column A of spreadsheet instead:
'// Range("A1").Resize(UBound(Split(results, vbCrLf)), 1).Value = WorksheetFunction.Transpose(Split(results, vbCrLf))
'//-----------------------------------------------------------------
'// uncomment to filter certain files from results.
'// Const filterType As String = "*.exe"
'// Dim filterResults As String
'//
'// filterResults = Join(Filter(Split(results, vbCrLf), filterType), vbCrLf)
'//
'// Debug.Print filterResults
End Sub
这篇关于VBA列出没有FileSystemObject的子文件夹中的所有文件(快速方式)的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文