پيدا كردن مسير فايل با درگ كردن روي فرم ؟؟

سلام دوستان
يه سوال ديگه هم داشتم
چه طور ميتونم با درگ كردن روي فرم فقط نام فايل رو داشته باشم
وقتي با روشي كه دوست عزيزمون معرفي كردن درگ ميكنيم كلا مسير فايل هم باهاش مياد
مثلا من فرض كنيد تو اين مسير فايل دارم

کد:

---

c:\picrures\navid.jpg

---

ميخام وقتي روي اون فرم اون عكس رو درگ كنم فقط به ليست نام عكس اضافه بشه
كه بشه فقط

کد:

---

navid.jpg

---

البته اگه پسوندش هم نياد خيلي خوب ميشه و فقط بنويسه

کد:

---

navid

---

ممنون ميشم برام جواب بدين
:40::40:

سلام.
کدت رو به این صورت تغییر بده.

کد:

---

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
    For i = 1 To Data.Files.Count
        Text1.Text = Text1.Text & vbCrLf & Dir(Data.Files.Item(i))
        DoEvents
    Next
End Sub

---

پسوند رو هم با left میشه حذف کرد.

سلام
من میخواهم درایوی که سیستم نصب شده بدست اورم
و در یک متغییر ذخیره و آن استفاده کنم آن چگونه است

نقل قول:

---

نوشته شده توسط gharyaghdi [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام
من میخواهم درایوی که سیستم نصب شده بدست اورم
و در یک متغییر ذخیره و آن استفاده کنم آن چگونه است

---

سلام

از این کد استفاده کن
اول یه Command Button روی فرم بذار
برای ذخیره تو متغییر هم میتونی مقادیری که Print میشه رو برابر متغییری که تعریف میکنی بذاری

کد:

---

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Sub Command1_Click()
    Dim sys As String, rt As Long
        sys = Space(255)
        rt = GetSystemDirectory(sys, 255)
        sys = Left$(sys, rt)
        Print "Windows System directory: " + sys
    Print Left(sys, 3)
End Sub

---