fichier carte SD
Posté : 06 mai 2019, 11:43
Bonjour j'aimerai créer un fichier directement sur la carte SD de l'écran IHM. Quand je créer 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…
Dans le fichier joint , l'endroit ou le fichier doit apparaitre
Merci
Code : Tout sélectionner
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 SubDans le fichier joint , l'endroit ou le fichier doit apparaitre
Merci