Hello dear colleagues. 

I have a simple task from my customer: every day send Achieved file of AuditTrail  into his shared directory in his network using Comfort Panel TP700. If in that moment the server will be not accessible (no connection, no cable plugged etc) this procedure will not executed and the auditTrail (or data log) log will continued. After the server will be accessible again - the script will repeat the procedure:

1. Stop all logs
2. Close all logs
3. Achieve logs
4. Open all logs
5. Start alla logs

        It seems not very hard to do: see this tips Check access and exactly this code:  

Dim fso, result
Set fso= CreateObject("Filectl.filesystem")
If fso.dir(path)="" Then
result= 1
Else
result= 0
End If
Set fso= Nothing

 I supposed i can use the same mechanism to check if our network directory is available or not. In parallel i created the similar check by trying to read file TEST.txt from the same directory using this code: 

Dear Hadok

I'm doing a project ussing the script and function “FileCtl.File" in TP700 v17 with tia portal v19 to save data from plc to csv, but does not work, i've seen that in your post the issue was similar, could you solve?

Thanks in advances

Dear Murof

Thanks for answer!

The panel show this alarms:

CreateObject("FileCtl.File") → Error 800A01AD / "Object required"

CreateObject("Scripting.FileSystemObject") → Error 800A01AD / "Object required

Message number 60000 Error writting: Object required

My code is reading a bool from plc with a 1m task, then create a csv file with name from plc and current data and insert each minute data from plc.

I tested several times in simulation mode and is working but no in the panel.

I don't know if the problem is the panel version, i was thinking upgrade to v15 but i would like keep this version.

Thanks in advances!

  Dim startLogging, CB_LoggingActive
  Dim f, fileName, folderPath, fullPath
  Dim lote, receta, nota1, nota2, nota3
  Dim dt, timestamp, fechaFormateada
  Dim rawSPVac, rawSPVacBase, rawSPVacExp
  Dim SPTemp, Temp, SPVac, SPVacBase, SPVacExp, Vac, Vac_Base, Vac_Exp

  startLogging  = SmartTags("CB_CB_StartAutoFD")
  CB_LoggingActive = SmartTags("CB_LoggingActive")

  ' Reset si no estamos en ciclo
  If startLogging = False Then
    SmartTags("CB_LoggingActive") = False
    SmartTags("CB_GeneratedFileName") = ""
  End If

  ' FLANCO DE SUBIDA: crear archivo nuevo
  If startLogging = True And CB_LoggingActive = False Then
    dt = Now
    timestamp = Right("0"&Day(dt),2) & "_" & Right("0"&Month(dt),2) & "_" & Year(dt) & "_" & _
                Right("0"&Hour(dt),2) & "_" & Right("0"&Minute(dt),2)

    fileName = SmartTags("HMI_FileName") & "_" & timestamp & ".csv"
    SmartTags("CB_GeneratedFileName") = fileName
    SmartTags("CB_LoggingActive") = True

    ' Lectura de campos
    lote   = SmartTags("RP_RP_RecipeLote")
    receta = SmartTags("RP_RP_RecipeName")
    nota1  = SmartTags("RP_RP_RecipeNotas1")
    nota2  = SmartTags("RP_RP_RecipeNotas2")
    nota3  = SmartTags("RP_RP_RecipeNotas3")

    folderPath = "\Storage Card USB\"    
    fullPath   = folderPath & fileName

    On Error Resume Next
      Set f = CreateObject("FileCtl.File")
      f.Create fullPath        ' crea o sobrescribe y abre el archivo
      f.Write "Nombre de Lote:;" & lote & vbCrLf
      f.Write vbCrLf
      f.Write "Nombre de Receta:;" & receta & vbCrLf
      f.Write vbCrLf
      f.Write "Notas1:;" & nota1 & vbCrLf
      f.Write vbCrLf
      f.Write "Notas2:;" & nota2 & vbCrLf
      f.Write vbCrLf
      f.Write "Notas3:;" & nota3 & vbCrLf
      f.Write vbCrLf
      f.Write "Fecha;SP Temp;Temp;SP Vac;SP Vac Base;SP Vac Exp;Vac;Vac Base;Vac Exp" & vbCrLf
      f.Close
      Set f = Nothing
      If Err.Number <> 0 Then
        ShowSystemAlarm "Error creando archivo: " & Err.Description
        Err.Clear
      End If
    On Error GoTo 0
  End If

  ' ESCRITURA DE DATOS (append)
  If startLogging = True Then
    rawSPVac     = SmartTags("HMI_Vacuum_Setpoint")
    rawSPVacBase = SmartTags("HMI_VacuumSPBase")
    rawSPVacExp  = SmartTags("HMI_VacuumSPExp")

    SPTemp = FormatNumber(SmartTags("HMI_ShelfCooling_setpoint"),2,-1,0,-1)
    Temp   = FormatNumber(SmartTags("HMI_Shelf_Temp"),2,-1,0,-1)

    If rawSPVac >= 1000 Then
      SPVac = "-" : SPVacBase = "-" : SPVacExp = "-"
    Else
      SPVac     = FormatNumber(rawSPVac,8,-1,0,-1)
      SPVacBase = FormatNumber(rawSPVacBase,2,-1,0,-1)
      SPVacExp  = FormatNumber(rawSPVacExp,2,-1,0,-1)
    End If

    Vac      = FormatNumber(SmartTags("HMI_ChamberVacuum1"),8,-1,0,-1)
    Vac_Base = FormatNumber(SmartTags("PP_PP_ChamberVacuumFRG720Base"),2,-1,0,-1)
    Vac_Exp  = FormatNumber(SmartTags("PP_PP_ChamberVacuumFRGExp"),2,-1,0,-1)

    dt = Now
    fechaFormateada = Right("0"&Day(dt),2) & "/" & Right("0"&Month(dt),2) & "/" & Year(dt) & " " & _
                      Right("0"&Hour(dt),2) & ":" & Right("0"&Minute(dt),2)

    folderPath = "\Storage Card USB\"
    fullPath   = folderPath & SmartTags("CB_GeneratedFileName")

    On Error Resume Next
      Set f = CreateObject("FileCtl.File")
      f.Open fullPath          ' abre para append
      f.Write fechaFormateada & ";" & SPTemp & ";" & Temp & ";" & SPVac & ";" & _
              SPVacBase & ";" & SPVacExp & ";" & Vac & ";" & Vac_Base & ";" & Vac_Exp & vbCrLf
      f.Close
      Set f = Nothing
      If Err.Number <> 0 Then
        ShowSystemAlarm "Error escribiendo: " & Err.Description
        Err.Clear
      End If
    On Error GoTo 0
  End If