fso 文件夹建立问题 请高手看看

[eshoweshow]

<table width="100%" height="197" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="tableBorder">
  <tr><form method="post" action="Img.asp?action=Backup">
      <td width="100%" height="89" align="left" valign="top" bgcolor="#f1f1f1" > 
        <input type=text size=24 name=DBpath value="0"  style="display:none;">新建文件夹：<input type=text size=24 name=bkfolder value="" onFocus="this.select();"> <input name="submit" type=submit value="开始创建" class="button" >
      </td>

</form><%
if request("action")="Backup" then
   Dbpath=server.mappath(request.form("Dbpath"))
   bkfolder=request.form("bkfolder")
  Set Fso=server.createobject("Scripting.FilesystemObject")
    if fso.FolderExists(dbpath) then
     If CheckDir(bkfolder) = True Then
      fso.copyfolder dbpath,bkfolder
     else
      MakeNewsDir bkfolder
      fso.copyfolder dbpath,bkfolder
     end if
     response.write "<script>alert('创建成功!');location.href='IMG.asp';</script>"
    else
     response.write "<script>alert('找不到您所需要备份的文件!');history.go(-1);</script>"
    end if
end if

Function CheckDir(FolderPath)
folderpath=Server.MapPath(".")&"\"&folderpath
Set fso1 = CreateObject("Scripting.FilesystemObject")
If fso1.FolderExists(FolderPath) then
CheckDir = True
Else
CheckDir = False
End if
Set fso1 = nothing
End Function

Function MakeNewsDir(foldername)
Set fso1 = CreateObject("Scripting.FilesystemObject")
Set f = fso1.CreateFolder(foldername)
MakeNewsDir = True
Set fso1 = nothing
End Function
%>
</table>

如果没有这个文件夹 就可以建立
如果有 就不能建立 提示 已经有该文件夹

帮忙看看

[Dogfish]

server.mappath 好像经常不准的。

[eshoweshow]

ding!

[loska]

不明白楼主的问题!

[micool]

看一下iis配置

[jhwcd]

[Quote=引用 4 楼 loska 的回复:]
不明白楼主的问题!
[/Quote]
把要说明的问题说的详细点。

[kqogje]

看着像没有什么毛病啊？

[Anlige]

建立的之前检查文件夹是否存在,然后决定是否建立~

[eshoweshow]

建立的之前检查文件夹是否存在,然后决定是否建立~

[wp8888888]

你可以当那个文件夹存在时选择删除或者重命名就可以了。。。

[bhtfg538]

Set Fso=server.createobject("Scripting.FilesystemObject")
if Fso.FolderExists(Server.Mappath("路径"))=true then
Response.write("存在")
else
Fso.CreateFolder(Server.Mappath("路径"))
end if