On Error Resume Next

Dim fs, a, stringa, blank

Set fs = CreateObject("Scripting.FileSystemObject")

Err=0

Set a = fs.OpenTextFile("C:\test.csv", 8,0)

If Err<>0 Then Set a = fs.CreateTextFile("C:\test.csv", true): a.Close : Set a = fs.OpenTextFile("C:\test.csv", 8,0)

stringa=";"+CStr(Date)+";"+CStr(Time)

blank=" "

a.WriteLine(CStr(Q_c_poliolo)+Stringa): a.WriteLine(CStr(Q_c_mdi)+Stringa)

a.WriteLine(CStr(Q_c_pentano)+Stringa): a.WriteLine(CStr(Q_c_cat1)+Stringa)

a.WriteLine(CStr(Q_c_cat2)+Stringa): 

a.WriteLine(blank)

a.Close

Call PtFct.Visualizza_testo_segnalaz_sistema("L'esportazione di valori di processo in C:\test.csv è stata eseguita con successo.")