您所在的位置:小祥子 » 编程 » ASP » 正文

ASP创建目录的代码

时间:2015-01-09 编辑:佚名 来源:互联网

代码如下

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

使用方法

EFolder "目录名称"

关键词:创建目录