Прочитать все файлы в папке

Dim objFS, objItem, objFile, strPath, arrTemp, strTemp, intTemp, strList, i
strPath = "d:\"
Set objFS = CreateObject("Scripting.FileSystemObject")
If objFS.FolderExists(strPath) Then
    For Each objItem In objFS.GetFolder(strPath).Files
        If LCase(Right(objItem.Name, 4)) = ".txt" Then
            Set objFile = objFS.OpenTextFile(objItem.Path, 1)
            arrTemp = Split(objFile.ReadAll, vbNewLine)
            objFile.Close
            For i = 0 To UBound(arrTemp)
                If Len(arrTemp(i)) > intTemp Then intTemp = Len(arrTemp(i)): strTemp = arrTemp(i)
            Next
            strList = strList & "Файл: " & objItem.Name & vbNewLine & _
                    "Макс. длина строки: " & CStr(intTemp) & vbNewLine & _
                    "Строка: " & strTemp & vbNewLine & "---" & vbNewLine
            intTemp = 0: strTemp = vbNullString
        End If
    Next
    Erase arrTemp: Set objFile = Nothing: Set objItem = Nothing
    WScript.Echo strList
Else
    WScript.Echo "Не найден путь " & strPath
End If
Set objFS = Nothing
WScript.Quit 0