copier contenu fichiers txt dans un nouveau fichier txtRésolu

Question

Slt,
   Je souhaite créer un vbs qui me permet de : 
         - copié le contenu de fichier texte et de créer ensuite un nouveau fichier texte qui contiendra ttes les données des fichiers precedent copié 
je m'explique Ex :
      fichier a copier =>toto1.txt, toto2.txt,toto3.txt  enregistré sous c:	est\
      Fichier qui contient les données de toto 1 toto2 et toto3 =>nouveaufichier.txt sous c:	est\ par exemple
je souhaite que l'integralité des fichiers texte soit copié...
Je suis debutant, je vous remercie par avance de votre aide.
Merci de me donné une trame a suivre, av le plus de détail possible car je galere pas mal !!!! 
Merci 
@+++

cs_JMO · Accepted Answer

Bonjour à tous

Exemple en vbs:

Option ExplicitConst ForReading 1, ForWriting 2, ForAppending=8
Dim fic(3), fichier, FicOut
fichier = "test1.txt"
fic(0) = "D:\TEST\fichier1.txt"
fic(1) = "D:\TEST\fichier2.txt"
fic(2) = "D:\TEST\fichier3.txt"
FicOut = "D:\TEST	est_resultat.txt"



fichier = Array(fic(0), fic(1), fic(2))



Dim Fso, i, ObjTextStream
Set Fso = CreateObject("Scripting.FileSystemObject")



'Création et ouverture du fichier résultat (.txt)
Set ObjTextStream = Fso.OpenTextFile(FicOut, 2, True)



'Lecture du Tableau
For i = LBound(fichier) To UBound(fichier)
Dim ObjTextStream1, Contenu
    If Fso.FileExists(fichier(i)) Then 
       'MsgBox MyPath(i) & fichier & " existe !!!"
       'Ouverture en lecture du fichier issu du tableau
       Set ObjTextStream1 = Fso.OpenTextFile(fichier(i), 1)
       Contenu = ObjTextStream1.ReadAll
       'Fermeture du fichier en entrée
       ObjTextStream1.Close 
       'Ecriture du fichier resultat (.txt)
       ObjTextStream.Write Contenu &vbCrLf
       'Suppression de l'objet
       Set ObjTextStream1 = Nothing
    End If
Next 
ObjTextStream.Close
Set ObjTextStream = Nothing 
Set Fso = Nothing



jean-marc

cs_Exploreur · Answer

Salut, 
Un conseil...il y a eu pas mal de post à ce sujet aujourd'hui et hier, regarde bien les post tu trouvera tout les codes nécessaire pour faire ce que tu souhaites...
A+
Exploreur

cs_Exploreur · Answer

Si vraiment tu as un souci de mise en form revient et on en parle..
A+
Exploreur

cs_MPi · Answer

Open MonFichier For Input as #1 pour lire un fichier
Open MonFichier for Output as #1 pour créer/écrire/écraser un fichier
Open MonFicher For Append as #1 pour créer/ajouter des données

mais pas toujours avec #1... sans au moins l'avoir fermé.....

quelques indices de plus....pour ta recherche....

MPi

Renfield · Answer

utilises plutot FreeFile

Renfield
Admin CodeS-SourceS- MVP Visual Basic

cs_fredo42 · Answer

Merci a tous de vos participations grace a vous, j'avance petit a petit dans mon projet :))

Copier contenu fichiers txt dans un nouveau fichier txt

6 réponses

Votre réponse

Discussions similaires