Merge pull request #30 from kimmknight/issue28

Addressed issue 28 by handling cases where OpenSubKey returns nothing
This commit is contained in:
Mr. Brian Gale 2020-08-20 08:56:38 -06:00 committed by GitHub
commit a38cc8c362
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -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