Bonjour a tous

J'ai un petit souci avec mon fichier HTA

J'ai crée un bouton pour copier un dossier favoris sur un dossier réseau

mais j'ai toujours des code d'erreurs


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
	Sub SauvIE
		Dim objWshShell
			Set objFSO = CreateObject("Scripting.FileSystemObject")
			Set objFolder = objFSO.CreateFolder("p:\Favoris\") 'j'ai réussi à copier  mais quand j'ai fait une deuxieme fois ça bug'
 
			objFSO.CopyFolder "%USERPROFILE%\Favoris" , "p:\Favoris\" , OverWriteFiles ' je n'arrive pas à lancer la copie '
 
	End Sub

En suite sur le fichier hta j'ai crée un bouton

Code : Sélectionner tout - Visualiser dans une fenêtre à part
<input id=runbutton type="button" value="Sauvegarder Favoris Internet explorer" onClick="SauvIE()" STYLE="font:10 pt arial">
Quelqu'un pourras m'aider s'il vous plait ?

Merci d'avance !!