گرفتن آدرس فایل با Drag & Drop روی Textbox

[AntiViruse]

سوال من از دوستان این است که چگونه میشود مانند NotePad فایلی را از بیرون Form کشیده و بر روی یک Textbox بر روی فرم رها کرده (Drag & Drop) و آدرس فایل در یک متغیر ذخیره شود.:متفکر:

[parselearn]

خاصيت OLEDropMode شي مورد نظر رو 1 كنيد

اين كد رو در رويداد OLEDragDrop قرار دهيد


For XY = 1 To Data.Files.Count
msgbox Trim(Data.Files(XY))
Next XY


فايل اول


MsgBox Trim(Data.Files(1))