ファイルシステムオブジェクトを使用して一連のディレクトリをループしていますが、ループする追加のディレクトリを指定したいと思います。たとえば、私は現在次のようにしています。
Sub test()
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Directory)
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder In colSubfolders
' take some action
End For
End Sub
ただし、次のように、ループする追加のフォルダーを指定したいと思います。
colSubfolders = colSubfolders + "additionalpath"
For Each objSubfolder In colSubfolders ....
または、次のようなループコマンドで複数のオブジェクトを指定することは可能ですか。
For Each objSubfolder in colSubfolders, "additionalpath"