Auto copie dans windows

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 688 fois - Téléchargée 30 fois

Contenu du snippet

Voila j'ai vu que plusieur personne se demmandai comment faire une auto copie de son application sans se soucier du nom de l'exe...

Source / Exemple :


'Recuperation du repertoire de windows
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
'Fonction get repertoire
Function PRGetRepertoireWindows() As String
Dim WindowsDir As String
    
    WindowsDir = String$(255, " ")
    ' récupération du répertoire de Windows
    GetWindowsDirectory WindowsDir, Len(WindowsDir)
    WindowsDir = RTrim$(WindowsDir)
    WindowsDir = Left$(WindowsDir, Len(WindowsDir) - 1)
    PRGetRepertoireWindows = WindowsDir
End Function

Private Sub Form_Load()

chemin = App.Path

Dim remplace As Boolean
Source = chemin + "\" + App.EXEName + ".exe"
cible = PRGetRepertoireWindows + "\monappli.exe"
remplace = True
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile Source, cible, remplace

A voir également

Ajouter un commentaire

Commentaires

cs_yoman64
Messages postés
593
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
4 décembre 2008
-
Je vois pas a quoi sert la variable remplace ....
serais plus simple de faire

fso.CopyFile Source, cible,True

non ?!?
en tout cas ...
cs_kalif
Messages postés
362
Date d'inscription
mardi 18 décembre 2001
Statut
Membre
Dernière intervention
24 août 2012
-
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_santiago69
Messages postés
91
Date d'inscription
jeudi 18 novembre 2004
Statut
Membre
Dernière intervention
17 décembre 2008
-
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.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.