choisir le chemin d'acces pour enregistrer un fichier cree avec vbRésolu

Question

bonjour a tous,

voila j'utilise les ligne de code suivante:

Dim Buffer As String 
  Dim fn As Long 
   
  fn = Freefile 
  ' Ouverture du fichier source 
  Open "TonFichier.txt" For Input As #fn 
  ' Lecture du contenu du fichier et rangement dans le buffer 
  Buffer = Input(LOF(fn), #fn) 
  Close #fn 
  ' Remplacement des occurences du mot cherché 
  Buffer = Replace(Buffer, "_XXXXXX", "111_XXXXXX") 
  ' Ouverture du nouveau fichier 
  Open "NouveauFichier.txt" For Output As #fn 
  ' Ecriture du buffer modifié dans ce fichier 
  Print #fn, Buffer 
  Close #fn 
  ' Si besoin, suppression du fichier source 
  Kill "TonFichier.txt" 

ces lignes de codes fonctionne tres bien pour l'utilisation que je fais mis a part un petit hic, le fameux "nouveaufichier" créé, se créé aleatoirement dans mes document ou dans le dossier ouse trouve mon programme.Ainsi une fois sur deux ma fonction copyfile echou car il ne trouve pas le fichier.Je voulais donc savoir si il y avait une solution pour directement specifier le chemin ou sera créé le fichhier "NouveauFichier.txt"

cs_Exploreur · Accepted Answer

Salut,

Définit alors le chemin complet et fais un test de présence ou pas : 

Open "C:\MonRepertoire\NouveauFichier.txt" For Output As #fn 

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_jojac · Answer

Ah ok tout simplement !!!! merci beaucoup
Sinon tu me parle d'un test!?!
ce test me permetterai de savoir si le fichier a bien ete cree? 


si oui commen faut t'il faire?

cs_Exploreur · Answer

Re,

Je pense que dans ton cas faire le test de présence du fichier n'est pas nécessaire, puisque tu écrases à chaque fois le fichier que tu viens de créer avec l'instruction Output.

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_jojac · Answer

ok merci beaucoup!!!!

Choisir le chemin d'acces pour enregistrer un fichier cree avec vb

4 réponses

Votre réponse

Discussions similaires