Dosya adresinden isim alma

[mrwarrior]

Elimde bir string değer var. Ben bunu ADO için getopenfilename ile aldım. Yani bir dosyanın adı ve adresi var içinde.

Benim istediğim sadece ad kısmı.
Mesela string
C:\bilgiler.csv şeklinde ise
Ben sadece bilgiler yazısını almak istiyorum. Acaba bunu nasıl yaparım.

 

[ÖmerBey]

Merhaba,
Deneyiniz...

isim = "C:\bilgiler.csv"
Set fso = CreateObject("Scripting.FileSystemObject")
MsgBox fso.GetbaseName(isim)

Alternatif:

isim = "C:\bilgiler.csv"
isim = Mid(isim, InStrRev(isim, "\") + 1)
isim = Left(isim, InStrRev(isim, ".") - 1)
MsgBox isim

 

[mrwarrior]

Teşekkürler hocam. Tam istediğim oldu.

Konu kapanabilir..

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...