| 12
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 
 | Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim dialog As New FolderBrowserDialog
        If (dialog.ShowDialog = Windows.Forms.DialogResult.OK) Then
            TextBox1.Text = IO.Path.GetFileName(dialog.SelectedPath)
        End If
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim dossier As String = My.Computer.FileSystem.SpecialDirectories.Desktop & "\" & TextBox2.Text
        If Directory.Exists(dossier) = False Then
            Directory.CreateDirectory(dossier)
        End If
        My.Computer.FileSystem.CopyDirectory(TextBox1.Text, TextBox2.Text)
    End Sub | 
Partager