递归获取文件夹路径时怎么将路径数据依次写入到数组中？

liuhuanexcel

1. Sub ListFilesTest()
   
2.     With Application.FileDialog(msoFileDialogFolderPicker)
   
3.         If .Show Then myPath$ = .SelectedItems(1) Else Exit Sub
   
4.     End With
   
5.     If Right(myPath, 1) <> "" Then myPath = myPath & ""
   
6.     [a:a] = ""
   
7.     Call ListAllFso(myPath)
   
8. End Sub
   
9. Function ListAllFso(myPath$)
   
10.     Dim StrPath
    
11.     Dim StrFileDir()
    
12.     Set fld = CreateObject("Scripting.FileSystemObject").GetFolder(myPath)
    
13.     For Each fd In fld.SubFolders
    
14.         [a65536].End(3).Offset(1) = " " & fd.Path & ""  '如何将文件夹链接写入数组？
    
15.         N = N + 1
    
16.         ReDim Preserve StrFileDir(N)
    
17.         StrFileDir(N) = fd.Path
    
18.         Call ListAllFso(fd.Path)
    
19.     Next
    
20. End Function

复制代码

递归取得的文件夹路径存入数组后，再次递归就会使得前面存入的值不见了，要怎么样才能一直保存呢？

zpy2

Dim StrFileDir()

Sub ListFilesTest()
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show Then myPath$ = .SelectedItems(1) Else Exit Sub
    End With
    If Right(myPath, 1) <> "" Then myPath = myPath & ""
    [a:a] = ""
    Call ListAllFso(myPath)
End Sub
Function ListAllFso(myPath$)
    Dim StrPath
rem   Dim StrFileDir()
    Set fld = CreateObject("Scripting.FileSystemObject").GetFolder(myPath)
    For Each fd In fld.SubFolders
        [a65536].End(3).Offset(1) = " " & fd.Path & ""  '如何将文件夹链接写入数组？
        N = N + 1
        ReDim Preserve StrFileDir(N)
        StrFileDir(N) = fd.Path
        Call ListAllFso(fd.Path)
    Next
End Function

闻启学

   效果是这样吗 、？？？

你地铁图

写进单元格存起来

liuhuanexcel

闻启学 发表于 2023-1-8 20:33
效果是这样吗 、？？？

取得的文件夹链接效果是这样的，但是能不能直接把链接的值全部存到数组中呢？这样后面会比较方便调用。

闻启学

liuhuanexcel 发表于 2023-1-8 21:36
取得的文件夹链接效果是这样的，但是能不能直接把链接的值全部存到数组中呢？这样后面会比较方便调用。

代码就是已经放入数组  已经修改 了

liuhuanexcel

闻启学 发表于 2023-1-8 22:00
代码就是已经放入数组  已经修改 了

我测试了您的代码，发现并没有数组呀，数组是定义的myaa嘛，这个出来的是计数呀

闻启学

帮你修改代码

ivccav

https://club.excelhome.net/forum ... ead&tid=1391369