可以在线创建文件夹吗？

时间：2021-05-25

folder.htm

<html>

<head>

<title>闪亮日子之在线创建文件夹</title>

</head>

<body>

春风精彩<br>

在线创建文件夹</td>

<tr>

<td height="28"><form name="form1" method="post" action="creatfolder.asp">

<div align="center"><center><p>新建文件夹:

<input type="text" name="name" size="20" style="font-size: 12pt">

<input type="submit" name="Submit" value="创建" style="font-size: 12pt"> </p>

</center></div>

</form>

</td>

</tr>

</center></div>

</body></html>

creatfolder.asp

<%@ LANGUAGE = "VBScript" %>

<%

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

%> 恭喜,文件夹创建成功!命名为:<%=MyFolder%>

<%Else%%>

出错啦!请返回重试.

<%End If

%>

声明：本页内容来源网络，仅供用户参考；我单位不保证亦不表示资料全面及准确无误，也不保证亦不表示这些资料为最新信息，如因任何原因，本网内容或者用户因倚赖本网内容造成任何损失或损害，我单位将不会负任何法律责任。如涉及版权问题，请提交至online#300.cn邮箱联系删除。

相关文章