fusion de fichiers - VB/VBA/VBS - Programmation
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 
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