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

[alcatra]

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

[__siavash__]

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

 

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

[DoctorJay]

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

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

[alcatra]

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

[__siavash__]

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

[alcatra]

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

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

[__siavash__]

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

 

Private Sub Form_Initialize()

Me.OLEDropMode = vbOLEDropManual

End Sub

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

[alcatra]

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

[__siavash__]

حالا نام فایل رو چطوری از این آدرس استخراج کنم؟مسیر کامل رو نمی خوام فقط نام فایل با پسوند.
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 کن !