Skrypt który bada ile linii jest w pliku txt, i w oparciu o to generuje komunikat, mail'a lub inną akcję,
Skrypt taki potrzebowałem do informowania o problemie ale co jakiś czas, skrypt wykonuje akcję co 50 lub co 100 wpisów a uruchamiany jest co 10 minut więc maila dostaję co jakiś czas, a nie zapycham sobie skrzynki za każdym uruchomieniem skryptu.
znajdziecie tu licznik linii w pliku txt, zapis do logu,
Option Explicit
'--------------------------------------------
Function FileLineCount(strFileName)
'Create a File System Object
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
'Get the file contents
Dim MyFileContents
Set MyFileContents = fso.OpenTextFile(strFileName, 1, False)
'Loop through counting the lines
Dim lngLineCount: lngLineCount=0
Do While Not MyFileContents.AtEndOfStream
lngLineCount = lngLineCount + 1
MyFileContents.ReadLine
Loop
'Return the file's line count
FileLineCount = lngLineCount
'Cleanup
MyFileContents.Close
Set MyFileContents = Nothing
Set fso = Nothing
End Function
......aby zobaczyć cały artykuł zaloguj się lub zarejestruj.....
Share Link: 
