برگرداندن نام فایل با 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 کن !