Public Sub CopyDir(ByVal Source As String, ByVal Target As String) ' Dim srcDir As New IO.DirectoryInfo(Source) If Not IO.Directory.Exists(Target) Then IO.Directory.CreateDirectory(Target) End If Dim files() As IO.FileInfo = srcDir.GetFiles() For Each file As IO.FileInfo In files IO.File.Copy(file.FullName, Target & "" & file.Name) Next ' End Sub
Public Class Form1 Dim mode As Integer Dim base As Boolean Dim disk As String Dim fold As String Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked Then base = True 'Il existe une base de données sur le PC que je propose de sauvegarder ou non Else base = False End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click fold = Now.Day & "-" & Now.Month & "-" & Now.Year & " " & Now.Hour & "." & Now.Minute If MsgBox("Le disque de destination est-il branché?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then If mode = 1 Then disk = InputBox("Quelle est la lettre du disque 'DISQUE EXTE'?") Label1.Text = "COPIE EN COURS ..." Label1.ForeColor = Color.LimeGreen Try MkDir(disk & ":\Sauvegardes" & fold) Catch ex As Exception MkDir(disk & ":\Sauvegardes") MkDir(disk & ":\Sauvegardes" & fold) End Try System.IO.File.Copy("C:\Documents and Settings\Alain\Bureau", disk & ":\Sauvegardes" & fold & "\Bureau") 'CEST CETTE LIGNE QUI NE PASSE PAS System.IO.File.Copy("C:\Documents and Settings\Alain\Bureau", disk & ":\Sauvegardes" & fold & "\Mes documents") If base Then Try System.IO.File.Copy("C:\Program files\ALC Gestion\BDD.mdb", disk.ToString & ":\sauvegardes base\BDD_" & Now.Day & "-" & Now.Month & "-" & Now.Year & "--" & Now.Hour & "." & Now.Minute & ".mdb") Catch ex As Exception MkDir(disk & ":\sauvegardes base") System.IO.File.Copy("C:\Program files\ALC Gestion\BDD.mdb", disk.ToString & ":\sauvegardes base\BDD_" & Now.Day & "-" & Now.Month & "-" & Now.Year & "--" & Now.Hour & "." & Now.Minute & ".mdb") End Try End If Else disk = InputBox("Quelle est la lettre du disque 'SAUVEGARDE EEEPC' ?") Label1.Text = "COPIE EN COURS ..." Label1.ForeColor = Color.LimeGreen MkDir(disk & ":" & fold) System.IO.File.Copy("C:\Documents and Settings\Alain\Bureau", disk & ":" & fold & "\Bureau") System.IO.File.Copy("C:\Documents and Settings\Alain\Bureau", disk & ":" & fold & "\Mes documents") If base Then System.IO.File.Copy("C:\Program files\ALC Gestion\BDD.mdb", disk.ToString & ":\sauvegardes base\BDD_" & Now.Day & "-" & Now.Month & "-" & Now.Year & "--" & Now.Hour & "." & Now.Minute & ".mdb") End If End If Else MsgBox("Assurez vous que le disque de destination est branché puis appuyez sur 'LANCER LA SAUVEGARDE'") End If Label1.Text = "COPIE TERMINEE" Label1.ForeColor = Color.RoyalBlue End Sub Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged If RadioButton4.Checked Then mode = 1 'Le futur utilisateur possède 2 disques durs externes, qui n'ont pas la même organisation de rangement, je demande donc sur lequel va être sauvegardé les fichiers Else mode = 2 End If End Sub End Class
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question