建立目录类

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(),"-",""))