0

我有以下代码：

Function GetSubDir(ByVal sDir)

Dim oFS As New FileSystemObject
Dim oDir

Set oDir = oFS.GetFolder(sDir)
For Each oSub In oDir.SubFolders
    MsgBox oSub.Path
    GetSubDir oSub.Path
Next oSub
End Function

我想修改它，以便将每个子目录路径存储到一个数组中，但是我不知道如何实现它，或者是否有可能。有人可以帮忙吗？

4

1 回答 1

1

试试这个，在您的代码中创建一个基本数组，并为每个子目录使其更大，如下所示...

dim myArray()
dim iCount as integer

iCount=1

Set oDir = oFS.GetFolder(sDir)

' in your loop through the sub-directories...
For Each oSub In oDir.SubFolders
    Redim Preserve myArray(iCount)
    myArray(iCount) = oSub.path
    iCount=iCount+1
Next

hth

菲利普

PS。我也推荐其他人推荐的文章...

如果您可以自己钓到鱼而不是向您扔鱼，那总是会更好:)

于 2013-02-26T15:58:59.547 回答