网络编程
位置:首页>> 网络编程>> Asp编程>> [精品]ASP中常用的22个FSO文件操作函数(4)

[精品]ASP中常用的22个FSO文件操作函数(4)

 来源:cnlei.org 发布时间:2007-08-18 15:12:00 

标签:FSO,函数,文件操作

10.FSO写指定内容到文本文件 


Function WriteTxtFile(FileName,TextStr,WriteORAppendType)  
Const ForReading = 1, ForWriting = 2 , ForAppending = 8  
Dim f, m  
select Case WriteORAppendType  
Case 1: ’文件进行写操作  
Set f = fso.OpenTextFile(FileName, ForWriting, True)  
f.Write TextStr  
f.Close  
If ReportFileStatus(FileName) = 1 then  
WriteTxtFile = 1  
Else  
WriteTxtFile = -1  
End if  
Case 2: ’文件末尾进行写操作  
If ReportFileStatus(FileName) = 1 then  
Set f = fso.OpenTextFile(FileName, ForAppending)  
f.Write TextStr  
f.Close  
WriteTxtFile = 1  
Else  
WriteTxtFile = -1  
End if  
End select  
End Function 


11.利用FSO读取文本文件内容 


Function ReadTxtFile(FileName)  
Const ForReading = 1, ForWriting = 2  
Dim f, m  
If ReportFileStatus(FileName) = 1 then  
Set f = fso.OpenTextFile(FileName, ForReading)  
m = f.ReadLine  
’m = f.ReadAll  
’f.SkipLine  
ReadTxtFile = m  
f.Close  
Else  
ReadTxtFile = -1  
End if  
End Function  


 




12.FSO返回文件夹目录空间大小


Function GetFolderSize(FolderName)  
’//功能:取目录大小  
’//形参:目录名  
’//返回值:成功为目录大小,失败为-1  
’//  
Dim f  
If ReportFolderStatus(FolderName) = 1 Then  
Set f = fso.GetFolder(FolderName)  
GetFolderSize = f.Size  
Else  
GetFolderSize = -1  
End if  
End Function 


0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com