Copier un répertoire en VbScript

Dim objFSO

CheminScriptActuel = Left(wscript.scriptfullname,Len(wscript.scriptfullname)-Len(wscript.scriptname)-1)
CheminRepertoireSource = InputBox("Entrez le chemin du répertoire source","Chemin du répertoire source",CheminScriptActuel)
CheminRepertoireCible = InputBox("Entrez le chemin du répertoire cible","Chemin du répertoire cible",CheminScriptActuel)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Call objFSO.CopyFolder(CheminRepertoireSource ,CheminRepertoireCible ,True)
Set objFSO = Nothing

'Exemple :
'call objFSO.CopyFolder("D:\Toto" ,"D:\Robert\Toto" ,True)