Forum-Automatisme

Fichier sur carte SD

Marque: Autres / Domaine: Portail Battant / Général
AnissaUchiha - 06/05/2019 11:43:03

Bonjour j'aimerai créer un fichier directement sur la carte SD de l'écran IHM winCC (Siemens) . Quand je créée un dossier cela fonctionne mais pour créer un fichier je ne le voit pas apparaitre sur la carte SD pourtant j'ai suivi les instructions sur le site Siemens…

voici le code ==>

Sub CreationFichierTest()
Dim FileWay ,Folder, ObjectWay , FileName , File , FileExist, header , currentTIme
Const NEU = 0


FileWay = "\Storage Card SD\TestAuditAnissa.csv"

On Error Resume Next
' creation object
Set File = CreateObject ("FileCTL.FileSystem")


'verifie si une erreur est apparu
If Err.Number 0 Then
ShowSystemAlarm "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If


File.open FileWay , 8

If Err.Number 0 Then
ShowSystemAlarm "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If

currentTIme = Hour(Time) & ":" & Minute(Time) & ":" & Second(Time)

'ecrit les titres des colonnes si le fichier est nouveau

If File.LOF = NEU Then
File.LinePrint ("Temps ; Utilisateur ; Position Drive Rot ; Position Drive Z")
End If

' écrire les données dans colonnes
File.LineWrite( currentTIme & ";" & SmartTags("HMI_To_PLC_GroupeUtilisateur") & ";" & SmartTags("PLC_TO_HMI_Robot.Rot.CurrentPosition") & ";" & SmartTags("PLC_TO_HMI_Robot.Z.CurrentPosition"))
File.Close

Set File = Nothing

ShowSystemAlarm "Storage of data was successful! "


End Sub

Répondre au sujet


Veuillez recopier les nombres suivants dans la case adjacente7418