textbox a alınan dosya isminin uzantısının görülmemesi.

[olymposss]

sn hocalarım herkese iyi günler

bir listboxa c:\file içindeki xls uzantılı dosyaları alıyorum.bu dosyalardan birine çift tıkladığınızda tıklanan değeri textbox1 e atıyorum.ancak textbox1 e alınan değerde dosya "deneme.xls" şeklinde görünüyor.ancak ben sadece "deneme" olarak (uzantısı gözükmeden) gözükmesini istiyorum.acaba mümkün mü?
yardımlarınız için teşekkür ederim.saygılar:yardim:

 

[Orion1]

Merhaba.
Aşağıdaki şekilde denermisiniz?

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Left(ListBox1.Value, Len(ListBox1.Value) - 4)
End Sub

 

[olymposss]

harika çok teşekkürler sn sezar
aramalarım sonuçsuz kalmıştı.emeğinize sağlık

 

[Orion1]

Rica ederim.
İyi çalışmalar.