在线创建文件
 
<%@ LANGUAGE = "VBScript" %>
<% Dim Name

set fs=createobject("scripting.filesystemobject")
MyFolder=server.mappath("tempqqq.txt")
If NOT fs.folderexists(MyFolder) then
fs.CreateTextFile(MyFolder)
End If
If fs.folderexists(MyFolder) then
%> Folder created successfully! Called
<%=MyFolder%>
<%
Else
Response.Write "There has been an error."
End If
%>
 

++++++++++++++++++++++++++++++++++
在线删除文件
<%
set fs=createobject("scripting.filesystemobject")
MyFolder=server.mappath("aaaa.txt")
fs.Deletefile(MyFolder)
%>
<%
response.Write("成功删除")
%>
“本例子将删除本目录内的aaaa.txt 文件

++++++++++++++++++++++++++