PureBasic

Salut,

J'esseye d'enregistrer le fichier Date$+Time$+" Historique.txt" dans le repertoire "historique", le problème est que sa ne marche pas, il continue a enregistrer a la racine du programme, voila le code :

Date$ = FormatDate("%dd-%mm-%yyyy", Date())
Time$ = FormatDate(" %hh-%ii-%ss", Date())

CreateFile(0, chemin$+Date$+Time$+" Historique.txt")
WriteString(GetGadgetText(#gadget_string_list))
CloseFile(0)

Si je remplace chemin$ par "C:\historique\", par exemple, sa marche... mais si je met le chemin dans le fichier prefs et bien sa ne marche pas... (je recupere le chemin dans le fichier prefs et je le met dans chemin$)
j'ai fait un debug et j'ai afficher le chemin dedan et il est bon pourtant...

pouvez vous m'aider ?

Merci d'avance pour votre aide.

J'ai testé le code suivant et ça semble faire ce que tu veux.

A+
Guimauve

Code : Tout sélectionner

; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; Nom du projet : Sauvegarde de fichier
; Fichier : Source principal
; Version : 0.0.0
; Programmation = À compléter
; Programmé par : Guimauve
; Date : 12-03-2006
; Mise à jour : 12-03-2006
; Codé avec PureBasic V4.00
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Procedure SaveHistoricFile(Path.s)
   
   Date$ = FormatDate("%dd-%mm-%yyyy", Date())
   Time$ = FormatDate(" %hh-%ii-%ss", Date())
   
   ; si l'adresse ne finit pas par "\", l'on ajoute
   
   If Right(Path, 1) <> "\" 
      
      Path + "\" 
      
   EndIf
   
   If FileSize(Path) = -1
      CreateDirectory(Path)
   EndIf 
   
   CreateFile(0, Path+Date$+Time$+" Historique.txt")
   WriteString(0, "Le texte à écrire. GetGadgetText(#gadget_string_list) "+ Date$)
   ; WriteString(0, GetGadgetText(#gadget_string_list))
   CloseFile(0)
   
EndProcedure 

SaveHistoricFile("Historic")

Salut,

LOL... heu en faite tu voi le code que tu vien de me filer ces exactement se que j'ai fai dans mon programme a part qeu tu a changer chemin$ par path...

Autrement dit sa marche toujour pas

si quelqu'un trouve une solution, et qu'il veut bien m'aider, qu'il poste

C'est bon c'est résolu ! merci

Il faudrait peut-être que tu affiches ton code pour qu'on puisse t'aider un peu plus, parce que là c'est pas facile à comprendre ton problème.

C'est bon c'est résolu lol merci

Bonjour Wolfjeremy.

Ce qui serai plus fairplay dans ton histoire serai de montrer comment tu as résolu ton problème. Ne serai-ce que pour remercier ceux qui ont posté une réponse et cherché à résoudre ton problème.
En plus ça peux aider ceux qui débute et éviter ainsi que tous le monde ne réinvente la roue...
Merci pour eux.

Oui, en faite j'avais juste oublier de mettre "chemin$" dans ma procedure

Pas de problèmes, c'est plus cool .

Ouai c'est vrai fau que je pense a mettre la soluce a chaque fois, sa peut aider d'autres personnes

wolfjeremy a écrit :Salut,

LOL... heu en faite tu voi le code que tu vien de me filer ces exactement se que j'ai fai dans mon programme a part qeu tu a changer chemin$ par path...

Autrement dit sa marche toujour pas si quelqu'un trouve une solution, et qu'il veut bien m'aider, qu'il poste

Ben avec les 5 lignes de code que tu donnes, on peut pas faire grand chose. J'ai dû jouer aux devinettes pour savoir quoi faire avec le code.

Ce que je fais de plus avec dans mon code que dans celui que tu as donnée c'est :

Code : Tout sélectionner

   ; si l'adresse ne finit pas par "", l'on ajoute
   
   If Right(Path, 1) <> ""
     
      Path + ""
     
   EndIf
   
   ; Si le répertoire n'existe pas, créer le répertoire

   If FileSize(Path) = -1

      CreateDirectory(Path)

   EndIf

Une suggestion pour les prochaines fois, donne plus de détails ou une procédure complète qui ne marche pas bien avec le contexte d'utilisation.

A+
Guimauve

La verification du symbole "\" étai faite aussi chez moi mais dans une autre procedure lol merci pour la verification du dossier sa j'y avai pas penser au depard

Merci pour votre aide

PureBasic

[Résolu]Problème sauvegarde fichier

[Résolu]Problème sauvegarde fichier