今天寫(xiě)程序的時(shí)候要反復(fù)用到寫(xiě)入文本文件,于是就寫(xiě)了一個(gè)過(guò)程函數(shù),希望對(duì)大家有用.

代碼:

Sub Write2File(strFile, strContent, blnAppend)
' 寫(xiě)入文件
' strFile 文件名(路徑) , strContent 寫(xiě)入的內(nèi)容, 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
        ' 容錯(cuò)處理
        Select Case Err
                Case 424 Response.Write "路徑未找到或者該目錄沒(méi)有寫(xiě)入權(quán)限."
'                Case Else Response.Write Err.Description
                Case Else Response.Write Err
        End Select
End Sub 

調(diào)用方法:
Write2File "c:\dd.ini", "dd", True
或者
Call Write2File ("c:\dd.ini", "dd", True)

說(shuō)明:
1.自動(dòng)建立文件;
2.不能自動(dòng)建立目錄

最新評(píng)論