Friday, March 1, 2013

VBS :Text File

Text File


Example :

set fso=createobject("scripting.filesystemobject")

fso.createtextfile"D:\1.txt"
set ctrl=fso.getfile("1.txt")
set mode=ctrl.openastextstream(8)
'1-read
'2-write
'8-append

mode.writeline "hi"
mode.writeblanklines 5
mode.writeline "end"

msgbox "over"

No comments:

Post a Comment