Delete Last Line

'Delete Last line on csv file

Const ForReading = 1

Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile("C:\Users\" & myUser & "\Documents\Messages\msg.msg", ForReading)

strFile = objFile.ReadAll

objFile.Close

intLength = Len(strFile)

strEnd = Right(strFile, 2)

If strEnd = vbCrLf Then

strFile = Left(strFile, intLength - 2)

Set objFile = objFSO.OpenTextFile("C:\Users\" & myUser & "\Documents\Messages\msg.msg", ForWriting)

objFile.Write strFile

objFile.Close

End If