Hello guys,

I am trying to write a VB Script that checks if a network location is accessible before it can transfer a log to it. I need this because if I try to move a log to an inaccessible or non-existent address, the HMI will try -indefinitely- to resend the log (every 300 seconds). This is a very annoying issue and I have already started a topic on it (link) but I never got any answer, so I decided to prevent it by first checking the availability of the remote location. 

I have tried using those commands: 

I am using:

- TIA Portal V13 SP1 upd 9

- WinCC comfort runtime

- My HMI is a TP1500 (version 12.0.0.0)

Cheers,
Kostas

 try with   FileCtl.FileSystem

Here is the exception.

Dim fsD
'if error
On Error Resume Next
Set fsD = CreateObject("FileCtl.FileSystem")
If Err.Number <> 0 Then
'Err.Clear
'Exit Sub
End If

 Here check the path.

If fsD.Dir("remotePath") = "" Then
'no exist
ElseIf fsD.Dir("remotePath") = remotePath Then
'exist
End If

good look.

Kostas Patsis

Hello guys,

I am trying to write a VB Script that checks if a network location is accessible before it can transfer a log to it. I need this because if I try to move a log to an inaccessible or non-existent address, the HMI will try -indefinitely- to resend the log (every 300 seconds). This is a very annoying issue and I have already started a topic on it (link) but I never got any answer, so I decided to prevent it by first checking the availability of the remote location. 

I have tried using those commands: 

Set fso = CreateObject("Scripting.FileSystemObject")

fso.DriveExists(remotePath)

 but apparently these are not available and the first one gives an error ('ActiveX cannot create object')

Does anyone have an idea on how I can do that?

I am using:

- TIA Portal V13 SP1 upd 9

- WinCC comfort runtime

- My HMI is a TP1500 (version 12.0.0.0)

Cheers,
Kostas

Dear Kostas Patsis,

on Panels there is running Windows CE. So you have to use expressions von VBS for Windows CE.

More Information you can find in the Programming reference

https://support.industry.siemens.com/cs/ww/en/view/109747176

#####Example Code for write HMI Tag "text1" (string) to file "\flash\text.txt" #######

Dim fs, f, pathFile

Set fs = CreateObject("FileCtl.FileSystem")
Set f = CreateOnject("FileCtl.File")

pathFile = "\flash\text.txt"

If fs.dir(pathFile) <> "" Then
   f.open pathFile, 2
   f.LinePrint(SmartTags("text1")
   f.Close
End if

#####End Code##########

With best regards

rh1990