Dim fso, f, ChemiSource,CheminDest
CheminSource="k:"
CheminDest="e:"
Titre="Lycée Jean Rostand - Villepinte"
Message="Vous êtes sur le point de restaurer votre base BCDI."&chr(10)&"Voulez-vous continuer ?"
set fso=CreateObject("Scripting.FileSystemObject")
Msg=msgBox(Message,49,Titre)
If (Msg=1) Then
	
	fd=fso.DeleteFolder(CheminSource&"\*")
	fd=fso.CopyFolder(CheminDest&"\*",CheminSource)
	Msg=MsgBox("Restauration terminée",0,Titre)
End If