@Dobro
Je savais que j'allais mal formuler ma question.
Et pourtant, j'ai drolement réfléchi avant d'ecrire cette prose.
@Progi1984
Merci beaucoup
C'est exactement ce que je voulais.
Bravo pour avoir compris l'incomprehensible (ou presque)
C'est pour faire une double sauvegarde du code source.
Car je suis en train de faire une appli un peu compliqué qui se mord la queue, mais surtout qui s'auto-efface et s'auto met à jour et aussi est mise à jour par un autre prg etc ....
Enfin bref une usine a gaz dont j'ai beaucoup de mal à m'en sortir.
Le bleme c'est que le code qui est sauvé par pure se fait ecraser parfois par l'ancien code que j'ai sauvegardé ailleur.
Ce qui fait que ça fait 2 fois que je me retape toutes les modifs de la journée.
Alors j'ai eu l'idée de sauvegarder ailleur le code source a chaque démarrage.
Donc je colle ce petit bout de code au début de mon prog pendant tout le temps de l'élaboration, comme ça .......si ya ecrasage......ya sauvegardage
Mais le bleme c'est que je ne savais pas comment trouver le nom du code source.
Encore merci.
Code : Tout sélectionner
Global AppPath.s
AppPath = Space(#MAX_PATH); <-- Recherche du chemin de l'application
GetCurrentDirectory_(#MAX_PATH, @AppPath)
If Right(AppPath, 1) <> "\"
AppPath + "\"
EndIf
LaDate$ = FormatDate("%dd%mm%yy", Date())
LHeure$ = FormatDate("%hh%ii%ss", Date())
NomFichier$ = GetFilePart(#PB_Compiler_File)
NomFichierSeul$ = RemoveString( NomFichier$, "." + GetExtensionPart(#PB_Compiler_File))
If CopyFile(#PB_Compiler_File, "c:\" + NomFichierSeul$ + " " + Ladate$ + LHeure$) = 0
MessageRequester("" , "Le fichier code source n'a pas pu etre sauvegardé", 0)
End
EndIf
Merci à vous deux
Bonne journée
