[VBA-E] Opérations sur fichiers txt

Version imprimable

07/04/2007, 09h29
anisr

[VBA-E] Opérations sur fichiers txt

Bonjour,

Je dispose d'un répertoir A qui contient des fichiers txt et un autre repértoir qui contient le même nombre de fichiers avec les mêmes noms (les données sont différents).

Je veux que tous les fichiers de B viennent en ajout de ceux de A (un à un).

Expemple: B\Fichiers1.txt s'ajoute à A\Fichiers1.txt sans ecraser les données initiaux.

Comment faire?

En modifiant un peu l'exemple donné dans l'aide VBA sur la fonction OpenTextFile ou OpenAsTextStream :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub OpenTextFileTest()
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Dim fs, f1, f2
    Set fs = CreateObject("Scripting.FileSystemObject")
    cheminfichier1 = "A"
    cheminfichier2 = "B"
    nomfichier = "text1.txt"
    Set f1 = fs.OpenTextFile(cheminfichier1 & PathSeparator & nomfichier, ForAppending, , TristateUseDefault)
    Set f2 = fs.OpenTextFile(cheminfichier2 & PathSeparator & nomfichier, ForReading, , TristateUseDefault)
    f1.WriteLine
    f1.Write f2.ReadAll
    f1.Close
    f2.Close
    Set f1 = Nothing
    Set f2 = Nothing
    Set fs = Nothing
End Sub

07/04/2007, 19h16
anisr

Merci de votre aide.

Avec l'exemple fourni il faut declarer d'une manière statique les fichiers:calim2: . Le but etant de tester sur le nom du fichier (Père) avec son equivalent (fils) et d'effectuer l'opération d'ecriture.
07/04/2007, 19h19
dadavyvy

En fait, j'ai juste donné un exemple, mais il faut parcourir le dossier A (Folder), récuperer chaque fichier (File), et on peut alors l'avoir dynamiquement. Il suffit de rechercher "File" dans l'aide VBA, et il y a des exemples...