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