(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
Belki benden başkalarınında işine yarar. Herkese çok tşk ederim.
