Comment écrire un fichier dans un autre fichier?

Question

je voudrais savoir comment on peux écrire a la suite d'un fichier ini (si possible son emplacement sera definit par l'user) a partir d'un fichier txt ???

Renfield · Answer

Salut

tu utilise la commande
OPEN TonFichierINI As #1 For Append
ce qui ouvre ton fichier en ajout , le pointeur se trouve a la fin.Et ensuite :
OPEN TonFichierTXT as #2 For Input

tu n'a plus qu'a faire :

Do 'boucle
  Line Input #2,Ligne 'lit une ligne du fichier 2 et avance a la suivante
ligne=ligne & vbcrlf 'Ajoute cette ligne si il y a pas de retour chariot
  Write #1,ligne'ecrit cette ligne dans le fichier 1
While not(EOF(2))

finit avec
close #1
close #2

BYE !                                              Renfield.

Ftpman · Answer

Mais je ne veut pas choisir de ligne, je veux copier l'ensemble du fichier

pepete0007 · Answer

justement, la boucle sert à parcourir le fichier entier pour pouvoir ajouter l'intégralité du fichier 1 au fichier 2.

cs_Pestouille · Answer

je sais kil est un peu tard peut-être mais essaye ça :

nomFichier =   "c:\monFichier.ini"
nomFichier2 = "c:\monFichier.txt"

'destruction du fichier si celui-ci existe déjà
    If Dir$(nomFichier) <> "" Then
       Kill nomFichier
    End If
    
    'écriture dans le fichier
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.OpenTextFile(nomFichier, ForWriting, True)
 
    'là tu écris tout ce que tu veux pour le fichier ini

    'copie du fichier ini en fichier txt
    fso.CopyFile nomFichier, nomFichier2, True

G testé ça marche !!! j'espère avoir pu t'aider 
@+
  Pestouille

Comment écrire un fichier dans un autre fichier?

4 réponses

Discussions similaires