[點(diǎn)晴永久免費(fèi)OA]寫(xiě)入文本文件的過(guò)程函數(shù)(ASP)
今天寫(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)建立目錄。 該文章在 2022/6/27 15:14:02 編輯過(guò) |
關(guān)鍵字查詢
相關(guān)文章
正在查詢... |