FSO一些代码

　　使用FSO修改文件特定内容的函数
functionFSOchange(filename,Target,String)
DimobjFSO,objCountFile,FiletempData
SetobjFSO=Server.CreateObject(Scripting.FileSystemObject)
SetobjCountFile=objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FiletempData=objCountFile.ReadAll
objCountFile.Close
FiletempData=Replace(FiletempData,Target,String)
SetobjCountFile=objFSO.CreateTextFile(Server.MapPath(filename),True)
objCountFile.WriteFiletempData
objCountFile.Close
SetobjCountFile=Nothing
SetobjFSO=Nothing
EndFunction


使用FSO读取文件内容的函数
functionFSOFileRead(filename)
DimobjFSO,objCountFile,FiletempData
SetobjFSO=Server.CreateObject(Scripting.FileSystemObject)
SetobjCountFile=objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FSOFileRead=objCountFile.ReadAll
objCountFile.Close
SetobjCountFile=Nothing
SetobjFSO=Nothing
EndFunction


使用FSO读取文件某一行的函数
functionFSOlinedit(filename,lineNum)
iflinenum<1thenexitfunction
dimfso,f,temparray,tempcnt
setfso=server.CreateObject(scripting.filesystemobject)
ifnotfso.fileExists(server.mappath(filename))thenexitfunction
setf=fso.opentextfile(server.mappath(filename),1)
ifnotf.AtEndofStreamthen
tempcnt=f.readall
f.close
setf=nothing
temparray=split(tempcnt,chr(13)&chr(10))
iflineNum>ubound(temparray)+1then
exitfunction
else
FSOlinedit=temparray(lineNum-1)
endif
endif
endfunction


使用FSO写文件某一行的函数
functionFSOlinewrite(filename,lineNum,Linecontent)
iflinenum<1thenexitfunction
dimfso,f,temparray,tempCnt
setfso=server.CreateObject(scripting.filesystemobject)
ifnotfso.fileExists(server.mappath(filename))thenexitfunction
setf=fso.opentextfile(server.mappath(filename),1)
ifnotf.AtEndofStreamthen
tempcnt=f.readall
f.close
temparray=split(tempcnt,chr(13)&chr(10))
iflineNum>ubound(temparray)+1then
exitfunction
else
temparray(lineNum-1)=lineContent
endif
tempcnt=join(temparray,chr(13)&chr(10))
setf=fso.createtextfile(server.mappath(filename),true)
f.writetempcnt
endif
f.close
setf=nothing
endfunction


使用FSO添加文件新行的函数
functionFSOappline(filename,Linecontent)
dimfso,f
setfso=server.CreateObject(scripting.filesystemobject)
ifnotfso.fileExists(server.mappath(filename))thenexitfunction
setf=fso.opentextfile(server.mappath(filename),8,1)
f.writechr(13)&chr(10)&Linecontent
f.close
setf=nothing
endfunction


读文件最后一行的函数
functionFSOlastline(filename)
dimfso,f,temparray,tempcnt
setfso=server.CreateObject(scripting.filesystemobject)
ifnotfso.fileExists(server.mappath(filename))thenexitfunction
setf=fso.opentextfile(server.mappath(filename),1)
ifnotf.AtEndofStreamthen
tempcnt=f.readall
f.close
setf=nothing
temparray=split(tempcnt,chr(13)&chr(10))
FSOlastline=temparray(ubound(temparray))
endif
endfunction

FSO替换指定文件的字符
程序代码：

FSO替换指定文件的字符
FunctionFSOLineEdit(filename,Target,String)
DimobjFSO,objCountFile,FiletempData
SetobjFSO=Server.CreateObject(Scripting.FileSystemObject)
SetobjCountFile=objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FiletempData=objCountFile.ReadAll
objCountFile.Close
FiletempData=Replace(FiletempData,Target,String)
SetobjCountFile=objFSO.CreateTextFile(Server.MapPath(filename),True)
objCountFile.WriteFiletempData
objCountFile.Close
SetobjCountFile=Nothing
SetobjFSO=Nothing
EndFunction
Response.WriteFSOLineEdit(test.txt,世界,明天是一个好天去)


删除文件
程序代码：

删除文件
FunctionDelFile(Filename)
IfFilename<>Then
SetFSO=Server.CreateObject(Scripting.FileSystemObject)
IfFSO.FileExists(Filename)Then
FSO.DeleteFileFilename
EndIf
SetFSO=Nothing
EndIf
EndFunction


判断文件是否存在
程序代码：

判断文件是否存在
FunctionReportFileStatus(filespec)
DimFSO,msg
SetFSO=CreateObject(Scripting.FileSystemObject)
If(FSO.FileExists(filespec))Then
msg=filespec&exists.
Else
msg=filespec&doesntexist.
EndIf
ReportFileStatus=msg
EndFunction


使用FSO修改文件特定内容的函数
程序代码：

使用FSO修改文件特定内容的函数
FunctionFSOchange(filename,Target,String)
DimobjFSO,objCountFile,FiletempData
SetobjFSO=Server.CreateObject(Scripting.FileSystemObject)
SetobjCountFile=objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FiletempData=objCountFile.ReadAll
objCountFile.Close
FiletempData=Replace(FiletempData,Target,String)
SetobjCountFile=objFSO.CreateTextFile(Server.MapPath(filename),True)
objCountFile.WriteFiletempData
objCountFile.Close
SetobjCountFile=Nothing
SetobjFSO=Nothing
EndFunction

使用FSO写文件某一行的函数
程序代码：

使用FSO写文件某一行的函数
FunctionFSOlinewrite(filename,lineNum,Linecontent)
Iflinenum<1ThenExitFunction
DimFSO,f,temparray,tempCnt
SetFSO=Server.CreateObject(Scripting.FileSystemObject)
IfNotFSO.FileExists(Server.MapPath(filename))ThenExitFunction
Setf=FSO.OpenTextFile(Server.MapPath(filename),1)
IfNotf.AtEndofStreamThen
tempcnt=f.ReadAll
f.Close
temparray=Split(tempcnt,Chr(13)&Chr(10))
IflineNum>UBound(temparray)+1Then
ExitFunction
Else
temparray(lineNum-1)=lineContent
EndIf
tempcnt=join(temparray,Chr(13)&Chr(10))
Setf=FSO.createtextfile(Server.MapPath(filename),true)
f.Writetempcnt
EndIf
f.Close
Setf=Nothing
EndFunction


建立目录的程序，如果有多级目录，则一级一级的创建
程序代码：
建立目录的程序，如果有多级目录，则一级一级的创建
FunctionCreateDIR(ByValLocalPath)
OnErrorResumeNext
LocalPath=Replace(LocalPath,\,/)
SetFileObject=Server.CreateObject(Scripting.FileSystemObject)
patharr=Split(LocalPath,/)
path_level=UBound(patharr)
Fori=0topath_level
Ifi=0Thenpathtmp=patharr(0)&/Elsepathtmp=pathtmp&patharr(i)&/
cpath=Left(pathtmp,Len(pathtmp)-1)
IfNotFileObject.FolderExists(cpath)ThenFileObject.CreateFoldercpath
Next
SetFileObject=Nothing
IfErr.Number<>0Then
CreateDIR=False
Err.Clear
Else
CreateDIR=True
EndIf
EndFunction


下面列举一下这些不常用但是却非常酷的功能：
很少被了解的FSO功能
GetSpecialFolderMethod返回特定的Windows文件夹的路径:Windows安装目录；Windows系统目录；Windows临时目录FSO.GetSpecialFolder([0,1,or2])
GetTempNameMethod返回一个随机产生的文件或者目录名字，用于需要存储临时数据时
GetAbsolutePathNameMethod返回文件夹的绝对路径(类似于Server.MapPath)。
比如，FSO.GetAbsolutePathName(region)将返回类似于下面的结果：c:mydocsmyfolderegion
GetExtensionNameMethod返回路径中最后部分的扩展名
(比如：FSO.GetExtensionName(c:docsest.txt)将返回txt)
GetBaseNameandGetParentFolderMethods返回路径中最后部分的父文件夹
(比如：FSO.GetParentFolder(c:docsmydocs)将返回docs)
DrivesProperty返回所有本地可用驱动器的集合，用于建立资源浏览器样的用户接口。

使用上面的功能时，最好建立好出错处理的代码。因为如果需要的参数不存在，将会产生麻烦的信息。