[Résolu]Problème sauvegarde fichier

wolfjeremy · Message par **wolfjeremy** » dim. 12/mars/2006 18:50

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.

Guimauve · Message par **Guimauve** » dim. 12/mars/2006 19:32

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")

wolfjeremy · Message par **wolfjeremy** » mar. 14/mars/2006 13:07

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

wolfjeremy · Message par **wolfjeremy** » mar. 14/mars/2006 13:27

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

AWEAR · Message par **AWEAR** » mar. 14/mars/2006 13:27

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.

wolfjeremy · Message par **wolfjeremy** » mar. 14/mars/2006 13:28

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

Good07 · Message par **Good07** » mar. 14/mars/2006 16:43

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.

wolfjeremy · Message par **wolfjeremy** » mar. 14/mars/2006 16:55

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

Good07 · Message par **Good07** » mar. 14/mars/2006 17:02

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

wolfjeremy · Message par **wolfjeremy** » mar. 14/mars/2006 17:09

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

Guimauve · Message par **Guimauve** » mer. 15/mars/2006 3:15

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

wolfjeremy · Message par **wolfjeremy** » mer. 15/mars/2006 13:02

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