سپهر-111
جمعه 27 بهمن 1391, 12:18 عصر
سلام دوستان
با این دستور میشه فایلی که داخل ریچ تکست باکس 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
حالا با چه دستوری میشه فقط نام اون فایل بدست اورد ؟؟(فقط به نام فایل نیاز دارم نه به کل مسیر !)
با این دستور میشه فایلی که داخل ریچ تکست باکس 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
حالا با چه دستوری میشه فقط نام اون فایل بدست اورد ؟؟(فقط به نام فایل نیاز دارم نه به کل مسیر !)