'-------------------------'--检查目录是否存在'----------------------Function CheckDir(byval FolderPath)    dim fso    Set fso = Server.CreateObject("Scripting.FileSystemObject")    If fso.FolderExists(Server.MapPa...

creatfolder.htm'表单文件.<formname="form1"method="post"action="folder.asp">创建一个文件夹:<inputtype="text"name="name"><inputtype="submit"name="Submit"value="提交"></form> folder.asp<%@LANGUAGE="VBScript"%><%DimNameName=Request("Name")setfs=createobject("scripting.filesystem...