برگرداندن نام فایل با drag an drop

چطوری میشه یه فایل رو (حالا با هر نام و پسوندی) بگیریم و بندازیم رو فرم و بعدش نام فایل رو با پسوند به ما بده؟

یه لیست باکس روی فرمت بذار !

 

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

  List1.Clear

 Dim i As Integer

  For i = 1 To Data.Files.Count

    List1.AddItem Data.Files.Item(i)

  Next

End Sub

آقا من یه مدت دنبال شبیه سازی برنامه Turbo Launch بودم که موفق نشدم

حالا با این کدا میتونم اینکارو بکنم ........ تشکر

من این کد رو گذاشتم ولی وقتی فایل رو میگیرم و رو فرم میندازم هیچ چیزی نمایش داده نمیشه.

چند تا عکس رو درگ کن روی فرم آدرسشون توی لیست باکس نمایش داده میشه بعد روی هر کدوم از آدرس ها کلیک کن !

این دیگه چه مشکلیه. من فرم شما رو دانلود و اجرا کردم.به خوبی کار می کنه.ولی خودم میسازم کار نمیکنه.حتی کدها رو توش کپی کردم ولی کار نمیکنه.میگی نه خودت نگاه کن.مشکل چیه؟

http://rezscot.persiangig.com/0.rar

یا این کدو اضافه کن

 

Private Sub Form_Initialize()

Me.OLEDropMode = vbOLEDropManual

End Sub

یا از Property Window پراپرتی OLEDropMode رو به 1 - Manual تنظیم کن !

حالا نام فایل رو چطوری از این آدرس استخراج کنم؟مسیر کامل رو نمی خوام فقط نام فایل با پسوند.
file.ext

نقل قول:

---

نوشته شده توسط alcatra

حالا نام فایل رو چطوری از این آدرس استخراج کنم؟مسیر کامل رو نمی خوام فقط نام فایل با پسوند.
file.ext

---

البته هر کس از یه کدی استفاده میکنه که سادست !
مثلا با این میشه نام فایل با پسوند رو در آورد !

 

Dim FileName As String

   FileName = Mid(PathName, InStrRev(PathName, "\") + 1)

'Example

Dim FileName As String

   FileName = Mid("F:\User\VB\Examples\Test.exe", InStrRev("F:\User\VB\Examples\Test.exe", "\") + 1)

 

اگرم فقط نام فایل رو بخوای کارکتر دات "." رو از آخر سرچ کن از اون کارکتر به بعد رو Trim کن !