寫入文本文件的過(guò)程函數(shù)(ASP)
更新時(shí)間：2007年02月10日 00:00:00 作者：
今天寫程序的時(shí)候要反復(fù)用到寫入文本文件,于是就寫了一個(gè)過(guò)程函數(shù),希望對(duì)大家有用.
代碼:
Sub Write2File(strFile, strContent, blnAppend)
' 寫入文件
' strFile 文件名(路徑) , strContent 寫入的內(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 "路徑未找到或者該目錄沒有寫入權(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)建立目錄
代碼:
復(fù)制代碼 代碼如下:
Sub Write2File(strFile, strContent, blnAppend)
' 寫入文件
' strFile 文件名(路徑) , strContent 寫入的內(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 "路徑未找到或者該目錄沒有寫入權(quán)限."
' 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)
說(shuō)明:
1.自動(dòng)建立文件;
2.不能自動(dòng)建立目錄
相關(guān)文章
一個(gè)實(shí)用的FSO－實(shí)時(shí)統(tǒng)計(jì)在線人數(shù)
一個(gè)實(shí)用的FSO－實(shí)時(shí)統(tǒng)計(jì)在線人數(shù)...2006-10-10
FSO+遞歸生成文件列表(xml)...2006-10-10
Oracle常用功能集錦...2006-10-10
遍歷目錄以及目錄下文件的函數(shù)...2006-10-10
fso的一些特殊功能...2006-10-10
asp復(fù)制文件夾代碼...2007-01-01
對(duì)文件的操作--建立移動(dòng)刪除文件夾...2006-10-10
FSO操作示例（給初學(xué)者）...2006-10-10
用ASP實(shí)現(xiàn)對(duì)MP3曲目信息的操作
用ASP實(shí)現(xiàn)對(duì)MP3曲目信息的操作...2006-10-10
三種禁用FileSystemObject組件的方法...2006-10-10