بدست اوردن نام فایل Drop شده در درون ریچ تکست باکس

[سپهر-111]

سلام دوستان
با این دستور میشه فایلی که داخل ریچ تکست باکس Darg & Drop کردیم ، مسیر بدست بیاریم :


Private Sub RichTextBox1_OLEDragDrop(Data As RichTextLib.DataObject, _
Effect As Long, _
Button As Integer, _
Shift As Integer, _
x As Single, _
Y As Single)
MsgBox Data.Files.Item(1)
End Sub

حالا با چه دستوری میشه فقط نام اون فایل بدست اورد ؟؟(فقط به نام فایل نیاز دارم نه به کل مسیر !)

[سپهر-111]

سلام دوستان
با این دستور میشه فایلی که داخل ریچ تکست باکس Darg & Drop کردیم ، مسیر بدست بیاریم :


Private Sub RichTextBox1_OLEDragDrop(Data As RichTextLib.DataObject, _
Effect As Long, _
Button As Integer, _
Shift As Integer, _
x As Single, _
Y As Single)
MsgBox Data.Files.Item(1)
End Sub

حالا با چه دستوری میشه فقط نام اون فایل بدست اورد ؟؟(فقط به نام فایل نیاز دارم نه به کل مسیر !)


بلاخره اینجوری حلش کردم !


FileName = Mid(lsFileName, InStrRev(lsFileName, "\") + 1, Len(lsFileName) - InStrRev(lsFileName, "\") - 4)