Dim f, path
path = "\Storage Card MMC\Posities_Kant_Rechts.csv"
On Error Resume Next
Set f = CreateObject("FileCtl.File")
If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If
f.open path , 2
If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If
f.LinePrint("Positie Aanvoer Pneg; " & Pos_A_neg & ";")
f.LinePrint("Positie Aanvoer P0; " & Pos_A_0 & ";")
f.LinePrint("Positie Aanvoer P1; " & Pos_A_1 & ";")
f.LinePrint("Positie Aanvoer P2; " & Pos_A_2 & ";")
f.LinePrint("Positie Aanvoer P3; " & Pos_A_3 & ";")
f.LinePrint("Positie Aanvoer P4; " & Pos_A_4 & ";")
f.LinePrint("Positie Aanvoer P5; " & Pos_A_5 & ";")
f.LinePrint("Positie Aanvoer P6; " & Pos_A_6 & ";")
f.LinePrint("Positie Aanvoer P7; " & Pos_A_7 & ";")
f.LinePrint("Positie Aanvoer P8; " & Pos_A_8 & ";")
f.LinePrint("Positie Aanvoer P9; " & Pos_A_9 & ";")
f.LinePrint("Positie Aanvoer P10; " & Pos_A_10 & ";")
f.LinePrint("Positie Aanvoer P11; " & Pos_A_11 & ";")
f.LinePrint("Positie Aanvoer P12; " & Pos_A_12 & ";")
f.LinePrint("Positie Aanvoer P13; " & Pos_A_13 & ";")
f.LinePrint("Positie Aanvoer P14; " & Pos_A_14 & ";")
f.LinePrint("Positie Aanvoer P15; " & Pos_A_15 & ";")
f.LinePrint("Positie Aanvoer P16; " & Pos_A_16 & ";")
f.LinePrint("Positie Aanvoer P17; " & Pos_A_17 & ";")
f.LinePrint("Positie Aanvoer P18; " & Pos_A_18 & ";")
f.LinePrint("Positie Ponsbank P1; " & Pos_P_1 & ";")
f.LinePrint("Positie Ponsbank P2; " & Pos_P_2 & ";")
f.LinePrint("Positie Ponsbank P3; " & Pos_P_3 & ";")
f.LinePrint("Positie Afvoer Pneg; " & Pos_F_neg & ";")
f.LinePrint("Positie Afvoer P0; " & Pos_F_0 & ";")
f.LinePrint("Positie Afvoer P1; " & Pos_F_1 & ";")
f.LinePrint("Positie Afvoer P2; " & Pos_F_2 & ";")
f.LinePrint("Positie Afvoer P3; " & Pos_F_3 & ";")
f.LinePrint("Positie Afvoer P4; " & Pos_F_4 & ";")
f.LinePrint("Positie Afvoer P5; " & Pos_F_5 & ";")
f.LinePrint("Positie Afvoer P6; " & Pos_F_6 & ";")
f.LinePrint("Positie Afvoer P7; " & Pos_F_7 & ";")
f.LinePrint("Positie Afvoer P8; " & Pos_F_8 & ";")
f.LinePrint("Positie Afvoer P9; " & Pos_F_9 & ";")
f.LinePrint("Positie Afvoer P10; " & Pos_F_10 & ";")
f.LinePrint("Positie Afvoer P11; " & Pos_F_11 & ";")
f.LinePrint("Positie Afvoer P12; " & Pos_F_12 & ";")
f.Close
Set f = Nothing
ShowSystemAlarm "Storage of the data was successful!"