1 2 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