Mirrored_Repos/remoteapptool
1
0
Fork 0
mirror of https://github.com/kimmknight/remoteapptool.git synced 2024-09-19 16:31:30 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #30 from kimmknight/issue28

Browse Source 
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
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