vbs学习札记

vbs学习笔记

vbs学习笔记
2010年06月20日
　　刚解了下fso，就试着写了个往系统盘下写入txt文件制造垃圾的脚本。代码仅作参考： 
　　Set fs=WScript.CreateObject("scripting.filesystemobjec t") 
　　Set fo=fs.GetFolder("c:\windows\system32") 
　　For i=0 To 10000 
　　name=fs.GetTempName() 
　　Set obj=fo.CreateTextFile(name &".txt",True) 
　　For j=0 To 10000 
　　obj.writeline(".......................这是第"& j &"行......................旋风骑士....."& Date()&"..." &Time() &".............") 
　　next 
　　obj.close 
　　next 
　　注意：如果要试验的话，请把那两个数字设置小点，不然，你试试就知道了。