VB脚本，用于计算行数

Question

我写了一个VB脚本来计算几个CSV文件的行数，并将文件名和行数保存在FileRecordCount.CSV文件中的文件中。该代码根本没有显示任何错误
但是脚本根本不起作用。我不知道问题出在哪里。任何帮助任何帮助都将不胜感激！？？？？

Const ForReading = 1
Const ForWriting = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
vbsFile = Wscript.ScriptName
vbsFilePath = Wscript.ScriptFullName
sFolder = left(vbsFilePath,len(vbsFilePath)-(len(vbsFile)+1))
ResultsFile = sFolder & "FileRecordCount.csv"
For Each objFile In objFSO.GetFolder(sFolder).Files
If UCase(objFSO.GetExtensionName(objFile.Name)) = "CSV" Then
oFile =  objFile.path
Set objFile = objFSO.OpenTextFile(oFile, ForReading)
RowCount = 0
Do Until objFile.AtEndOfStream
WScript.Echo objFile.ReadLine
RowCount = RowCount + 1
Loop
'need to make a new file to write the results to
FileName = objFSO.GetFileName(ResultsFile)
strText = FileName & "," & RowCount
Set objFile = objFSO.OpenTextFile(ResultsFile, ForWriting)
objFile.WriteLine strText
objFile.Close
End if
Next
MsgBox "FileRowCount Complete"

Answer 1

脚本有多个问题。首先，正如@Flakes所说，相同的objFile变量用于正在处理的文件和结果文件。其次，结果文件名被写入到结果文件中，而不是每个处理过的文件名。此外，变量"；o文件"是一个字符串，因此最好命名为"；strFile"并且可以更优雅地导出脚本路径目录。此外，根据@Flakes，我将结果文件在循环之前打开，在循环之后关闭，并使用.txt扩展名命名结果文件，这样它就不会被处理为CSV文件之一。还为打开的结果文件添加了Create=True标志，因此它不必预先存在。

这是经过编辑的脚本：

Const ForReading = 1
Const ForWriting = 2
Const Create = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
sFolder = objFSO.GetParentFolderName(WScript.ScriptFullName)
ResultsFile = sFolder & "FileRecordCount.txt"
Set objResultsFile = objFSO.OpenTextFile(ResultsFile, ForWriting, Create)
For Each objFile In objFSO.GetFolder(sFolder).Files
If UCase(objFSO.GetExtensionName(objFile.Name)) = "CSV" Then
strFile =  objFile.path
Set objReadFile = objFSO.OpenTextFile(strFile, ForReading)
RowCount = 0
FirstLine = True
Do Until objReadFile.AtEndOfStream
Line = objReadFile.ReadLine
RowCount = RowCount + 1
If FirstLine Then ColumnCount = UBound(Split(Line,",")) + 1
FirstLine = False
Loop
objReadFile.Close
strText = strFile & "," & RowCount & "," & ColumnCount
objResultsFile.WriteLine strText
End if
Next
objResultsFile.Close
WScript.Echo "File row/column count complete"