Sub CreateFile(filename,filetext)
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile(Server.MapPath(filename), True)
tf.WriteLine(filetext)
tf.Close
End Sub
调用方式:
CreateFolder(replace(date(),"-",""))
Sub CreateFile(filename,filetext)
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile(Server.MapPath(filename), True)
tf.WriteLine(filetext)
tf.Close
End Sub
调用方式:
CreateFolder(replace(date(),"-",""))