Nom du fichier ".pb" source [Résolu]

[Kwai chang caine]

Bonjour à tous.

Je n'ai pas su poser la question au moteur de recherche.

Quelqu'un connaitrait il le moyen de récupérer le nom du fichier code source de l'application que l'on lance.

Exemple :

c:\Codesource.pb

Merci et bonne journée

[Backup]

Bonjour à tous.

Je n'ai pas su poser la question au moteur de recherche.

Quelqu'un connaîtrait il le moyen de récupérer le nom du fichier code source de l'application que l'on lance.

Exemple :

c:\Codesource.pb

Merci et bonne journée

j'ai pas tout compris la

le fichier source est sauvé la ou TU l'a Sauvé !!
sinon il doit être a coté de l'éditeur
a savoir que le fichier compilé est géneré aussi dans le dossier "Compiler"

[Progi1984]

Essaie

Code : Tout sélectionner

Debug #PB_Compiler_File

[Kwai chang caine]

@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

[Dr. Dri]

faut savoir qu'une fois que tu crées ton exécutable final (pas celui que tu lances via l'IDE) tu n'auras plus aucune trace du code source qui a servi à la création de ton programme.

Dri

[Kwai chang caine]

Merci Dri
Alors encore une raison de plus de double sauvegarder son code si durement gagné à la sueur de ses doigts