Need to create a log file

[Ankor]

Hello all!

Does anybody know the way to create some king of a log file and send data to it from the web page. In other words, I want to be able to send my data not to the SQL or Access table, but to the .txt or .csv file. Every new record should be appended to the existing list. The whole point of having this code is to have a backup of the tables that are already connected to this web page. On the other hand, I don't want to have another table in SQL that will store the backup. Is there a way?

I appreciate your ideas.

 

[FengShui1998]

Ankor,

You can use this function to log a string to a file,

fengshui_1998



LogFile = "C:\Mydir\MyLogFile.txt"
strMsg = "Test string to log file"

Log_Report( LogFile, strMsg)

' *********************************
Sub Log_Report(strFile, LogMsg)
' *********************************
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set Fso = CreateObject("Scripting.FileSystemObject&quot
If NOT fso.FileExists(strFile) then
Set objRpt = fspenTextFile(strFile, ForWriting, TRUE)
Else
Set objRpt = fspenTextFile(strFile, ForAppending, TRUE)
End If
objRpt.write LogMsg
objRpt.writeblanklines(1)
objRpt.close
Set objRpt = Nothing

End Sub

 

[Ankor]

Thank you!!!

 

[FesterSXS]

For info, your code...

Set objRpt = fso.OpenTextFile(strFile, ForAppending, TRUE)

...will create the text file if it doesn't already exist so you don't need to check for it first.

regards Tony

http://www.phoenix-paints.co.uk/portfolio

 

[Ankor]

Hmmmm.... Again, here is a code:
If NOT fso.FileExists(strFile) then
Set objRpt = fspenTextFile(strFile, ForWriting, TRUE)
Else
Set objRpt = fspenTextFile(strFile, ForAppending, TRUE)
End If

Doesn't it mean that if the file does not exist, then the code creates it in any case (TRUE)? Since the first time we create the file and open it ForWriting, this TRUE clouse is not needed in the second case? Isn't it?

Thank you for your help!
Ankor

 

[FengShui1998]

Ankor,

Sorry, I overlooked the meanigng of TRUE. You can just use this statement

Set objRpt = fspenTextFile(strFile, ForAppending, TRUE)

fengshui_1998

 

[Ankor]

I got it. Thanks. Your advise was very useful.

Ankor