ComboBox'ta Dosya Listelemek

[Seyit Tiken]

Selamün Aleyküm,
Arkadaşlar ben ComboBox'ta klasörden dosyaları listeliyorum, kullandığım kod şudur.

Const klasor = "D:\Personel\htiken\"
Private Sub ComboBox1_Click()
On Error Resume Next
CreateObject("Shell.Application").Open klasor & ComboBox1.List(ComboBox1.ListIndex, 0)
End
End Sub

Private Sub UserForm_Initialize()
UserForm7.ComboBox1 = "Dosya Seçin"
Set nesne = CreateObject("Scripting.FileSystemObject")
For Each dosya In nesne.GetFolder(klasor).Files
If dosya.Name <> ThisWorkbook.Name Then ComboBox1.AddItem dosya.Name
Next
If ComboBox1.ListCount = 0 Then ComboBox1.ListIndex = 0
End Sub

Görselde de gördüğünüz gibi, bazı dosyaların önünde(sol tarafta) ~ işareti var, bu dosyalara tıklandığında dosyalar açılmıyor, aynı dosyalar var, bu tür kayıtları nasıl engeleyebiliriz veya silebiliriz?
Teşekkür ediyorum, Allah razı olsun.

 

[mancubus]

şu şekilde deneyebilirsiniz.
hidden (vbHidden) veya system (vbSystem) vs dosyalarının yüklenmesini elgellemek için DIR fonksiyonunun vbNormal argümanını kullandım.

Private Sub UserForm_Initialize()

    ComboBox1 = "Dosya Seçin"
    
    Set nesne = CreateObject("Scripting.FileSystemObject")
    
    For Each dosya In nesne.GetFolder(klasor).Files
        If dosya.Name <> ThisWorkbook.Name And Len(Dir(klasor & dosya.Name, vbNormal)) > 0 Then
            ComboBox1.AddItem dosya.Name
        End If
    Next
    
    If ComboBox1.ListCount = 0 Then ComboBox1.ListIndex = 0

End Sub

 

[Seyit Tiken]

Sayın Mancubus çok teşekkür ediyorum, çok mükemmel oldu. Allah razı olsun.

 

[mancubus]

rica ederim.

amin; hepimizden...