Option Explicit
PFAD = "t:\ab_vw\statistik\vbs\EMgr\"
Dim FSO, Datei, TextDatei, AnzZeile
 
Set FSO = CreateObject("Scripting.FileSystemObject")
 
For Each Datei in FSO.GetFolder(PFAD).Files
  AnzZeile = 0
  If LCase(FSO.GetExtensionName(Datei.Path)) = "txt" Then
    Set TextDatei = FSO.OpenTextFile(Datei.Path)
    Do Until TextDatei.AtEndOfStream 
      TextDatei.Readline 
      AnzZeile = AnzZeile + 1 
    Loop 
  Wscript.Echo Datei.Path & " " & AnzZeile
  End If
Next