Imports system.io
Imports system
Imports Microsoft.VisualBasic
Public Class Form1
    Inherits System.Windows.Forms.Form
 
    Dim filename1 As String
    Dim filename2 As String
    Dim filename3 As String
 
 
 
    Sub copy()
        Try
            Dim paths As String
            paths = filename1
            System.IO.File.Copy(paths, TextBox2.Text, True)
            MsgBox("File copied")
 
        Catch
            MessageBox.Show("Cannot copy the File", "Error", _
              MessageBoxButtons.OK, MessageBoxIcon.Error, _
              MessageBoxDefaultButton.Button1, _
              MessageBoxOptions.DefaultDesktopOnly)
        End Try
 
 
    End Sub
 
    'Datei auswählen
 
    Private Sub btninput_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btninput.Click
        With OpenFileDialog1
            .FilterIndex = 1
            .Filter = "all files(*.*)|*.*|Playlists(*.in)|*.in"
            .InitialDirectory = "D:"
            .Title = "Open"
            .Multiselect = True
        End With
 
        If OpenFileDialog1.ShowDialog = DialogResult.OK Then
            filename1 = OpenFileDialog1.FileName
            TextBox1.Text = OpenFileDialog1.FileName
        End If
    End Sub
    'Verzeichnis auswählen
    Private Sub btnoutput_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnoutput.Click
        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
            filename2 = FolderBrowserDialog1.SelectedPath
            filename3 = Path.GetFileName(filename1)
            Dim path2 As String = Path.GetFullPath(filename2)
            TextBox2.Text = path2 + "\" + filename3
        End If
    End Sub
    'Einfügen in Zielverzeichnis
    Private Sub btnpaste_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnpaste.Click
        copy()
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
    End Sub
End Class