[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

بالتوفيق