بدست آوردن نام یک فایل در یک مسیر

[abas1388]

سلام
چگونه میتوان نام یک فایل را از یک مسیر مشخص جدا کنیم و آن را در یک تکست باکس درج نمائیم . مثلاً در مسیر E:\new folder\db1.mdb میخواهم نام فایل db1.mdb که در آخر مسیر فوق درج شده در یک تکست باکس به نمایش در بیاد
با تشکر

[Pr0grammer]

اینو تست کن :


Private Sub Command1_Click()

Dim tmp As String
Dim i As Integer

tmp = ""

For i = 1 To Len(Text1)
If Left(Right(Text1, i), 1) <> "\" Then
tmp = Right(Text1, i)
Else
Exit For
End If
Next

MsgBox tmp

End Sub

[vbhamed]

سلام

اينم ميشه :


Dim f$
f = "c:\test\test2\xxx.mdb"
MsgBox Mid$(f, InStrRev(f, "\") + 1)