|
|
Titre: Copier un répertoire.
Description:
Exemple pour copier un dossier se trouvant dans "01 ORGINE" dans "02 DESTINATION".
Important: il faut ajouter la référence: "Microsoft Scripting RunTime" dans le projet. Voir menu "Projet" "Référence" cocher la case "Microsoft Scripting RunTime"
Le code:
Option Explicit
Dim LS$, Reponse%, Mess$
Public fso As New FileSystemObject
Dim DossierORG$, DossierDES$
Private Sub CmdCopier_Click()
On Error GoTo Erreur:
DossierORG = App.Path & "\" & "01 ORGINE\Dossier à copier"
DossierDES = App.Path & "\" & "02 DESTINATION" & "\" & Format(Date, "yyyy") & "." & Format(Date, "mm") & "." & Format(Date, "dd") & " " & Format(Time, "hh.mm.ss") & "Dossier copié"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder DossierORG, DossierDES
GoTo Fin: '----------------------------------------------
Erreur:
LblInfo.Caption = "Erreur de copie."
If Err = 76 Then
Mess = "Le répertoire à copier n'existe pas"
Reponse = MsgBox(Mess, 64, "Copie du répertoire")
Reponse = MsgBox("Erreur " & Err & LS & Error, 64, "Copie du répertoire")
Else 'Autre éventuelle erreur
Reponse = MsgBox("Erreur " & Err & LS & Error, 64, "Copie du répertoire")
End If
'--------------------------------------------------------
Fin:
End Sub |