Çözüldü Dosya formatı eklemek

k0081

Altın Üye
Katılım
17 Haziran 2008
Mesajlar
1,324
Beğeniler
10
Excel Vers. ve Dili
Excel 2007-2010 Türkçe
#1
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
2,645
Beğeniler
189
Excel Vers. ve Dili
2007 Türkçe
#2
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
 

k0081

Altın Üye
Katılım
17 Haziran 2008
Mesajlar
1,324
Beğeniler
10
Excel Vers. ve Dili
Excel 2007-2010 Türkçe
#3
Ö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
2,645
Beğeniler
189
Excel Vers. ve Dili
2007 Türkçe
#4
Rica ederim, iyi çalışmalar...
 
Üst