Private Function CheckFolder(byval LocalPath)
On Error Resume Next
Dim FileObject
Dim patharr,path_level,pathtmp,cpath
LocalPath = Replace(LocalPath,"","/")
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
patharr = Split(LocalPath,"/")
path_level = Ubound(patharr)
Dim i
For i = 0 to path_level
If i = 0 Then
pathtmp = patharr(0) & "/"
Else
pathtmp = pathtmp & patharr(i) & "/"
End If
cpath = Left(pathtmp,Len(pathtmp)-1)
If Not FileObject.FolderExists(Server.MapPath(cpath)) Then FileObject.CreateFolder(Server.MapPath(cpath))
Next
Set FileObject=Nothing
If Err.Number<>0 then
Err.Clear
CheckFolder = False
Else
CheckFolder = True
End If
End Function
Public Function WriteCache(appName, Value)
Application.Lock
Application(appName) = Value
Application.Unlock
End Function
Public Function ClearCache(appName)
Application.Lock
Application.Contents.Remove(appName)
Application.UnLock
End Function
