Получить полный путь перетаскиваемого на форму файла - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

Подскажите как сделать следующее. 1. Всё пространство формы способно принимать файл. 2. Получить полный путь перетащенного.

Решение задачи: «Получить полный путь перетаскиваемого на форму файла»

textual
Листинг программы
Public Class Form1
 
    Private Sub Form1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragDrop
        For Each oneFile As String In e.Data.GetData(DataFormats.FileDrop) ' ну мы же тащим файл. Кстати, если потащить папку, то выдаст путь к папке. Если кучу файлов - количество сообщений будет соответствующим
            MsgBox(oneFile)
        Next oneFile
 
    End Sub
 
    Private Sub Form1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter
        If (e.Data.GetDataPresent(DataFormats.FileDrop) = True) Then
            e.Effect = DragDropEffects.Copy ' это всего лишь вид значка курсора, выбирается из списка
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.AllowDrop = True ' т.к. по-умолчанию установлено False, а нам надо на нее таскать
    End Sub
End Class

Оцени полезность:

11   голосов , оценка 4.091 из 5