Archive for October, 2011

[VBS] Count number of rows in text file

‘copied from internet

Note: No blank lines between lines

Set FSO = CreateObject(“Scripting.FileSystemObject”)

Set file = FSO.OpenTextFile(“C:\Documents and Settings\a5105628\Desktop\ITSR44952_aug11.txt”, 1)

file.ReadAll

‘subtract one ReadAll stops at the first blank line

msgbox (file.line)-1

4 October, 2011 at 10:55 am Leave a comment


October 2011
M T W T F S S
« Sep   Dec »
 12
3456789
10111213141516
17181920212223
24252627282930
31