Sprawdzanie czy plik jest pusty można w łatwy sposób zaimplementować do naszych codziennych skryptów administracyjnych, zmieniając warunek na np: wyślij plik mailem jeżeli nie jest pusty....
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("C:\Windows\Netlogon.log")
If objFile.Size > 0 Then
Set objReadFile = objFSO.OpenTextFile("C:\Windows\Netlogon.log", 1)
'otwieramy plik do odczytu
strContents = objReadFile.ReadAll
'wczytujemy całą zawartość pliku do zmiennej
Wscript.Echo strContents
'wypisujemy zawartość pliku
objReadFile.Close Else
Wscript.Echo "Plik jest pusty."
End If
Share Link: 
