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