Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("wscript.shell")
completed = True
appData = objShell.ExpandenvironmentStrings("%APPDATA%")
SourceDir = appData & "\Mozilla"
DestDir = "D:\Sauvegardes"
If objFSO.FolderExists(SourceDir) Then
If objFSO.FolderExists(DestDir) Then
objFSO.CopyFolder SourceDir , DestDir , True
Else
WScript.Echo "Le répertoire " & DestDir & " n'existe pas !"
completed = False
End If
Else
WScript.Echo "Le répertoire " & SourceDir & " n'existe pas !"
completed = False
End If
If completed = False Then
WScript.Echo "Copie en erreur !"
Else
WScript.Echo "Copie achevée !"
End If
Le dev ne se réduit pas à du simple copier/coller de codes sources mais à une incommensurable phase d'apprentissage d'un domaine en perpétuelle évolution ! http://3dotdevcoder.blogspot.fr/
egval a écrit :je suis content d'avoir lancé un sujet qui amène des réflexions.
Que fait le programme s'il trouve déjà un dossier du même nom dans le répertoire? il l'écrase?
Comme évoqué par PaleRider et Soulfate ça écrase le contenu .... après je n'ai pas testé ça fait longtemps que je ne code plus en vbs.... mais d'après le vieil adage : c'est comme la bicyclette
Le dev ne se réduit pas à du simple copier/coller de codes sources mais à une incommensurable phase d'apprentissage d'un domaine en perpétuelle évolution ! http://3dotdevcoder.blogspot.fr/