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 Sub
Dans le fichier joint , l'endroit ou le fichier doit apparaitre
Merci