|
<script>ec(2);</script> 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
|