fso使用方法与实例说明

　21.读文件最后一行的函数


　　function FSOlastline(filename)
　　dim fso,f,temparray,tempcnt
　　set fso = server.CreateObject("scripting.filesystemobject")
　　if not fso.fileExists(server.mappath(filename)) then exit function
　　set f = fso.opentextfile(server.mappath(filename),1)
　　if not f.AtEndofStream then
　　tempcnt = f.readall
　　f.close
　　set f = nothing
　　temparray = split(tempcnt,chr(13)&chr(10))
　　FSOlastline = temparray(ubound(temparray))
　　end if
　　end function

　　17.使用FSO读取文件内容的函数


　　function FSOFileRead(filename)
　　Dim objFSO,objCountFile,FiletempData
　　Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
　　Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
　　FSOFileRead = objCountFile.ReadAll
　　objCountFile.Close
　　Set objCountFile=Nothing
　　Set objFSO = Nothing
　　End Function

　　18.使用FSO读取文件某一行的函数


　　function FSOlinedit(filename,lineNum)
　　if linenum < 1 then exit function
　　dim fso,f,temparray,tempcnt
　　set fso = server.CreateObject("scripting.filesystemobject")
　　if not fso.fileExists(server.mappath(filename)) then exit function
　　set f = fso.opentextfile(server.mappath(filename),1)
　　if not f.AtEndofStream then
　　tempcnt = f.readall
　　f.close
　　set f = nothing
　　temparray = split(tempcnt,chr(13)&chr(10))
　　if lineNum>ubound(temparray)+1 then
　　exit function
　　else
　　FSOlinedit = temparray(lineNum-1)
　　end if
　　end if
　　end function

　　19.使用FSO写文件某一行的函数
        
　　function FSOlinewrite(filename,lineNum,Linecontent)
　　if linenum < 1 then exit function
　　dim fso,f,temparray,tempCnt
　　set fso = server.CreateObject("scripting.filesystemobject")
　　if not fso.fileExists(server.mappath(filename)) then exit function
　　set f = fso.opentextfile(server.mappath(filename),1)
　　if not f.AtEndofStream then
　　tempcnt = f.readall
　　f.close
　　temparray = split(tempcnt,chr(13)&chr(10))
　　if lineNum>ubound(temparray)+1 then
　　exit function
　　else
　　temparray(lineNum-1) = lineContent
　　end if
　　tempcnt = join(temparray,chr(13)&chr(10))
　　set f = fso.createtextfile(server.mappath(filename),true)
　　f.write tempcnt
　　end if
　　f.close
　　set f = nothing
　　end function

　　20.使用FSO添加文件新行的函数


　　function FSOappline(filename,Linecontent)
　　dim fso,f
　　set fso = server.CreateObject("scripting.filesystemobject")
　　if not fso.fileExists(server.mappath(filename)) then exit function
　　set f = fso.opentextfile(server.mappath(filename),8,1)
　　f.write chr(13)&chr(10)&Linecontent
　　f.close
　　set f = nothing
　　end function

　使用FSO修改文件特定内容的函数


　　function FSOchange(filename,Target,String)
　　Dim objFSO,objCountFile,FiletempData
　　Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
　　Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
　　FiletempData = objCountFile.ReadAll
　　objCountFile.Close
　　FiletempData=Replace(FiletempData,Target,String)
　　Set objCountFile=objFSO.CreateTextFile(Server.MapPath(filename),True)
　　objCountFile.Write FiletempData
　　objCountFile.Close
　　Set objCountFile=Nothing
　　Set objFSO = Nothing
　　End Function