Как отловить событие перетаскивания файла на форму и получить информацию о нем?

@chiribas · Регистрация: 06.05.2011

Author24 — интернет-сервис помощи студентам

Как отлавить событие перетаскивания файла на форму и получить информация о нем, например путь к нему?

@gitarillo · 12.12.2011, 09:42

VB.NET

Public Class Form1
    Private Sub Form1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragDrop
        Dim file() As String = CType(e.Data.GetData(DataFormats.FileDrop), String())
        For I As Integer = 0 To file.Length - 1
            MsgBox(file(I))
        Next
    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) Then
            e.Effect = DragDropEffects.Copy
        Else
            e.Effect = DragDropEffects.None
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.AllowDrop = True
    End Sub
End Class

@chiribas · 12.12.2011, 13:09 **[ТС]**

Пасибо, все работает!

@westcoast89 · 11.01.2019, 19:20

gitarillo, Спасибо за код!

А можно получить например вместо имени файла, дату создания и время создания? Не могу понять где в коде получаем путь к файлу?

@OwenGlendower · 11.01.2019, 20:46

westcoast89, пути к файлу получаются в обработчике события Form.DragDrop. В примере gitarillo это строка №3

VB.NET

3	Dim file() As String = CType(e.Data.GetData(DataFormats.FileDrop), String())

Далее для каждого элемента массива можно создать экземпляр System.IO.FileInfo и прочитать Length и другую нужную информацию.

@westcoast89 · 11.01.2019, 22:42

OwenGlendower, Знаний не хватат

Как я понял, при перетаскивании файла мы получаем все его содержимое, при помощи этого фрагмента

VB.NET

1	CType(e.Data.GetData(DataFormats.FileDrop), String())

Потом это все присваивается в пременную(?) file.
И я не понимаю как вытащить например время создания или дату изменения в другую переменную...

@OwenGlendower · 11.01.2019, 23:10

Сообщение от westcoast89

Как я понял, при перетаскивании файла мы получаем все его содержимое, при помощи этого фрагмента

Откуда ты это понял? Я же написал что там передается путь к файлу. Точнее массив путей чтобы на форму можно было бросить несколько файлов. Установить это можно было элементарным экспериментом скопировав код gitarillo. Большого опыта для этого не нужно.

Раз у тебя такие сложности, то вот пример определения длины файла. Как получить дату файла разберись самостоятельно.

VB.NET

Private Sub Form1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragDrop
    Dim files() As String = CType(e.Data.GetData(DataFormats.FileDrop), String())
    For Each filePath In files
        Dim info As New FileInfo(filePath)
        Dim fileLength As Long = info.Length
        ' ...
    Next
End Sub

@westcoast89 · 11.01.2019, 23:25

Сообщение от OwenGlendower

Откуда ты это понял? Я же написал что там передается путь к файлу. Точнее массив путей чтобы на форму можно было бросить несколько файлов. Установить это можно было элементарным экспериментом скопировав код gitarillo. Большого опыта для этого не нужно.

Конечно я так и сделал, вставил код и проверил. Просто видимо не правильно выразился(

Сообщение от OwenGlendower

Раз у тебя такие сложности, то вот пример определения длины файла. Как получить дату файла разберись самостоятельно.

VB.NET

Public Class Form1
    Private Sub Form1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragDrop
        Dim files() As String = CType(e.Data.GetData(DataFormats.FileDrop), String())
        For Each filePath In files
            Dim info As New System.IO.FileInfo(filePath)
            Dim fileLength As Long = info.Length
            Dim fileCreat As Date = info.CreationTime
            MsgBox(fileCreat)
        Next
    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) Then
            e.Effect = DragDropEffects.Copy
        Else
            e.Effect = DragDropEffects.None
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.AllowDrop = True
    End Sub
End Class

Вот вроде получилось. Спасибо огромное!

@chiribas 12 / 12 / 0 Регистрация: 06.05.2011 Сообщений: 250
		1
	Как отловить событие перетаскивания файла на форму и получить информацию о нем? 11.12.2011, 21:08. Показов 4490. Ответов 7 Метки нет (Все метки) Как отлавить событие перетаскивания файла на форму и получить информация о нем, например путь к нему? 0

@chiribas 12 / 12 / 0 Регистрация: 06.05.2011 Сообщений: 250
	12.12.2011, 13:09 [ТС]	3
	Пасибо, все работает! 0

@westcoast89 1 / 1 / 0 Регистрация: 21.11.2018 Сообщений: 82
	11.01.2019, 19:20	4
	gitarillo, Спасибо за код! А можно получить например вместо имени файла, дату создания и время создания? Не могу понять где в коде получаем путь к файлу? 0

	11.01.2019, 23:25

Как отловить событие перетаскивания файла на форму и получить информацию о нем?

Решение