Hi,

a few days im trying to solve read file. I am trying to read csv file, which is stored on server. Server require logging in. So i made http connection, fill connecting data. When i start/reload panel, and via file system try to get the destination, there is no problem and other logging in is no necessary. So i though that it is ok. But VB Script is not ok with it. f.Open(FilePath, Mode)  function cry for error 424 object required and when i tried FilePathExist, result was False...

I work with TiaPortal v.14.0 operating on Comfort panel TP1500

Thanks for help and ideas.

 FileName = "\\chmiserver1\sharedata\Material.csv"

Mode = 1

 Path = "\\chmiserver1\sharedata\"

Set fso = CreateObject("FileCtl.File")
If Err.Number <> 0 Then
ShowSystemAlarm "Error create object #" & CStr(Err.Number) &" "& Err.Description
Err.Clear
Exit Sub
End If

exists = fso.FolderExists(Path)
If exists Then
ShowSystemAlarm "OK exist #"
Else
ShowSystemAlarm "Error exist #"
End If
'Open file

Set f = fso.open(FileName, Mode)
If Err.Number <> 0 Then
ShowSystemAlarm "Error open file #" & CStr(Err.Number) &" "& Err.Description
Err.Clear
Exit Sub
End If

'Read values till end of file
Do While Not f.AtEndOfStream
MyZf = f.ReadLine
       ShowSystemAlarm "MyZf - " & CStr(MyZf)
field = Split(MyZf, ";")
       ShowSystemAlarm "Po Split" & CStLoop
f.Close
Set f = Nothing
Set fso = Nothing
ShowSystemAlarm "Readout of the data was successful!"