Создать несколько объектов в цикле

[АлёнаP]

Можно ли в зависимости от числа Х создать несколько объектов, например fso1,fso2, ... . Подскажите пож-та!

For i = 0 To X
    Set fso = CreateObject("Scripting.FileSystemObject")  
Next

[viter.alex]

Можно, используя коллекцию или массив.

Sub test()
    Dim col As New Collection
    Dim FSO As Object
    For X = 0 To 10
        Set FSO = CreateObject("Scripting.FileSystemObject")
        col.Add FSO
    Next
    MsgBox "В коллекции содержится " & col.Count & " объектов типа " & TypeName(col(1))
End Sub

[АлёнаP]

Спасибо.
Так и сделала. Додумалась.....))))