- inserita cancellazione file in try catch

2024-12-20 16:50:12 +01:00
parent 8808ebdb2b
commit 388fc51a37
1 changed files with 21 additions and 17 deletions
@@ -165,6 +165,7 @@ Public Class DoorListPageVM
            Dim sGenDDFDirPath As String = ""
            GetPluginPrivateProfileString(S_GENERAL, K_GENDDFDIR, "", sGenDDFDirPath)
            Dim sDoorFileName As String = CurrRequestDoor.sDDFName & "_" & CurrRequestDoor.nId
+            Try
               File.Delete(sGenDDFDirPath & "\" & sDoorFileName & ".tok")
               File.Delete(sGenDDFDirPath & "\" & sDoorFileName & "_2.tok")
               File.Delete(sGenDDFDirPath & "\" & sDoorFileName & ".cnc")
@@ -182,6 +183,9 @@ Public Class DoorListPageVM
               File.Delete(sGenDDFDirPath & "\" & CurrRequestDoor.sDDFName & ".txt")
               File.Delete(sGenDDFDirPath & "\" & sDoorFileName & ".txt")
               File.Delete(sGenDDFDirPath & "\" & sDoorFileName & "_2.txt")
+            Catch ex As Exception
+
+            End Try
         End If
         WriteBackup()
         ArgumentsResult = m_ExecProcessManager.ArgumentsResultDequeue