Skip to main content

AccessTr.neT


Kodda Klasörleri Listeletme

Kodda Klasörleri Listeletme

Çözüldü #15
(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
Mesajlarımızı Türkçe yazım kurallarına uygun yazalım.
Emeğe saygı gösterelim, bir teşekkürü çok görmeyelim.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Kodda Klasörleri Listeletme - Yazar: erdem55 - 06/11/2010, 17:51
Cvp: Kodda Klasörleri Listeletme - Yazar: ercansahin - 06/11/2010, 17:55
Cvp: Kodda Klasörleri Listeletme - Yazar: ercansahin - 07/11/2010, 19:09
Cvp: Kodda Klasörleri Listeletme - Yazar: erdem55 - 24/11/2010, 19:05
Cvp: Kodda Klasörleri Listeletme - Yazar: Hayri16 - 24/11/2010, 21:41
Cvp: Kodda Klasörleri Listeletme - Yazar: erdem55 - 24/11/2010, 23:26
Cvp: Kodda Klasörleri Listeletme - Yazar: Hayri16 - 25/11/2010, 04:40
Cvp: Kodda Klasörleri Listeletme - Yazar: erdem55 - 25/11/2010, 14:41
Cvp: Kodda Klasörleri Listeletme - Yazar: alpeki99 - 25/11/2010, 16:49
Cvp: Kodda Klasörleri Listeletme - Yazar: erdem55 - 25/11/2010, 18:26
Cvp: Kodda Klasörleri Listeletme - Yazar: alpeki99 - 25/11/2010, 23:30
Cvp: Kodda Klasörleri Listeletme - Yazar: erdem55 - 26/11/2010, 02:12
Cvp: Kodda Klasörleri Listeletme - Yazar: Hayri16 - 26/11/2010, 02:15
Cvp: Kodda Klasörleri Listeletme - Yazar: maytas - 26/11/2010, 03:03
Cvp: Kodda Klasörleri Listeletme - Yazar: assenucler - 26/11/2010, 11:27
Cvp: Kodda Klasörleri Listeletme - Yazar: erdem55 - 26/11/2010, 13:26
Cvp: Kodda Klasörleri Listeletme - Yazar: Hayri16 - 26/11/2010, 11:42
Cvp: Kodda Klasörleri Listeletme - Yazar: alpeki99 - 26/11/2010, 13:31
Cvp: Kodda Klasörleri Listeletme - Yazar: erdem55 - 26/11/2010, 13:35
Cvp: Kodda Klasörleri Listeletme - Yazar: alpeki99 - 26/11/2010, 13:49
Cvp: Kodda Klasörleri Listeletme - Yazar: erdem55 - 26/11/2010, 15:52
Klasör Arama - Yazar: erdem55 - 24/11/2010, 18:37
Task