Soru Filtre oluşturmak

[k0081]

Merhaba arkadaşlar,

combobox a bir klasör içindeki dosyaları adı ve uzantısı ile alıyorum. textbox ın keydown opsiyonunu kullanarak bir filtre oluşturmak istiyorum..

şu şekilde ;

textbox = dwg,lsp,err

yazıp entere bastığımda, aktif klasördeki sadece bu uzantılı dosyalar combo ya yüklensin...

yardımıcı arkadaşa şimdiden Teşekkür ederim.

 

[Haluk]

Userform üzerindeki TextBox1 nesnesine dosya uzantılarını aralarında virgül olacak şekilde yazdıktan sonra, CommandButton1'e tıklayınca "C:\TestFolder" klasöründeki söz konusu uzantılara ait dosyaların ComboBox1'de listelenmesi için;

Private Sub CommandButton1_Click()
    'Haluk - 01/12/2019
    'sa4truss@gmail.com
    '
    Dim SourceFolder As String
    Dim FSO As Object, strFolder As Object, myArr() As String
    Dim strFile As Object
    Dim i As Long
  
    SourceFolder = "C:\TestFolder"
    ComboBox1.Clear
  
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set strFolder = FSO.GetFolder(SourceFolder)
  
    myArr = Split(TextBox1, ",")
  
    For i = LBound(myArr) To UBound(myArr)
        For Each strFile In strFolder.Files
            If FSO.GetExtensionName(strFile.Name) = Trim(myArr(i)) Then
                ComboBox1.AddItem FSO.GetBaseName(strFile.Name)
            End If
        Next
    Next
  
    Set strFolder = Nothing
    Set FSO = Nothing
End Sub

Eğer dosyaları uzantıları ile birlikte listelemek isterseniz, aşağıdaki satırı kullanırsınız;

ComboBox1.AddItem (strFile.Name)

.

 

[okinava14]

Teşekkürler emeğine sağlık.

 

[k0081]

Hocam çok teşekkür ediyorum. Tamamdır.. elinize sağlık