fusion de fichiers

fusion de fichiers - VB/VBA/VBS - Programmation

Marsh Posté le 28-09-2005 à 09:19:10    

j'aimerai savoir s'il existe avec vbs une commande qui correspond à "copy fichier1+fichier2 fichier3"  
merci d'avance


Message édité par credo le 28-09-2005 à 09:19:58
Reply

Marsh Posté le 28-09-2005 à 09:19:10   

Reply

Marsh Posté le 02-10-2005 à 14:46:51    

Bonjour,
 
Voilà un petit script qui fait ça...
 
Appel : VbsCopy fichier1 fichier2 fichier3
 
 
'=====================================================
 
Set args = Wscript.Arguments
 
Set fso=CreateObject("Scripting.FileSystemObject" )
 
 
If fso.FileExists(args(0)) Then
 If Not fso.FileExists(args(1)) Then
  MsgBox "Le fichier "&args(1)&" n'existe pas !"
 Else
  ' Création du fichier de sortie
  If fso.FileExists(args(2)) Then
   Set ObjFile3 = fso.GetFile(args(2))
    ObjFile3.Delete
  End If
  Set ObjFile3 = fso.createtextFile(args(2))  
  Set objFile1=fso.Opentextfile(args(0),1)
  Set objFile2=fso.Opentextfile(args(1),1)
   
  Do Until objFile1.AtEndOfStream
   StrLine=objFile1.Readline
   objFile3.writeline StrLine
  Loop
  Do Until objFile2.AtEndOfStream
   StrLine=objFile2.Readline
   objFile3.writeline StrLine
  Loop
   
  ObjFile3.close
  ObjFile2.close
  objFile1.close
 End If
Else
 MsgBox "Le fichier "&args(0)&" n'existe pas !"
End If

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed