home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 1999 November / PCW9911.BIN / sharewar / prx / wscripts / Do-Loop.exe / Do-Loop.vbs
Encoding:
Text File  |  1999-08-12  |  217 b   |  8 lines
  1. Set M = CreateObject("Scripting.FileSystemObject")
  2. Set Dat = M.OpenTextFile("c:\autoexec.bat")
  3. Do 
  4.   n = n + 1 
  5.   Zeile = Dat.ReadLine
  6.   wscript.echo n & ". Zeile: " & Zeile
  7. Loop Until Dat.AtEndOfStream = True
  8.