asp在线创建文件夹 - 外贸、服装 - seanlin168

载入中

自定义HTML载入中...

快速链接

asp在线创建文件夹 [转贴 2008-06-17 10:40:14]

1.

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>

2.

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

%>

<%

Sub CreateFolder(strFolder)
    '首选判断要建立的文件夹是否已经存在
    Dim strTestFolder, objFSO
    strTestFolder = Server.Mappath(strFolder)
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    ' 检查文件夹是否存在
    If objFSO.FolderExists(strTestFolder) Then
response.write "该文件夹已经存在！"
    Else
Dim strTestFolder, objFSO
strTestFolder = Server.Mappath(strFolder)
Set objFSO = CreateObject("Scripting.FileSystemObject")
' 建立文件夹
objFSO.CreateFolder(strTestFolder)
Set objFSO = Nothing
    End If
End Sub%>