[ali.alfoly]

السلام عليكم ورحمة الله

ارنا اعرف كيفية جلب مسار الملف او المجلد عن طريق DragDrop
اريد جلب مسار المجلد فقط بحيث لو القى ملف لايتم جلب المسار

PHP كود :

Private Sub TextBox_Pth_DragDrop(sender As Object, e As Windows.Forms.DragEventArgs) Handles TextBox_Pth.DragDrop
        TextBox_Pth.Text = (CType(e.Data.GetData(Windows.Forms.DataFormats.FileDrop), Array).GetValue(0).ToString)
    End Sub


    Private Sub TextBox_Pth_DragEnter(sender As Object, e As Windows.Forms.DragEventArgs) Handles TextBox_Pth.DragEnter
        If (e.Data.GetDataPresent(Windows.Forms.DataFormats.FileDrop)) Then
            e.Effect = Windows.Forms.DragDropEffects.Copy
        End If
    End Sub 


[sooriaty03]

السلام عليكم ورحمة الله وبركاته

تفضل أخي الكريم

كود :

Private Sub TextBox_Pth_DragDrop(ByVal sender As Object, ByVal e As Windows.Forms.DragEventArgs) Handles TextBox_Pth.DragDrop
        TextBox_Pth.Text = (CType(e.Data.GetData(Windows.Forms.DataFormats.FileDrop), Array).GetValue(0).ToString)
    End Sub

    Private Sub TextBox_Pth_DragEnter(ByVal sender As Object, ByVal e As Windows.Forms.DragEventArgs) Handles TextBox_Pth.DragEnter
        If (e.Data.GetDataPresent(Windows.Forms.DataFormats.FileDrop)) AndAlso
           Microsoft.VisualBasic.FileIO.FileSystem.DirectoryExists(CType(e.Data.GetData(Windows.Forms.DataFormats.FileDrop), Array).GetValue(0).ToString) Then

            e.Effect = Windows.Forms.DragDropEffects.Copy
        End If
End Sub

بالتوفيق

[ali.alfoly]

ههههههه
والله كنت هعملها
بس زمان سئلت نفس السؤال فاجابنى الاخ الكريم معاذ مدنى
باجابة لا اتذكرها
فحبيت اسئل السؤال مرة اخرى ليذكرنى بالاجابة
جزاك الله خير اخى وحبيبى sooriaty03
دائما سباق بالخير