[VBS] Count number of rows in text file

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

‘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

Entry filed under: IT/Soft. Tags: .

“A Little Thing Called Love” Songs Pass

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Trackback this post  |  Subscribe to the comments via RSS Feed


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

Categories


%d bloggers like this: