Discussion :

[sovan]

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

[hackoofr]

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

[Cachlab]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.
++

[sovan]

OHH YESSSS

Merci Monsieur !!!

Tes trop fort !!!

Merci merci