From 894a30f52602b10479338046f9a7563b73f6aff7 Mon Sep 17 00:00:00 2001
From: Kim <kimknight@gmail.com>
Date: Sun, 16 Aug 2020 02:39:04 +1000
Subject: [PATCH] Addressed issue 28 by handling cases where OpenSubKey returns
 nothing (key does not exist)

---
 remoteapp-tool/LocalFtaModule.vb | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/remoteapp-tool/LocalFtaModule.vb b/remoteapp-tool/LocalFtaModule.vb
index 7930383..7be9895 100644
--- a/remoteapp-tool/LocalFtaModule.vb
+++ b/remoteapp-tool/LocalFtaModule.vb
@@ -102,15 +102,15 @@ Module LocalFtaModule
     Public Function DoesFTAExist(fileExtension As String) As Boolean
         fileExtension = fileExtension.TrimStart(".")
         Dim FTAexists As Boolean = False
-        Dim HKCRext As String = ""
-        Try
-            HKCRext = My.Computer.Registry.ClassesRoot().OpenSubKey("." & fileExtension).ToString
+
+        If Not (My.Computer.Registry.ClassesRoot().OpenSubKey("." & fileExtension) Is Nothing) Then
             FTAexists = True
-        Catch ex As Exception
-        End Try
+        End If
+
         Return FTAexists
     End Function
 
+
     Public Function IsFTAMine(fileExtension As String) As Boolean
         fileExtension = fileExtension.TrimStart(".")
         IsFTAMine = False