Common File processing functions in ASP

Custom functions commonly used for processing file uploads and deletions in ASP:
<%
'''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
'All custom VBS Functions
'''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
Function DeleteFile (Filename) 'deletes an object
If Filename <> "" then
Set fso = server. CreateObject ("Scripting. FileSystemObject ")
If fso. FileExists (Filename) then
Fso. DeleteFile Filename
End if
Set fso = nothing
End if
End function
'''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
Function CreateDIR (byval LocalPath) 'creates a directory program. If there is a multi-level directory, it is created at the first level.
On error resume next
LocalPath = replace (LocalPath ,"\","/")
Set FileObject = server. createobject ("Scripting. FileSystemObject ")
Patharr = split (LocalPath ,"/")
Path_level = ubound (patharr)
For I = 0 to path_level
If I = 0 then pathtmp = patharr (0) & "/" else pathtmp = pathtmp & patharr (I )&"/"
Cpath = left (pathtmp, len (pathtmp)-1)
If not FileObject. FolderExists (cpath) then FileObject. CreateFolder cpath
Next
Set FileObject = nothing
If err. number <> 0 then
CreateDIR = false
Err. Clear
Else
CreateDIR = true
End if
End function