Correzione creazione file NewClick,txt

2023-07-17 09:51:25 +02:00
parent b95dd8f41d
commit 60eda04669
1 changed files with 3 additions and 1 deletions
@@ -515,7 +515,9 @@ Public Class CNCommunication
            If nClickState = 1 Then
               ' procedo a costruire un nuovo file nella cartella indicata in configurazione
               Try
-                  File.Create(m_MainWindow.m_CurrentMachine.sClickDir & "\NewClick.txt")
+                  Dim fs As FileStream = File.Create(m_MainWindow.m_CurrentMachine.sClickDir & "\NewClick.txt")
+                  ' chiudo il file creato
+                  fs.Close()
                  ' Dichiaro di aver provveduto a comunicare di scattare la foto
                  m_CN.DVariables_WriteVariables2(m_MainWindow.m_CurrentMachine.sClickState, "0")
               Catch ex As Exception