forked from Mirrors/freeswitch
836bd19070
git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@54 d0543943-73ff-0310-b7d9-9358b9ac24b2
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
|