写入文本文件的过程函数(ASP)
2018-09-06 11:44
阅读：348
今天写程序的时候要反复用到写入文本文件,于是就写了一个过程函数,希望对大家有用.
代码:
Sub Write2File(strFile, strContent, blnAppend)
写入文件
strFile 文件名(路径) , strContent 写入的内容, blnAppend 是否追加
On Error Resume Next
Set objFSO = Server.CreateObject(Scripting.FileSystemObject)
If blnAppend Then
Set objWriteText = objFSO.OpenTextFile(strFile,8,True)
Else
Set objWriteText = objFSO.OpenTextFile(strFile,2,True)
End If
objWriteText.WriteLine (strContent)
Set objWriteText = Nothing
Set objFSO = Nothing
容错处理
Select Case Err
Case 424 Response.Write 路径未找到或者该目录没有写入权限.
Case Else Response.Write Err.Description
Case Else Response.Write Err
End Select
End Sub
调用方法:
或者
Call Write2File (c:\dd.ini, dd, True)
说明:
1.自动建立文件;
2.不能自动建立目录
下一篇：GetRows的用法详解！
评论
亲，登录后才可以留言！