<%
'#########################################
'File processing function set
'Zhang Shengyong WINDXIXI
'It is very convenient to use this function.
'
'
'
'##################
'########################
Function CreatePath (SPATH)
'Generate a specified directory structure
'########################
DIM FSO
DIM POS
DIM Atmp
DIM SNEWPATH
DIM N
SET FSO = Server.createObject ("scripting.filesystemObject")
POS = INSTR (3, Spath, "/", 1)
atmp = split (MID (Spath, POS 1), "/")
SnewPath = Left (Spath, POS-1)
For n = 0 to ubound (atmp)
SnewPath = SNewPath & "/" & atmp (n)
If not fso.folderexists (snewpath) THEN FSO.CREATEFOLDER (SNewpath)
NEXT
CreatePath = (Err = 0)
END FUNCTION
'#####################
Sub Writefile (Filstr, FileName)
'Write file
'#####################
Dim file, fso
SET FSO = Server.createObject ("scripting.filesystemObject")
Set file = fso.createtextfile (filename, true)
File.writeline (Filstr)
File.close
SET FSO = Nothing
End Sub
'########################################################
Function makefile (filstr, filename)
'make txt files over 03.03.09 6:10 pm
'Establish a directory and write content
'########################################################
DIM FileNamet
FILENAMET = Left (filename, INSTRREV (filename, "/")))
CreatePath (filenamet)
Writefile Filstr, FileName
END FUNCTION
'#####################################################################
Function Del (f)
'Kill The Folder OR File ON 03/03/09 6:29 PM
'#####################################################################
DIM FSO, I, TARR
SET FSO = Server.createObject ("scripting.filesystemObject")
TARR = Split (f, ",")
For i = 0 to Ubound (TARR)
Tarr (i) = replace (Tarr (i), "` ",", ")
IF Right (Tarr (I), 1) = "/" THEN 'Dirtarr (i) = Left (Tarr (I), LEN (Tarr (i)) - 1)' Remove Trailing "/"
Fso.Deletefolder Tarr (i), TRUE
Else 'file
Fso.Deletefile Tarr (i), TRUE
END IF
NEXT
END FUNCTION
'######################################################## ########################################################################
Function makefilename ()
'make a name of files it is use the news format.if a news add the name is entry
'######################################################## #############################################################################
FNAME = now ()
FNAME = Replace (fname, "-", "" "
FNAME = Replace (FName, "," ""
FName = Replace (FNAME, ":", "")
FNAME = Replace (FName, "PM", "")
FNAME = Replace (FName, "AM", "")
FNAME = Replace (FName, "Mori", "")
FNAME = Replace (fname, "afternoon", "")
Makefilename = fname & ". htm"
END FUNCTION
'########################################################################################################################################################################################################################################################################################################## ######################################################################################################################################################################################################################################################################################################## #
Function getFireExTName (filename)
DIM POS
POS = INSTRREV (FileName, ".")
IF POS> 0 THEN
getFighextName = MID (filename, POS 1)
Else
getfileextName = "" "
END IF
END FUNCTION
%>
