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
Quelqu'un pourras m'aider s'il vous plait ?
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">
Merci d'avance !!
Partager