如何统计TXT记事本文本的行数

1、第一种方法是：新建一个TXT文本，将下面的代码复制进去：<job id="HowManyLines"><script language="VBScript">Const ForReading = 1Dim objFSO, fold, f, strMsg, fileNames(100), objFile, lineCount(100),files,iset objFSO = CreateObject("Scripting.FileSystemObject")set fold = objFSO.GetFolder("E:\统计行数\")set files = fold.FilesFor Each f in filesIf objFSO.GetExtensionName(f) = "txt" ThenSet objFile = objFSO.OpenTextFile(f, ForReading)Do While objFile.AtEndOfStream <> TrueobjFile.ReadLinelineCount(i) = lineCount(i) + 1LoopobjFile.ClosefileNames(i) = f.Namei = i + 1End IfNextstrMsg = ""For i = 0 To UBound(fileNames)If fileNames(i)<>"" ThenstrMsg = strMsg & fileNames(i) & ":" & lineCount(i)strMsg = strMsg & Chr(13)End IfNextMsgBox(strMsg)</script></job>然后保存，并将TXT文本的后序格式名改为：wsf 如图

3、将你要将统计的TXT文本以及刚刚生成的wsf文件放在该目录下。