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

发布时间：2023-09-19 09:55:48 所属栏目：Asp教程来源：

导读：今天写程序的时候要反复用到写入文本文件,于是就写了一个过程函数,希望对大家有用.
代码:

复制代码代码如下:

Sub Write2File(strFile, strContent, blnAppend)

' 写入文件
' strFile 文

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

复制代码代码如下:

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

调用方法:

Write2File "c:/dd.ini", "dd", True
或者
Call Write2File ("c:/dd.ini", "dd", True)

说明:

1.自动建立文件;
2.不能自动建立目录

（编辑：汽车网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!