'========================建立文件夹=================================
Sub EFolder(FolderName)
'建立文件夹
'==================================================
'作者:飞飞
'网址:www.ffasp.com
'QQ:276230416
'邮箱:rabbit25132008@gmail.com
'==================================================
'参数说明
'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
'===================================================================