可以在线创建文件夹吗？

folder.htm

lt;htmlgt;

lt;headgt;

lt;titlegt;闪亮日子之在线创建文件夹lt;/titlegt;

lt;/headgt;

lt;bodygt;

春风精彩lt;brgt;

在线创建文件夹lt;/tdgt;

nbsp; lt;trgt;

nbsp;nbsp;nbsp; lt;td height="28"gt;lt;form name="form1" method="post" action="creatfolder.asp"gt;

lt;div align="center"gt;lt;centergt;lt;pgt;新建文件夹:

lt;inputnbsp; type="text" name="name" size="20" style="font-size: 12pt"gt;

lt;input type="submit"nbsp; name="Submit" value="创建" style="font-size: 12pt"gt; lt;/pgt;

nbsp;nbsp;nbsp;nbsp;nbsp; lt;/centergt;lt;/divgt;

nbsp;nbsp;nbsp; lt;/formgt;

nbsp;nbsp;nbsp; lt;/tdgt;

nbsp; lt;/trgt;

lt;/centergt;lt;/divgt;

lt;/bodygt;lt;/htmlgt;

nbsp;

creatfolder.asp

lt;%@ LANGUAGE = "VBScript" %gt;

lt;%

Dim Name

Name = Request("Name")

set fs=createobject("scripting.filesystemobject")

MyFolder=server.mappath(""name"")

If NOT fs.folderexists(MyFolder) then

fs.createfolder(MyFolder)

End If

If fs.folderexists(MyFolder) then

%gt; 恭喜,文件夹创建成功!命名为:lt;%=MyFolder%gt;

lt;%Else%%gt;

出错啦!请返回重试.

lt;%End If

%gt;

（编辑：大同站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!