网站广播 本站提供的源码经过测试,配有前台及后台管理界面演示图,希望对大家有帮助!
asp按照指定目录使用fso创建文件夹代码
2010-09-27 08:01:01    【 】   浏览:
 asp按照指定目录使用fso创建文件夹代码:

Sub EFolder(FolderName)
Dim FSO
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
If Fso.folderexists(Server.MapPath(FolderName)) Then
Set FSO=Nothing
Exit Sub
Else
FSO.CreateFolder(Server.MapPath(FolderName))
End If
Set FSO=Nothing
End Sub
'===================================================================
Sub ArrayFolder(Path,sep)
Dim ArrayPath,EPath,newPath
ArrayPath = split(Path,sep)
newPath=""
for each Epath in ArrayPath
newPath=newPath&Epath&"/"
newPath = replace(newPath,"//","/")
EFolder newPath
next
End Sub

ArrayFolder "1/2/3","/" 


Tags:asp 指定 目录 使用 fso 创建 文件夹
】【打印繁体】【关闭】 【返回顶部
上一篇解决:HTTP 401.5 - 未经授权:IS.. 下一篇ASP程序中调用Now()总显示上午和..

广告推荐

ASP技术文章推荐阅读