(26/11/2010, 02:15)Hayri16 yazdı: Collection nasıl bir değişken türüdür.? Eklenen bir modüle veya ocx e referans mı veriliyor?

Hayır.

Collection'lar, içerisinde birden fazla veri depolayabilen, gerektiğinde(benzersiz) veri ekleme, silme gibi işlemlere olanak sağlayan sanal nesnelerdir.

Örneğin Excel'de hazırladığım alttaki function ile bir aralığı benzersiz listeleyebiliyorum.
Aralıktaki veriler ilk önce benzersiz olarak Collection nesnesine alınmıştır, daha sonra oradan tek tek Dizi() adındaki başka bir sanal diziye alınmış ve sıralanmıştır.

Function Benzersiz_Listele(ByVal Aralik As Variant) As Variant

    Dim Col As New Collection

    Dim i As Long

    Dim Dizi As Variant

    Dim Hucre As Variant



    On Error Resume Next

    For Each Hucre In Aralik

        Col.Add CStr(Hucre), CStr(Hucre)

    Next

    On Error GoTo 0



    If Col.Count = 1 And Col.Item(1) = vbNullString Then

        Benzersiz_Listele = Null

        Exit Function

    End If



    ReDim Dizi(1 To Col.Count)

    For i = 1 To Col.Count

        Dizi(i) = Col.Item(i)

    Next

    Benzersiz_Listele = Dizi

End Function

Klasör listelemek için ben de bir örnek vereyim:

Sub Klasor_Listele()

    'Microsoft Scripting Runtime referansını gerektirir

    Dim FSO As FileSystemObject

    Dim Yol As String, Klasor As Folder, Alt_Klasor As Folder

    Yol = "C:\Documents and Settings\KLasörAdı\Desktop\"

    

    Set FSO = New FileSystemObject

    With FSO

        Set Klasor = .GetFolder(Yol)

        For Each Alt_Klasor In Klasor.SubFolders

            Call MsgBox(Alt_Klasor.Name)

        Next Alt_Klasor

    End With

End Sub