Discussion :

[qqoos]

bonjour,

je voudrais copier plusieurs fichiers dans 1 seul :

je fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

[SfJ5Rpw8]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[l_autodidacte]

Il y a également ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[SfJ5Rpw8]

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 ?

[qqoos]

CA MARCHE TRES BIEN


merci pour ta reponse

[l_autodidacte]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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