2010-10-11 4 views

Répondre

1

temps long depuis que j'utilisé VBS

Set fso = CreateObject("Scripting.FileSystemObject") 
set src = fso.OpenTextFile("test.txt",1) 
lines = split(src.readall,vbcrlf) 

for i = 1 to ubound(lines) 
set dst = fso.CreateTextFile(i & ".txt", true) 
dst.writeline lines(0) 
dst.writeline lines(i) 
dst.close 
next 
0

Vous pouvez écrire des fichiers en utilisant le FileSystemObject. Cette page quelques exemples de code pour l'ouverture et de l'écriture dans un fichier: Working with Files

Questions connexes