dim fso
set fso = createobject("scripting.filesystemobject")
dim f
set f = fso.createtextfile("c:\test.txt", true)
dim i
'向这个文件中写入 128k
for i = 1 to 1024
f.write "testtesttesttesttesttesttesttesttesttesttesttesttesttesttesttesttesttesttesttesttesttesttesttesttesttesttesttesttesttesttesttest"
next