Odczyt z pliku do tablicy :
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
("c:\kontakty\nazwisko_tel.txt", ForReading)
Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
arrContactList = Split(strNextLine , ",")
Wscript.Echo "Nazwisko: " & arrContactList(0)
For i = 1 to Ubound(arrServiceList)
Wscript.Echo "Telefon: " & arrContactList(i)
Next
Loop
















