Kód: Vybrať všetko

 
Set FSO = CreateObject("Scripting.FileSystemObject")
Set file = FSO.OpenTextFile("C:\Griffin\Stewie\sexy_party.txt", 1)
file.ReadAll
msgbox (file.line)-1

Kód: Vybrať všetko

Dim subor As System.IO.StreamReader = New System.IO.StreamReader("C:\subor.txt")
Dim i As Integer
Do While (subor.Peek > 0)
    subor.ReadLine()
    i = i + 1
Loop
subor.Close()
MsgBox(i)

Kód: Vybrať všetko

Dim stream As System.IO.StreamReader = New System.IO.StreamReader("C:\text.txt")
Dim txt As New TextBox
txt.Text = stream.ReadToEnd
MsgBox(txt.Lines.Length)

Kód: Vybrať všetko

Dim lines() As String
lines = System.IO.File.ReadAllLines("C:\text.txt")
MsgBox(lines.Length)

Kód: Vybrať všetko

Dim a = "aaaaa"
MsgBox(a.GetType.ToString)