vbs程序获取指定文件夹下所有文件总行数

在VBScript中，你可以使用`FileSystemObject`来访问文件系统，并结合循环遍历文件夹内的文本文件，统计每一行。下面是一个简单的示例，它会获取指定文件夹下的所有文本文件（`.txt`格式）的总行数：

Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("C:\YourFolderPath") ' 替换为你想要查询的实际文件夹路径

totalLines = 0
For Each file In folder.Files
    If LCase(file.Extension) = ".txt" Then ' 只处理.txt文件
        Set textFile = fso.OpenTextFile(file.Path)
        totalLines = totalLines + textFile.Lines.Count
        textFile.Close
    End If
Next file

WScript.Echo "Total lines in all .txt files: " & totalLines

这个脚本首先创建一个`FileSystemObject`实例，然后通过`GetFolder`方法获取文件夹对象。接着，对文件夹内的每个文件做迭代，检查是否是`.txt`文件，如果是，则打开文本文件并计算行数，最后累加到`totalLines`变量中。最后打印出总行数。

相关问题

vbs获取文件夹下个文件的文本行数

在VBS中，如果你想要获取特定文件夹下的所有文本文件的行数总和，可以使用`FileSystemObject`对象遍历文件夹并统计每一文件的行数。这里有一个示例脚本：

Option Explicit
Dim fso, folder, files, lineCount, totalLines

Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("\\path\to\your\folder") ' 替换为实际的文件夹路径

lineCount = 0
totalLines = 0

For Each file In folder.Files
    If UCase(LCase(file.Extension)) = ".txt" Then ' 只考虑文本文件
        Set textFile = fso.OpenTextFile(file.Path, 1)
        totalLines = totalLines + LineCount(textFile) ' 累加行数
        textFile.Close
    End If
Next

Function LineCount(file)
    Dim lines, line
    Set lines = Split(file.ReadAll, vbCrLf)
    LineCount = UBound(lines) + 1 ' 一行结尾通常会有换行符，所以加1
End Function

Wscript.Echo "文件夹下所有.txt文件的总行数: " & totalLines

Set fso = Nothing

此脚本首先创建一个`FileSystemObject`实例，然后获取指定文件夹及其所有子文件。接着检查每个文件是否是`.txt`类型的文本文件，并使用`LineCount`函数计算每文件的行数。最后，将所有文本文件的行数相加得到总行数。

在window环境下，写一个计算文件夹下所有文件的总行数的小工具

在Windows环境下，编写一个计算文件夹下所有文本文件总行数的小工具，我们可以采用VBS（Visual Basic Scripting）或者批处理（Batch）语言来完成。这里我们以VBS为例，因为它可以直接运行而无需额外的解释器：

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colFiles = objFSO.GetFolder("指定的文件夹路径").Files ' 指定你要遍历的文件夹

For Each file In colFiles
    If LCase(file.Extension) = ".txt" Then ' 只处理.txt类型的文本文件
        Set objFile = objFSO.OpenTextFile(file.Path)
        totalLines += objFile.ReadAll().Split(vbCrLf).Length ' 加总行数，vbCrLf是换行符
        objFile.Close
    End If
Next

Wscript.Echo "Total lines in all .txt files: " & totalLines ' 输出结果

把这个VBS脚本保存为一个`.vbs`文件，比如`count_lines.vbs`，然后双击运行即可。你需要替换`"指定的文件夹路径"`为你实际需要检查的文件夹路径。