Код: Выделить всё
i_=1
Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.OpenTextFile("C:\base.txt", 1) 'менял на \Storage Card USB\
For i_=1 To 20
Str(i_) = CInt(File.Read(5)) 'чтение констант из фала
File.SkipLineFail_const
Next
File.Close
В чем нюанс?
Еще вопрос. Если я адресуюсь на \Storage Card SD\ в симуляции, то фактически куда адресуется HMI?