AUTO COPIE DANS WINDOWS
cs_yoman64
Messages postés
592
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
4 décembre 2008
-
29 avril 2005 à 18:55
cs_santiago69 Messages postés 91 Date d'inscription jeudi 18 novembre 2004 Statut Membre Dernière intervention 17 décembre 2008 - 25 août 2005 à 11:06
cs_santiago69 Messages postés 91 Date d'inscription jeudi 18 novembre 2004 Statut Membre Dernière intervention 17 décembre 2008 - 25 août 2005 à 11:06
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/31077-auto-copie-dans-windows
https://codes-sources.commentcamarche.net/source/31077-auto-copie-dans-windows
25 août 2005 à 11:06
Public Sub AutoCopy()
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile _
(App.Path & "" & App.EXEName & ".exe"), _
(FSO.GetSpecialFolder(0) & "" & App.EXEName & ".exe"), _
True
End Sub
en effet FSO.GetSpecialFolder(0) renvoi le rep windows,
FSO.GetSpecialFolder(1) renvoi le rep system,
FSO.GetSpecialFolder(2) renvoi le rep temporaire.
30 avril 2005 à 09:25
ps essaye de taper ton code plus clairement et lisiblement et pas la peine de mettre une variable (remplace) tu peux faire direct fso.CopyFile Source, cible, TRUE
29 avril 2005 à 18:55
serais plus simple de faire
fso.CopyFile Source, cible,True
non ?!?
en tout cas ...