寫入文字檔的過程函數(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.不能自動建立目錄