Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
121 internautes nous ont dit merci ce mois-ci
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
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.