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

weiyingde

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

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

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

感谢指导
我试试看

as42065300

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

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

1. Sub FilPaht()
   
2. Dim my$, arr(), mypaths$, brr()
   
3. 
   
4. my = ThisWorkbook.PatH & ""  '我这里是指定的当前工作簿的路径。
   
5. 
   
6. mypaths = Dir(my, vbDirectory)
   
7. Do While mypaths <> ""
   
8.     If mypaths <> "." And mypaths <> ".." And mypaths <> ThisWorkbook.Name Then
   
9.             n = n + 1
   
10.         ReDim Preserve arr(1 To n)
    
11.            arr(n) = my & mypaths & ""
    
12.         End If
    
13.         mypaths = Dir
    
14. Loop
    
15. i = 1
    
16. n = 0
    
17. Do While i <= UBound(arr)
    
18.     mypaths = Dir(arr(i), vbDirectory)
    
19.     Do While mypaths <> ""
    
20.         If mypaths <> "." And mypaths <> ".." Then
    
21.             n = n + 1
    
22.          ReDim Preserve brr(1 To n)
    
23.            brr(n) = arr(i) & mypaths & ""
    
24.         End If
    
25.         mypaths = Dir
    
26.     Loop
    
27.     i = i + 1
    
28. Loop
    
29. End Sub
    

复制代码

as42065300

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

weiyingde

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

出问题，无效的参数调用

weiyingde

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

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

weiyingde

还是出问题：

weiyingde

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

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

weiyingde

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

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