Set FSO = CreateObject( "Scripting.FileSystemObject" )
pathScript = FSO.GetParentFolderName( WScript.ScriptFullName )
fileName = pathScript & "\01.data.csv"
fileNameGood = pathScript & "\03.good.csv"
fileTmp = fileName & "~~$.tmp"
ForReading = 1
ForWriting = 2
ForAppending = 8
Set hFileInp = FSO.OpenTextFile( fileName, ForReading )
Set hFileTmp = FSO.OpenTextFile( fileTmp, ForWriting, True )
Set hFileGood = FSO.OpenTextFile( fileNameGood, ForWriting, True ) ' ForAppending для добавления строки
hFileGood.WriteLine( hFileInp.ReadLine )
hFileTmp.Write( hFileInp.ReadAll )
hFileInp.Close
hFileTmp.Close
hFileGood.Close
FSO.GetFile( fileName ).Delete True
FSO.MoveFile fileTmp, fileName |
