Read content of .txt file with VBS Comfort Panel

Hi,

trying to read the data from a .txt-file (first line) on the root directory of a TP1200.

Checking on the existing file and one step ahead - checking the content and afterwards activating the screens.

Unfortunately, the Dir on root does not work properly, anybody up for help/ideas?

 Thanks!

Set fso=CreateObject("FileCtl.FileSystem")
Set fo=CreateObject("FileCtl.File")

If fso.Dir("\1234\txt_file.txt") = "" Then 

'Error
ActivateScreen "Screen",0

ElseIf fso.Dir("\1234\txt_file.txt")= "\1234\txt_file.txt" Then

ActivateScreen "Screen_1",0
End If

Hi,

Try to display what you get with the fso.Dir (filename) command as a system alarm for example.

Regards

Hey,

look to this faq => https://support.industry.siemens.com/cs/ww/en/view/26107211

I mean, this could be a solution for you....

chm357

Hi,

trying to read the data from a .txt-file (first line) on the root directory of a TP1200.

Checking on the existing file and one step ahead - checking the content and afterwards activating the screens.

Unfortunately, the Dir on root does not work properly, anybody up for help/ideas?

 Thanks!

Set fso=CreateObject("FileCtl.FileSystem")
Set fo=CreateObject("FileCtl.File")

If fso.Dir("\1234\txt_file.txt") = "" Then 

'Error
ActivateScreen "Screen",0

ElseIf fso.Dir("\1234\txt_file.txt")= "\1234\txt_file.txt" Then

ActivateScreen "Screen_1",0
End If

 

it works.  

yourTag = fo.LineInputString 'Reads the contents of the first line.

good luck.

Thank you all, that helped a step further

...but I have still troubles with a script triggered by a control button.

surprisingly...if this is executed by another script, the code works...any suggestion so far?

Dim fso, PRFolder

PRFolder = "\My Documents\1234"

Set fso=CreateObject("FileCtl.FileSystem")

If fso.dir(PRFolder)="" Then fso.MkDir PRFolder

Set fso=Nothing

End Sub