how to find the file is empty or not?

[ankush]

Hi,

i will receive lot of files every day, is there any way, with which i can find the empty files or the files with less than 5 records.

thank you

[ghostdog74]

vbscript

Code: [Select]

Set objFSO = CreateObject("Scripting.FileSystemObject")
strMyFile = "c:\test\new.txt"
i=0
Set objFS = objFSO.GetFile(strMyFile)
If objFS.Size = 0 Then
WScript.Echo "0 size file: " & objFSO.GetFile(strMyFile).Name
Else
    Set objFS = objFSO.OpenTextFile(strMyFile)
    Do Until objFS.AtEndOfLine
    objFS.ReadLine
i=i+1
Loop
WScript.Echo i
If i < 5 Then
WScript.Echo "File: " & strMyfile & " has less than 5 records "
End If
End If


save as script.vbs and on command line

Code: [Select]

c:\test> cscript /nologo script.vbs


[ankush]

Hi,
this code is super, it works very good, but can you help in adding few more things to it, like can i give the directory path and work on all the file in the directory, and how can it get the email of this result.

thank you

[ankush]

Hi,

i will receive lot of files every day, is there any way, with which i can find the empty files or the files with less than 5 records.

thank you