怎样创建文件夹

[xiepengtao]

如果用asp 实现根据输入，创建一个文件夹。
例如输入 china，就在当前目录下创建一个 china的文件夹

[monkeys]

这，帮你顶一下

[supere]

没调试！你自己调试一下

function CreateFolder(FolderName)
set fso=server.createobject("scripting.filesystemobject")
drvpath=server.mappath(drvpath)
CreateFolder = fso.CreateFolder(drvpath+"\"+FolderName);
end function

[supere]

应该是

function CreateFolder(FolderName)
set fso=server.createobject("scripting.filesystemobject")
drvpath=server.mappath(./)
CreateFolder = fso.CreateFolder(drvpath+"\"+FolderName);
end function

[supere]

呵呵，少了引号

function CreateFolder(FolderName)
dim fso,drvpath
set fso=server.createobject("scripting.filesystemobject")
drvpath=server.mappath("./")
CreateFolder = fso.CreateFolder(drvpath+"\"+FolderName);
end function

[tuoshi]

用FSO来实现：

Sub CreateFolder(FolderName)
Set fso = Server.Createobject("Scripting.FileSystemObject")
drvpath = Server.mappath("./")
CreateFolder = fso.CreateFolder(drvpath & "\" & FolderName)
End Sub

调用方法：

Call CreateFolder(文件夹名）

[「已注销」]

<%
' CreateFolder
if Request("folder") <> "" then
folder = Request("folder")
Set fso = CreateObject("Scripting.FileSystemObject")
if fso.FolderExists(Server.Mappath("\") & "\"&folder&"") Then
Response.write("文件目录:"&folder&"已经存在!")
Response.End
else
fso.CreateFolder(Server.Mappath("\") & "\"&folder&"")
end if
Set fso = Nothing
Response.write("文件目录:"&Request("folder")&"创建成功!")
else
Response.write("你必须指定参数名:folder 以及要创建的目录值,比如:creatFolder.asp?folder=china")
end if
%>