Checkfolder = "../ UploadPIC /" FormPath = Checkfolder & createpath ()
Private function createpath () DIM OBJFSO, FSOFOLDER, UPLOADPATH UPLOADPATH = YEAR (NOW) & "-" & Month (now) Create upload folder, format: 2003-8 on Error Resume Next Set Objfso = Server.createObject "Scripting.FileSystemObject") If objFSO.FolderExists (Server.MapPath (CheckFolder & uploadpath)) = False Then objFSO.CreateFolder Server.MapPath (CheckFolder & uploadpath) End If If Err.Number = 0 Then CreatePath = uploadpath & "/" Else CreatePath = "" End if set objfso = nothingend function
