Çözüldü Dosya formatı eklemek

[k0081]

Merhaba arkadaşlar

bu kod içine;

*.dxf , *.nc , *.pdf uzantılı dosyaları da nasıl dahil edebiliriz ?

dosya = Dir(CurDir & "\*.dwg")
Do While dosya <> ""
combo_sec.AddItem dosya
say = say + 1       
dosya = Dir()
Loop

yardımcı arkadaşa şimdiden Teşekkürler.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz, istediğiniz uzantıyı ilave edersiniz.

uzanti = Array("*.dwg", "*.dxf", "*.nc", "*.pdf")
For Each uz In uzanti
    dosya = Dir(CurDir & "\" & uz)
    Do While dosya <> ""
        combo_sec.AddItem dosya
        say = say + 1
        dosya = Dir()
    Loop
Next

 

[k0081]

ÖmerBey


Hocam çok Teşekkür ederim. Array kullanımı ile yapılacağını biliyordum, hatta denedim. ama düzenleyememiştim.

elinize sağlık, Tamamdır...

 

[ÖmerBey]

Rica ederim, iyi çalışmalar...