FSO一些代码

使用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 使用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 使用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 使用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 使用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 读文件最后一行的函数 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 FSO替换指定文件的字符程序代码： 'FSO替换指定文件的字符 Function FSOLineEdit(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 'Response.Write FSOLineEdit("test.txt","世界","明天是一个好天去") 删除文件程序代码： '删除文件 Function DelFile(Filename) 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 ReportFileStatus(filespec) Dim FSO,msg Set FSO = CreateObject("Scripting.FileSystemObject") If (FSO.FileExists(filespec)) Then msg = filespec & " exists." Else msg = filespec & " doesn't exist." End If ReportFileStatus = msg End Function 使用FSO修改文件特定内容的函数程序代码： '使用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 使用FSO写文件某一行的函数程序代码： '使用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 = jo& #105;n(temparray,Chr(13)&Chr(10)) Set f = FSO.cr& #101;atetextfile(Server.MapPath(filename),true) f.Write tempcnt End If f.Close Set f = Nothing End Function 建立目录的程序，如果有多级目录，则一级一级的创建程序代码： '建立目录的程序，如果有多级目录，则一级一级的创建 Function CreateDIR(ByVal LocalPath) 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 下面列举一下这些不常用但是却非常酷的功能：很少被了解的FSO功能 GetSpecialFolder Method 返回特定的Windows文件夹的路径: Windows安装目录；Windows系统目录；Windows临时目录 FSO.GetSpecialFolder([0, 1, or 2])　 GetTempName Method 返回一个随机产生的文件或者目录名字，用于需要存储临时数据时 GetAbsolutePathName Method 返回文件夹的绝对路径(类似于Server.MapPath)。比如，FSO.GetAbsolutePathName("region") 将返回类似于下面的结果："c:mydocsmyfolder egion" GetExtensionName Method 返回路径中最后部分的扩展名 (比如：FSO.GetExtensionName("c:docs est.txt") 将返回txt) GetBaseName and GetParentFolder Methods 返回路径中最后部分的父文件夹 (比如：FSO.GetParentFolder ("c:docsmydocs") 将返回'docs') Drives Property 返回所有本地可用驱动器的集合，用于建立资源浏览器样的用户接口。使用上面的功能时，最好建立好出错处理的代码。因为如果需要的参数不存在，将会产生麻烦的信息。

　　推荐阅读

　　一个asp快速字符串连接类

<% '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '快速字符串连接类 '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '名称：Class_FastString '来源：http://www.jansfreeware.com '整理：qihangnet '更新：2005年6月15日 '作用>>>详细阅读

本文标题：FSO一些代码

地址：http://www.17bianji.com/kaifa2/ASP/33146.html

1/2 1