Dosya Uzantılarını Gizleme

[domino]

Aşağıdaki kodlarda gördüğünüz üzere klasördeki dosyaları listbox2 de listeliyorum fakat uzantılarını gizleyemedim. Şöyle çıkıyor.;
müşteri1.xlsx


dosya = Dir("e:\CARİ KARTLAR\MÜŞTERİLER\*.xls")
Do While dosya <> ""
ListBox2.AddItem dosya
dosya = Dir
Loop

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

dosya = Dir("e:\CARİ KARTLAR\MÜŞTERİLER\*.xls")
Do While dosya <> ""
d = Split(dosya, ".")
dosya = WorksheetFunction.Substitute(dosya, "." & d(UBound(d)), "")
ListBox2.AddItem dosya
dosya = Dir
Loop

.

 

[domino]

Teşekkür ederim sorun çözüldü