写入文本文件的过程函数(ASP)

时间:2021-05-25

今天写程序的时候要反复用到写入文本文件,于是就写了一个过程函数,希望对大家有用.
代码:
复制代码 代码如下:
SubWrite2File(strFile,strContent,blnAppend)

'写入文件
'strFile文件名(路径),strContent写入的内容,blnAppend是否追加
OnErrorResumeNext
SetobjFSO=Server.CreateObject("Scripting.FileSystemObject")
IfblnAppendThen
SetobjWriteText=objFSO.OpenTextFile(strFile,8,True)
Else
SetobjWriteText=objFSO.OpenTextFile(strFile,2,True)
EndIf
objWriteText.WriteLine(strContent)
SetobjWriteText=Nothing
SetobjFSO=Nothing
'容错处理
SelectCaseErr
Case424Response.Write"路径未找到或者该目录没有写入权限."
'CaseElseResponse.WriteErr.Description
CaseElseResponse.WriteErr
EndSelect
EndSub
调用方法:
Write2File"c:\dd.ini","dd",True
或者
CallWrite2File("c:\dd.ini","dd",True)
说明:
1.自动建立文件;
2.不能自动建立目录

声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。

相关文章