Discussion :

[TreizeSegments]

Bonjour,

j'ai un exe qui vérifie sur un ftp s'il y a des mises à jour dispo. Si c'est le cas, il récupère les fichiers dans un rép.temporaire puis les copie dans le répertoire de l'application.
Le hic, c'est que si l'exe est à mettre à jour, cela ne fonctionne pas car un exe ne peut se copier lui-même.

Avez-vous une astuce pour contourner ce problème de manière simplet ?

[DarkVader]

Ah ces p'tits jeunes qui ont oublié le fonctionnement de Windows.
Gênant pour un programmeur

- tu copies ton fichier sous un nom modifié (monAppli.ex_ par exemple)
- tu ajoutes une entrée dans la clé rename de wininit.ini du type
"nouveau nom"="ancien nom" ou tu crées le fichier s'il n'existe pas
- puis tu envoies un message du style,
«Vous devez redémarrer afin que l'actualisation soit effective ...»

Au redémarrage, la copie de ton fichier viendra écraser l'ancienne version
et le wininit.ini sera renommé en wininit.bak.

[TreizeSegments]

sympa !
Je suppose que le wininit.ini est à placer dans le répertoire windows ?

Et sans reboot, y a t'il des amateurs ?

[DarkVader]

après relecture, il est utile de préciser que wininit n'est utilisable qu'avec les versions 95 à ME
pour NT et XP voir plutôt du coté de movefileex

Code :

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

Declare Function MoveFileEx Lib "kernel32" Alias "MoveFileExA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal dwFlags As Long) As Long

avec MOVEFILE_DELAY_UNTIL_REBOOT (&H4) comme flag

[méphistopheles]

le batch marche tres bien sans reboot (escalon, sale copieur je l'avais dis avant)

pour la peine, voici le code du programme batch qu'il te faut.

Code :

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

1
2
3
4
5
6
7
8
echo f | xcopy c:\monprog.exe c:\monprog2.exe > nul
 
 
DEL c:\monprog.exe
 
 
REN c:\monprog2.exe  monprog.exe
DEL c:\change.bat

Code :

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

1
2
3
4
5
6
7
Public Function ecriretxt(chem As String, tex As String)
Dim transcript As String
Open chem For Output Access Write As #1 
transcript = tex
Print #1, transcript 
Close #1
End Function

et tu apelle comme ça:

Code :

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

1
2
call ecriretxt(c:\change.bat, le_texte_que_je_t'ai_mis_au_dessus ) 
'pour le texte, n'oublie pas les vbcrlf pour revenir à la ligne

c'est complet
salut