Creating a Text File and Appending Texts in the file Using VB Script.
Public Function updateLogsFile(Information,Message)
strLogFilePath = "\\testFramework\Automation\ProjectSAP\FICO\Log File.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Time_Stamp = "| " &now& " | " &Information &" | " &Message & " |"
If fso.FileExists(strLogFilePath) Then
Set ts = fso.Opentextfile(strLogFilePath,8)
ts.WriteLine ""&Time_Stamp
Else
Set Text = fso.CreateTextFile(strLogFilePath)
Text.WriteLine ""&Time_Stamp
End If
Set ts = Nothing
Set fso = Nothing
End Function
Public Function updateLogsFile(Information,Message)
strLogFilePath = "\\testFramework\Automation\ProjectSAP\FICO\Log File.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Time_Stamp = "| " &now& " | " &Information &" | " &Message & " |"
If fso.FileExists(strLogFilePath) Then
Set ts = fso.Opentextfile(strLogFilePath,8)
ts.WriteLine ""&Time_Stamp
Else
Set Text = fso.CreateTextFile(strLogFilePath)
Text.WriteLine ""&Time_Stamp
End If
Set ts = Nothing
Set fso = Nothing
End Function
No comments:
Post a Comment
Note: only a member of this blog may post a comment.