concatener des fichiers dans un seul fichier

bonjour,

je voudrais copier plusieurs fichiers dans 1 seul :

je fais :

Code:

---

1 2	Set oFso = CreateObject("Scripting.FileSystemObject") oFso.CopyFile "C:\rep1\Logs\collect*.csv", "C:\rep1\Logs\toto.csv"

---

===> C:\Edition\Users\xxxxx\Workspaceperso\ProjetVBS\agglo.wsf(171, 4) Erreur d'ex‚cution Microsoft VBScript: Chemin d'accŠs introuvable

je passe la cmd dans une fenetre de commande :

Code:

---

Copy "C:\rep1\Logs\collect*.csv", "C:\rep1\Logs\toto.csv"

---

===> C:\rep1\Logs\collect.csv
C:\rep1\Logs\collect_P1.csv
C:\rep1\Logs\collect_P2.csv
1 fichier(s) copié(s).
c'est bon.

si je ne copie qu'1 seul fichier, ça marche.

si vous avez une solution ...

bonjour,

copyFile n'admet pas l'utilisation de caractéres génériques ...

rien ne t'empêche d'utiliser le copy "du dos" ... :

Code:

---

1 2	Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run "cmd /C copy C:\rep1\Logs\collect*.csv C:\rep1\Logs\toto.csv"

---

Il y a également ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Option Explicit Dim fso,f,fd,txt,Dest Const ForAppending=8, ForReading=1 Set fso = CreateObject("Scripting.FileSystemObject") set fd=fso.GetFolder("C:\rep1\Logs\") Set Dest=fso.OpenTextFile("C:\rep1\Logs\Toto.csv",ForAppending,true) for each f in fd.files if Ucase(f.name)<>"TOTO.CSV" then Set f=fso.OpenTextFile(fd & "\" & f.Name,ForReading) txt=f.ReadAll f.close Dest.Write txt end if next Dest.Close

---

Mais chose bizarre : La taille du fichier de sortie est plus grande que celle utilisant le code de bbil.
J'ai testé sur des fichiers texte. Avec le code de bbil, la taille est de 329 Ko alors qu'avec mon code cela fait 333 Ko.
Quelqu'un peut-il expliquer cela ?

salut, l_autodidacte

dans ton code il manque le filtrage "collect*.csv" tu n'as pas d'autre fichiers dans ce répertoire qui expliqueraient la taille plus importante ?

CA MARCHE TRES BIEN


merci pour ta reponse

Citation:

---

salut, l_autodidactedans ton code il manque le filtrage "collect*.csv" tu n'as pas d'autre fichiers dans ce répertoire qui expliqueraient la taille plus importante ?

---

Salut bbil
J'ai fait le test sur 7 fichiers texte sans rien d'autres dans le répertoire.(je n'ai pas eu besoin du filtrage).
Dans l'explorateur Windows, la taille totale est bien 333 Ko comme celle du fichier de sortie(en utilisant mon code).
Pour le filtrage en question, le demandeur peut l'ajouter en faisant par exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Option Explicit Dim fso,f,fd,txt,Dest Const ForAppending=8, ForReading=1 Set fso = CreateObject("Scripting.FileSystemObject") set fd=fso.GetFolder("C:\rep1\Logs\") Set Dest=fso.OpenTextFile("C:\rep1\Logs\Toto.txt",ForAppending,true) for each f in fd.files If Ucase(Mid(f.Name,1,7))="COLLECT" Then Set f=fso.OpenTextFile(fd & "\" & f.Name,ForReading) txt=f.ReadAll f.close Dest.Write txt End if next Dest.Close

---