Class Form1 Sub CopiaDirectory(ByVal fileOrigine As String, ByVal fileDestinazione As String) My.Computer.FileSystem.CopyDirectory(fileOrigine, fileDestinazione, _ FileIO.UIOption.AllDialogs, _ FileIO.UICancelOption.DoNothing) <span id="more-140"></span> End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim FolderBrowserDialog2 As New FolderBrowserDialog Dim FolderBrowserDialog1 As New FolderBrowserDialog FolderBrowserDialog1.ShowDialog() FolderBrowserDialog2.ShowDialog() CopiaDirectory(FolderBrowserDialog1.SelectedPath(), FolderBrowserDialog2.SelectedPath()) End Sub End...
↧