Imports System.IO
 
Dim destFilePath As String =
    Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData),
                 Path.GetFileName(Application.ExecutablePath))
 
File.Copy(sourceFileName:=Application.ExecutablePath,
          destFileName:=destFilePath)

Directorio raíz del proyecto

Directorio raíz del proyecto\Bin\Debug

Image.FromFile(@"./../../imagenes/imagen_001.png");

Dim col As IEnumerable(Of Integer) = {1, 2, 3, 4, 5}
Dim minColCount As Integer = 10
Dim minRandValue As Integer = 1
Dim maxRandValue As Integer = 10
Dim rand As Random = New Random
 
If col.Count < minColCount Then
 
    Dim randCol As IEnumerable(Of Integer) =
        From value As Integer In Enumerable.Range(minRandValue, maxRandValue)
        Order By rand.Next
        Where Not col.Contains(value)
        Take (minColCount - col.Count)
 
    col = Enumerable.Concat(col, randCol.ToArray)
 
End If
 
Debug.WriteLine(String.Join("; ", col))

    ''' <summary>
    ''' Handles the DragEnter event of the Textbox1 control.
    ''' </summary>
    ''' <param name="sender">The source of the event.</param>
    ''' <param name="e">The <see cref="System.Windows.Forms.DragEventArgs"/> instance containing the event data.</param>
    Private Sub Textbox1_DragEnter(ByVal sender As Object, ByVal e As DragEventArgs) _
    Handles TextBox1.DragEnter
 
        If e.Data.GetDataPresent(DataFormats.FileDrop) AndAlso
           DirectCast(e.Data.GetData(DataFormats.FileDrop), IEnumerable(Of String)).
                      All(Function(path As String) IO.File.GetAttributes(path).HasFlag(IO.FileAttributes.Archive)) Then
 
            e.Effect = DragDropEffects.All
 
        Else
            e.Effect = DragDropEffects.None
 
        End If
 
    End Sub
 
    ''' <summary>
    ''' Handles the DragDrop event of the Textbox1 control.
    ''' </summary>
    ''' <param name="sender">The source of the event.</param>
    ''' <param name="e">The <see cref="DragEventArgs"/> instance containing the event data.</param>
    Private Sub Textbox1_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) _
    Handles TextBox1.DragDrop
 
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
 
            Dim paths As IEnumerable(Of String) =
               From path As String In DirectCast(e.Data.GetData(DataFormats.FileDrop), IEnumerable(Of String))
               Order By path Ascending
 
            Me.TextBox1.Text = String.Join("; ", paths)
 
        End If
 
    End Sub

/// <summary>
/// Handles the DragEnter event of the Textbox1 control.
/// </summary>
/// <param name="sender">The source of the event.</param>
/// <param name="e">The <see cref="System.Windows.Forms.DragEventArgs"/> instance containing the event data.</param>
private void Textbox1_DragEnter(object sender, DragEventArgs e)
{
	if (e.Data.GetDataPresent(DataFormats.FileDrop) && ((IEnumerable<string>)e.Data.GetData(DataFormats.FileDrop)).All((string path) => IO.File.GetAttributes(path).HasFlag(IO.FileAttributes.Archive))) {
 
		e.Effect = DragDropEffects.All;
 
	} else {
		e.Effect = DragDropEffects.None;
	}
}
 
/// <summary>
/// Handles the DragDrop event of the Textbox1 control.
/// </summary>
/// <param name="sender">The source of the event.</param>
/// <param name="e">The <see cref="DragEventArgs"/> instance containing the event data.</param>
private void Textbox1_DragDrop(object sender, DragEventArgs e)
{
	if (e.Data.GetDataPresent(DataFormats.FileDrop)) {
 
		IEnumerable<string> paths = from path in (IEnumerable<string>)e.Data.GetData(DataFormats.FileDrop) orderby path ascending;
		this.TextBox1.Text = string.Join("; ", paths);
	}
}
 
//=======================================================
//Service provided by Telerik (www.telerik.com)
//=======================================================