龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > web编程 > asp编程 >

asp fso创建文件夹

时间:2012-12-31 22:56来源:未知 作者:admin 点击:
分享到:

asp fso创建文件夹

Function CreatePath(fromPath)
 Dim objFSO, uploadpath
 uploadpath = Year(Now) & "-" & Month(Now) '以年月创建上传文件夹,格式:2003-8
 On Error Resume Next
 Set objFSO = CreateObject(Newasp.FSO_ScriptName)
 If objFSO.FolderExists(Server.MapPath(fromPath & uploadpath)) = False Then
  objFSO.CreateFolder Server.MapPath(fromPath & uploadpath)
 End If
 If Err.Number = 0 Then
  CreatePath = uploadpath & "/"
 Else
  CreatePath = ""
 End If
 Set objFSO = Nothing
End Function


精彩图集

赞助商链接