Çözüldü Dosya formatı eklemek

Katılım
17 Haziran 2008
Mesajlar
1,836
Excel Vers. ve Dili
Microsoft Ofis Profesyonel 2019 x64 TR
Merhaba arkadaşlar

bu kod içine;

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


Kod:
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

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
4,086
Excel Vers. ve Dili
2007 Türkçe
Merhaba,
Aşağıdaki kodu deneyiniz, istediğiniz uzantıyı ilave edersiniz.
PHP:
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
 
Katılım
17 Haziran 2008
Mesajlar
1,836
Excel Vers. ve Dili
Microsoft Ofis Profesyonel 2019 x64 TR
Ö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

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
4,086
Excel Vers. ve Dili
2007 Türkçe
Rica ederim, iyi çalışmalar...
 
Üst