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 に答える