Dosya Adını Alma

[oktaykarauzun]

Sevgili arkadaşlar, ekte gönderdiğim örnek dosyada butona bastığımda sadece dosya ismini almak istiyorum. yolu görmek istemiyorum. Mesela D:\Resimler\adsız.jpg ismiyle alınan bir dosya yolunun ben sadece "adsız" ismini almak istiyorum. Yardımcı olurmusunuz.tşk

 

[beab05]

Merhaba;

Me![Metin0].Text = [COLOR="Red"]Mid(fileName, 1 + InStrRev(fileName, "\"))[/COLOR]

Düğmenin tıklama kodundaki değişkliği yaprsanız olur..

 

[oktaykarauzun]

tşk. ellerinize sağlık.

 

[savage33]

İhtiyaç duyacak arkadaşlara bendende bir örnek
ActiveSheet.Range("a1") = _ Left(KaynakDosya(i).Name,Len(CStr(KaynakDosya(i).Name)) - 4)