建立目录类

来源:互联网 发布:mindnode mac 破解版 编辑:程序博客网 时间:2024/05/18 00:38

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