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

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

代码:

复制代码 代码如下:

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.不能自动建立目录