文件名保存为.wsf文件即可分析文件夹中每个文件的行数

<job id="HowManyLines">

<script language="VBScript">

Const ForReading = 1

Dim objFSO, fold, f, strMsg, strMsgCount,fileNames(100), objFile, lineCount(100),files,i

set objFSO = CreateObject("Scripting.FileSystemObject")

set fold = objFSO.GetFolder("C:\Users\wangjingzhi\Desktop\审计接口\导出\DatabaseScript\Bizsys\")

set files = fold.Files

For Each f in files

If objFSO.GetExtensionName(f) = "sql" Then

Set objFile = objFSO.OpenTextFile(f, ForReading)

Do While objFile.AtEndOfStream <> True

objFile.ReadLine

lineCount(i) = lineCount(i) + 1

Loop

objFile.Close

fileNames(i) = f.Name

i = i + 1

End If

Next

strMsg = ""
strMsgCount=0
For i = 0 To UBound(fileNames)

If fileNames(i)<>"" Then

strMsg = strMsg & fileNames(i) & ":" & lineCount(i)

strMsg = strMsg & Chr(13)
strMsgCount=strMsgCount +lineCount(i)
End If

Next

MsgBox(strMsg)
MsgBox(strMsgCount)
</script>

</job>