[codepoet]

This example moves any files from desktop to a textbox. The example needs a reference to Shell32.dll

Declarations:

Code

Imports Shell32
Imports System.IO.Path

Code:

Code

Public Class Form1

    Private Structure FileFormat
        Public TypeFormat As String
    End Structure

    Private ff As New FileFormat

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
            Handles MyBase.Load
        With Me
            .CenterToScreen()
            .TextBox1.AllowDrop = True
            .ff.TypeFormat = "FileNameW"
        End With
    End Sub

    Private Function DragAndDrop_MoveLink(ByVal Filename As String) As String
        Const Filetype As String = ".lnk"
        If String.Compare(GetExtension(Filename), Filetype, True) <> 0 Then Return Filename
        Dim shell As Shell32.Shell = New Shell32.Shell
        Dim DirectoryName As Shell32.Folder = shell.NameSpace(GetDirectoryName(Filename))
        Dim Item As Shell32.FolderItem = DirectoryName.Items().Item(GetFileName(Filename))
        Dim LinkObject As Shell32.ShellLinkObject = CType(Item.GetLink, Shell32.ShellLinkObject)
        Return LinkObject.Path
    End Function

    Private Sub TextBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) _
            Handles TextBox1.DragDrop
        If ff.TypeFormat = Nothing Then
            Throw New Exception("Error...")
        Else
            If e.Data.GetDataPresent(ff.TypeFormat, False) Then
                Dim Filename As System.Array = CType(e.Data.GetData(ff.TypeFormat, False), System.Array)
                TextBox1.Text = DragAndDrop_MoveLink(CType(Filename.GetValue(0), String))
            End If
        End If
    End Sub

    Private Sub TextBox1_DragOver(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) _
            Handles TextBox1.DragOver
        If ff.TypeFormat = Nothing Then
            Throw New Exception("Error...")
        Else
            If e.Data.GetDataPresent(ff.TypeFormat, False) Then
                e.Effect = DragDropEffects.Copy
            Else
                e.Effect = DragDropEffects.None
            End If
        End If
    End Sub

End Class

orignaly written by:Heinz Prelle

If You Like this tutorial,
please check out my other tutorials by clicking ==> here

[AcidCat]

Thanks for the share mate ^_^
I think i`ll find a good use for it :3

[codepoet]

no prblem mate..im glad you like it...

[๖ۣۜBlueAce™]

wow.. ws in need of that..
thnx.. 🤝

[codepoet]

wow.. ws in need of that..
thnx.. 🤝

yeah....lol appology accepted!! 😏

[iKorkSkalle]

Thank you!
Will credit you and Heinz Prelle if i use it.

[Mark Webber's B1tch]

I've seen a couple tutorials from you now.. Good job mate.

And last: Thanks for sharing. ✌

[codepoet]

thank you sir....

2short

[Learn4Life]

Thank you for the share, i like this source.

[codepoet]

Thank you!
Will credit you and Heinz Prelle if i use it.

Thank you....


please check out my other tuts here

[TheBlackMarket]

Awesome Mate, good work. Great Share.

Thanks.

[codepoet]

Awesome Mate, good work. Great Share.

Thanks.

no problem

If You Like this tutorial,
please check out my other tutorials by clicking ==> here

[★Cooldude★]

Thanks for this, it will come in very useful. (I hope.)

[codepoet]

Thanks for this, it will come in very useful. (I hope.)

im glad i helped...(i hope) 😏

[0dayleet]

Thanks for sharing nice code :)