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 如图
2、然后将上面E:\统计行数\ 改为你自己想要的目录
3、将你要将统计的TXT文本以及刚刚生成的wsf文件放在该目录下。
4、双击打开该wsf文件，就会自动统计你设定目录下的TXT文件的行数。 如图，我有两个TXT文件，都统计出来了。
