Auto copie dans windows

Commenter

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

S'inscrire maintenant

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.

Du même auteur (cs_neocoder)