You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
35 lines
1.1 KiB
Plaintext
35 lines
1.1 KiB
Plaintext
Option Explicit
|
|
|
|
Const cMaxLines = 1000000
|
|
Const cMaxSize = 1000
|
|
|
|
Const cstrHistoryFile = "C:\FockeTools\MbProbe\MBProbeHistoryLog.txt"
|
|
Const cstrEventFile = "C:\FockeTools\MbProbe\MBProbeEventLog.txt"
|
|
|
|
Const cstrOldHistoryFile = "C:\FockeTools\MbProbe\MBProbeHistoryLog.old"
|
|
Const cstrOldEventFile = "C:\FockeTools\MbProbe\MBProbeEventLog.old"
|
|
|
|
Const cstrStdHistoryFile = "C:\FockeTools\MbProbe\MBProbeHistoryLog.std"
|
|
|
|
Dim wshshell,fso, Textfile, Lines(1000000),i,StartVal,EndVal
|
|
|
|
Set wshshell = CreateObject("WScript.Shell")
|
|
Set fso = CreateObject("Scripting.FileSystemObject")
|
|
|
|
If fso.FileExists(cstrHistoryFile) Then
|
|
If fso.FileExists(cstrOldHistoryFile) Then
|
|
Call fso.DeleteFile(cstrOldHistoryFile,True)
|
|
End If
|
|
Call fso.MoveFile(cstrHistoryFile, cstrOldHistoryFile)
|
|
Call fso.CopyFile(cstrStdHistoryFile, cstrHistoryFile)
|
|
End If
|
|
|
|
If fso.FileExists(cstrEventFile) Then
|
|
If fso.FileExists(cstrOldEventFile) Then
|
|
Call fso.DeleteFile(cstrOldEventFile,True)
|
|
End If
|
|
Call fso.MoveFile(cstrEventFile, cstrOldEventFile)
|
|
End If
|
|
|
|
WScript.Sleep(120000)
|
|
wshshell.Run("MbProbe.exe") |