关于递归数组的输出错误问题

kangren6772

在递归函数中定义数组会出现输出错误的问题：
Option Base 1
Dim k&, jg(10000)
Sub a()
  Dim fso As Object
  Set fso = CreateObject("scripting.filesystemobject")
  Call b(fso, "E:\\")
End Sub
Sub b(fso As Object, str$)
  Dim f$(1000), i%
  For Each file In fso.getfolder(str).subfolders
    i = i + 1: f(i) = file.Path
    Call b(fso, file.Path)
  Next
  k = k + 1
  jg(k) = f
End Sub

在完成时jg()数组中不能出现真确的值

liulang0808

Option Base 1
Dim k&, jg(10000)
Sub a()
  Dim fso As Object
  Set fso = CreateObject("scripting.filesystemobject")
  Call b(fso, "E:\\")
[a1].Resize(10000) = WorksheetFunction.Transpose(jg)
End Sub
Sub b(fso As Object, str$)

  For Each file In fso.getfolder(str).subfolders
    If k <= 10000 Then
        k = k + 1: jg(k) = file.Path
        Call b(fso, file.Path)
    Else
        Exit For
    End If
  Next
End Sub

kangren6772

谢谢老师，您的是遍历，我要的是用数组体现出文件的层次关系，第一层jg(1),第二层文件jg(2)……，每一层用一个数组嵌套，再次谢谢老师。

kangren6772

Option Base 1
Dim jg()
Sub perpare()
  On Error Resume Next
  ReDim jg(1 To 10): Dim k&, i%, fso As Object
  For i = 1 To 10
    If k < 500 Then k = 30 ^ (i - 1)
    ReDim jg1$(k): jg(i) = jg1
  Next i
  Set fso = CreateObject("scripting.filesystemobject")
  Call ergodic(fso, "E:\\")
  For i = 1 To UBound(jg)
    ActiveSheet.Cells(1, i).Resize(UBound(jg(i))) = Application.Transpose(jg(i))
  Next
End Sub
Sub add(str$, str1$)
  Dim i%, j%, s%
  For i = 1 To UBound(jg)
    For j = 1 To UBound(jg(i))
       If str = jg(i)(j) Then
         For s = 1 To UBound(jg(i + 1))
           If jg(i + 1)(s) = "" Then
             jg(i + 1)(s) = str1
              Exit Sub
           End If
          Next s
       End If
  Next j, i
  If jg(1)(1) = "" Then jg(1)(1) = str
End Sub
Sub ergodic(fso As Object, str$)
  Dim fil As Object
  For Each fil In fso.getfolder(str).subfolders
    Call add(str, fil.Path)
    Call ergodic(fso, fil.Path)
  Next
End Sub

kangren6772

liulang0808 发表于 2018-9-5 10:25
Option Base 1
Dim k&, jg(10000)
Sub a()

'老师，我自己构建了一个数组可以代替字典或者treeview的层次关系；不足之处老师指点
Option Base 1
Dim jg(), k&
Sub perpare()
  Dim i%, j%, fso As Object, str$, ar(1): str = "F:\"
  ReDim jg(2): jg(1) = str
  Set fso = CreateObject("scripting.filesystemobject")
  Call bianli(fso, str)
End Sub
Sub bianli(fso As Object, str$)
  Dim file As Object, nod As Node
  For Each file In fso.getfolder(str).subfolders
    k = 0
    Call add(jg, str, file.Path)
    Call bianli(fso, file.Path)
  Next
End Sub
Sub add(jg, str$, str1$)
  On Error Resume Next
  Dim i%, ar, br(2), cr(2): k = k + 1
  If k = 1 Then
    If jg(1) = str Then
      If IsArray(jg(2)) Then
        ar = jg(2)
        ReDim Preserve ar(UBound(ar) + 1)
        br(1) = str1: ar(UBound(ar)) = br
        jg(2) = ar
        Exit Sub
      Else
       cr(1) = str1
       jg(2) = cr: Exit Sub
      End If
    End If
    Call add(jg(2), str, str1)
  Else
    If Not IsArray(jg) Then Exit Sub
    For i = 1 To UBound(jg)
      If IsArray(jg(i)) Then
        If jg(i)(1) = str Then
          ar = jg(i)(2)
          If IsArray(jg(i)(2)) Then
            ReDim Preserve ar(UBound(ar) + 1)
            br(1) = str1: ar(UBound(ar)) = br
            jg(i)(2) = ar: Exit Sub
          Else
            cr(1) = str1
            jg(i)(2) = cr: Exit Sub
          End If
        End If
      End If
      Call add(jg(i), str, str1)
    Next
  End If
End Sub