' 寫入檔案
' 12:15 2005/3/9
Option Explicit
' ****************** DIM 區
dim strpath
dim fso
dim myfile,i
Set FSO = CreateObject("Scripting.FileSystemObject")
' ****************** 修改區
strpath = "\\cc\2332\tt"
' ****************** SET區
Set myfile = FSO.CreateTextFile(strpath & "\" & "writel.txt",true) 'tmpfile
' ******************
for i = 20 to 100
myfile.writeline i
next
myfile.close
沒有留言:
張貼留言