[Iska]

Код:

Option Explicit

Sub SampleReading()
    Dim i As Long
    Dim strContent As String
    
    
    With CreateObject("Scripting.FileSystemObject")
        strContent = ""
        
        With .OpenTextFile("c:\Windows\win.ini")
            .SkipLine
            
            For i = 2 To 5
                strContent = strContent & .ReadLine() & vbCrLf
            Next
            
            MsgBox strContent
            
            .Close
        End With
    End With
End Sub

А зачем Вам?

[Ragnazar]

Я -бы использовал такое для чтения заранее подготовленного текста
Например в автозагрузку Батник

Код:

@echo off
echo %date% %time% >> %windir%/win.ini

Скрипт который будет будет писать в файл время и дату запуска
А ваш скрипт будет выводить информацию
Но как стереть строки?

Подскажите подобный скрипт как у меня но для VBS