如何检测创建的文件夹已存在了？

chenchuanlin 发布于 2008-07-08 10:12， 1236 次点击

我现在在网站后台自动创建文件夹，但现在出现一个问题是：怎么样才能检测我创建的这个文件夹是否已经存在，如果存在，将给予提示，如果不存在，就将创建这个文件夹。
这是我写的一段代码，可是没效果，请高手帮帮忙：万分感谢！！！
<%
Set fso = CreateObject("Scripting.FileSystemObject")
if fso.FolderExists(server.mappath("../"+ request("SySmalltypename")))=False then
Fso.Createfolder(server.mappath("../"+ request("SySmalltypename")))
else
response.write("此文件夹已经存在，请重新命名！")
end if
Set fso = nothing
%>

5 回复

multiple19022008-07-08 19:31

Sub MkDir(path)
    path=Server.MapPath(path)
    Dim fso
    Set fso=Server.CreateObject("Scripting.FileSystemObject")
    If Not fso.FolderExists(path) Then fso.CreateFolder(path)
    Set fso=Nothing
End Sub

我是这么写的

chenchuanlin2008-07-09 08:06

这个路径是怎么回事？

我现在的路径是不确定的，我主要是与根目录下所创建的文件夹进行比较，如果有就有相关提示，没有就自动创建一个。我是在后台输入一个“文件夹名称”，然后点创建。就会在根目录下创建一个文件夹，现在该怎么样把根目录下的文件夹全部调出，与我所创建的文件夹名称进行比较，这样才能检测出啊，我想的原理就是这样。兄弟，path怎么确定呢？

makebest2008-07-10 15:41

fso.FolderExists 是能检测出来的, 可能还要找找真正的原因是什么

hmhz2008-07-12 10:09

Folder=Server.Mappath("路径")
Set FSO= Server.CreateObject("Scripting.FileSystemObject")
IF FSO.FolderExists(Folder) Then
response.write("此文件夹已存在，请重新命名！")
Else
response.write("此文件夹不存在，开始建立！")
End IF

chenchuanlin2008-07-14 13:26

Folder=Server.Mappath("路径")??

Folder=Server.Mappath("路径")，这个路径也是不确定的，我是比较一个文件夹所有的文件夹名称，所以应该要用Server.Mappath方法吧？？谢谢