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 返回所有本地可用驱动器的集合，用于建立资源浏览器样的用户接口。  
使用上面的功能时，最好建立好出错处理的代码。因为如果需要的参数不存在，将会产生麻烦的信息。

上一个：关于Script的Defer属性 原创
下一个：ByVal和ByRef(编写ASP子程序所用到命令）