Set FSO = CreateObject("Scripting.FileSystemObject")
pathScript = FSO.GetParentFolderName( WScript.ScriptFullName )
fileName = pathScript & "\01.data.csv"
fileNameGood = pathScript & "\03.good.csv"
ForReading = 1
ForWriting = 2
ForAppending = 8
strBuffer = ""
On Error Resume Next
Set hFileInp = FSO.OpenTextFile( fileName, ForReading)
WScriptQuitIfError "Нет доступа или """ & fileName & """ не существует"
If hFileInp.AtEndOfStream Then
hFileInp.Close
WScript.Quit
End If
With FSO.OpenTextFile( fileNameGood, ForAppending, True )
.WriteLine( hFileInp.ReadLine )
.Close
End With
WScriptQuitIfError "Нет прав на запись в файл """ & fileNameGood & """"
If Not hFileInp.AtEndOfStream Then _
strBuffer = hFileInp.ReadAll
hFileInp.Close
With FSO.OpenTextFile( fileName, ForWriting)
.Write( strBuffer )
.Close
End With
WScriptQuitIfError "Нет прав на запись в файл """ & fileName & """"
Function WScriptQuitIfError(errMsg)
If Err.Number Then
MsgBox errMsg, vbCritical
WScript.Quit
End If
End Function |
