怎样将指定路径的最末一级文件夹的全路径名录入数组

weiyingde · 发表于 2016-9-9 20:54

as42065300 发表于 2016-9-9 20:02
套个循环就可以了。没理解你的意思

arr(n) = arr(i) & mypaths & "\"
If Len(arr(n)) - Len(Replace(arr(n), "\", "")) = 4 Then brr(n) = arr(n)
我加了一行代码，剔除非末级文件夹的代码，出了问题，请你帮我看看

weiyingde · 发表于 2016-9-9 21:01

as42065300 发表于 2016-9-9 20:45
你的意思是把
pth1 = "H:\Ofenused\视频\电影\"
pth2 = "H:\Ofenused\视频\歌曲\"

作用是替代：
手动输入的文件名
pth1 = "H:\Ofenused\视频\电影\"
  pth2 = "H:\Ofenused\视频\歌曲\"
  pth3 = "H:\Ofenused\视频\新歌\"
  pth4 = "H:\Ofenused\视频\杂合\"
  pth5 = "H:\Ofenused\视频\郑云\"

我给的目录只有一个："H：\",而获取这个目录下的所有最后一级文件夹名却交给电脑去处理

weiyingde · 发表于 2016-9-9 21:03

duquancai 发表于 2016-9-9 20:04

感谢指导
我试试看

as42065300 · 发表于 2016-9-9 21:05

weiyingde 发表于 2016-9-9 21:03
感谢指导
我试试看

你如果一定要在数组中去掉的话就把2个循环拆开

Sub FilPaht()
Dim my$, arr(), mypaths$, brr()
my = ThisWorkbook.PatH & "" '我这里是指定的当前工作簿的路径。
mypaths = Dir(my, vbDirectory)
Do While mypaths <> ""
If mypaths <> "." And mypaths <> ".." And mypaths <> ThisWorkbook.Name Then
n = n + 1
ReDim Preserve arr(1 To n)
arr(n) = my & mypaths & ""
End If
mypaths = Dir
Loop
i = 1
n = 0
Do While i <= UBound(arr)
mypaths = Dir(arr(i), vbDirectory)
Do While mypaths <> ""
If mypaths <> "." And mypaths <> ".." Then
n = n + 1
ReDim Preserve brr(1 To n)
brr(n) = arr(i) & mypaths & ""
End If
mypaths = Dir
Loop
i = i + 1
Loop
End Sub

复制代码

as42065300 · 发表于 2016-9-9 21:06

本帖最后由 as42065300 于 2016-9-9 21:11 编辑

最后字典里装入的数组 brr ,别搞错了。
这2个循环可以优化成一个自己搞下把

weiyingde · 发表于 2016-9-9 21:06

duquancai 发表于 2016-9-9 20:04

出问题，无效的参数调用

weiyingde · 发表于 2016-9-9 21:19

as42065300 发表于 2016-9-9 21:05
你如果一定要在数组中去掉的话就把2个循环拆开

H:\图片1.png还是出问题：

weiyingde · 发表于 2016-9-9 21:20

还是出问题：

weiyingde · 发表于 2016-9-9 21:28

as42065300 发表于 2016-9-9 21:06
最后字典里装入的数组 brr ,别搞错了。
这2个循环可以优化成一个自己搞下把

我自己疏忽了，终于搞定，谢谢你，尽管如此，你的代码，我还是要细细琢磨消化。

weiyingde · 发表于 2016-9-9 22:12

as42065300 发表于 2016-9-9 21:06
最后字典里装入的数组 brr ,别搞错了。
这2个循环可以优化成一个自己搞下把

一步到位，不再装入字典，只是将
brr(n) = arr(i) & mypaths & "\"
红字的部分去掉完美解决问题。
再次谢谢你！！

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

[求助] 怎样将指定路径的最末一级文件夹的全路径名录入数组

评分