Today, when writing programs, I have to repeatedly use writing text files, so I wrote a process function, hoping it will be useful to everyone.
Code:
Sub Write2File(strFile, strContent, blnAppend)
' Write to the file
' strFile file name (path), content written by strContent, whether to append 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
'Fault-tolerant processing
Select Case Err
Case 424 Response.Write "The path is not found or the directory does not have write permission."
' Case Else Response.Write Err.Description
Case Else Response.Write Err
End Select
End Sub
Calling method:
Write2File "c:/dd.ini", "dd", True
or
Call Write2File ("c:/dd.ini", "dd", True)
illustrate:
1. Automatically create files;
2.Catalog cannot be created automatically