历遍筛选文件夹及其子文件夹下所有文件

axing80324 · 发表于 2012-3-29 19:20

学习下高手的方法，高手讨论就如看大侠过招

mimicai · 发表于 2012-3-29 20:30

也凑热闹发一个，用dos的批处理做的：

Sub cs()
Dim arr, mp As String
mp = ThisWorkbook.Path
CreateObject("wscript.shell").Run "cmd /c dir /s/b/a-d/on """ & mp & "\*.*"">""" & mp & "\myls.txt""", 0, 1
Open mp & "\myls.txt" For Input As #1
arr = Split(StrConv(InputB(LOF(1), #1), vbUnicode), vbCrLf)
Close #1
Cells.ClearContents
Range("a1").Resize(UBound(arr) + 1) = Application.Transpose(arr)
Kill mp & "\myls.txt"
End Sub

复制代码

doryan · 发表于 2012-3-30 11:11

本帖最后由 doryan 于 2012-3-30 11:11 编辑

CreateObject("wscript.shell").Run "cmd /c dir /s/b/a-d/on """ & mp & "\*.*"">""" & mp & "\myls.txt""", 0, 1

这句是关键
可惜看不懂DOS下的/a/b/c之类的含义了
有时间的话麻烦讲解下嘿

mimicai · 发表于 2012-3-30 12:14

doryan 发表于 2012-3-30 11:11
这句是关键
可惜看不懂DOS下的/a/b/c之类的含义了
有时间的话麻烦讲解下嘿

在dos环境下输入：
dir /?
就可以知道参数的意思了

少如 · 发表于 2012-3-30 12:29

本帖最后由少如于 2012-3-30 12:29 编辑

各位老大, 能说说怎么使用吗?
楼主的文件打开后怎么是空白的？

doryan · 发表于 2012-3-31 22:22

mimicai 发表于 2012-3-29 20:30
也凑热闹发一个，用dos的批处理做的：

咨询个问题哈
如果我只要文件名不要路径怎么办？

mayfor · 发表于 2012-3-31 22:37

不知哪个的速度最快？

mimicai · 发表于 2012-3-31 23:06

doryan 发表于 2012-3-31 22:22
咨询个问题哈
如果我只要文件名不要路径怎么办？

这个可以后期对数据进行循环处理吧？
mid(arr(i),instrrev(arr(i),"\")+1)

白云2011 · 发表于 2012-4-1 00:17

本帖最后由白云2011 于 2012-4-1 00:17 编辑

拼凑了一个
Sub yyy()
Dim v() As String, r() As String, n&, i&, s$
ReDim Preserve v(0)
v(0) = "C:\Program Files\"
Do
For Each Floder1 In CreateObject("Scripting.FileSystemObject").GetFolder(v(i)).SubFolders
      n = n + 1
      ReDim Preserve v(n)
      v(n) = v(i) & Floder1.Name & "\"
         s = Dir(v(n) & "*.txt")
         While Not Len(s) = 0
               ReDim Preserve r(j)
               r(j) = s
               j = j + 1
         s = Dir()
         Wend
Next
i = i + 1
Loop Until i - n = 1
[a1].Resize(j, 1) = Application.Transpose(r)
End Sub

hshwxm · 发表于 2012-4-1 02:08

不知能做什么用，留下足迹看看……

		自动登录	找回密码
密码			免费注册

[原创] 历遍筛选文件夹及其子文件夹下所有文件