forked from Mirrors/freeswitch
21 lines
733 B
Plaintext
21 lines
733 B
Plaintext
|
Const OpenAsASCII = 0 ' Opens the file as ASCII (TristateFalse)
|
||
|
|
Const OpenAsUnicode = -1 ' Opens the file as Unicode (TristateTrue)
|
||
|
|
Const OpenAsDefault = -2 ' Opens the file using the system default
|
||
|
|
|
||
|
|
Const OverwriteIfExist = -1
|
||
|
|
Const FailIfNotExist = 0
|
||
|
|
Const ForReading = 1
|
||
|
|
Set objArgs = WScript.Arguments
|
||
|
|
|
||
|
|
' path to original log file
|
||
|
|
sFileName = objargs(0)
|
||
|
|
|
||
|
|
Set oFSO = CreateObject("Scripting.FileSystemObject")
|
||
|
|
Set fOrgFile = oFSO.OpenTextFile(sFileName, ForReading, FailIfNotExist, OpenAsASCII)
|
||
|
|
sText = fOrgFile.ReadAll
|
||
|
|
fOrgFile.Close
|
||
|
|
sText = Replace(sText, vbLf, vbCrLf)
|
||
|
|
Set fNewFile = oFSO.CreateTextFile(sFileName, OverwriteIfExist, OpenAsASCII)
|
||
|
|
fNewFile.WriteLine sText
|
||
|
|
fNewFile.Close
|