加入收藏 | 设为首页 | 会员中心 | 我要投稿 济南站长网 (https://www.0531zz.com/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 站长学院 > Asp教程 > 正文

asp依照指定目录使用fso创建文件夹代码

发布时间:2022-04-08 11:33:51 所属栏目:Asp教程 来源:互联网
导读: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.MapPa
 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","/"
 

(编辑:济南站长网)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    热点阅读