Script copier coller dans hta

Version imprimable

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:

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:

<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 !!

07/08/2013, 12h00
hackoofr

:salut:
Postez votre HTA complet et précisez le N° de la ligne de l'erreur et sa description.
:merci:

Heu déjà j'ai noté quelques erreurs dans ton code ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub SauvIE
 
Dim objFSO, WshShell, SauvRep, sUserProfile, Favoris
 
Set WshShell=CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
sUserProfile = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
 
SauvRep = "p:\Favoris"
Favoris = sUserProfile & "\Favoris"
 
If Not objFSO.FolderExists(SauvRep) Then Set objFolder = objFSO.CreateFolder(SauvRep)
objFSO.CopyFolder Favoris , SauvRep, True
 
End Sub

J'espère que ça t'aidera.
++

07/08/2013, 13h33
sovan

OHH YESSSS :mouarf:

Merci Monsieur !!!

Tes trop fort !!!

Merci merci :ccool: