1. Accueil
  2. Forum Codes-Sources
  3. Commentaires sur une source
Sujet Précédent Sujet Suivant

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
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
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
voila une autre proposition plus courte :

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.
cs_kalif
Messages postés
362
Date d'inscription
mardi 18 décembre 2001
Statut
Membre
Dernière intervention
24 août 2012
30 avril 2005 à 09:25
il manque end sub a la fin

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
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
Je vois pas a quoi sert la variable remplace ....
serais plus simple de faire

fso.CopyFile Source, cible,True

non ?!?
en tout cas ...