Çözüldü Dosya formatı eklemek

Katılım
17 Haziran 2008
Mesajlar
1,305
Beğeniler
9
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,427
Beğeniler
116
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
 
Katılım
17 Haziran 2008
Mesajlar
1,305
Beğeniler
9
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,427
Beğeniler
116
Excel Vers. ve Dili
2007 Türkçe
#4
Rica ederim, iyi çalışmalar...
 
Üst