zabpehely
/
remoteapptool
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 2 Wiki Activity

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
parent 121c436640 894a30f526
commit a38cc8c362
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
remoteapp-tool/LocalFtaModule.vb
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