Mirrored_Repos/remoteapptool
1
0
Fork 0
mirror of https://github.com/kimmknight/remoteapptool.git synced 2024-09-19 08:21:31 +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 Public Function DoesFTAExist(fileExtension As String) As Boolean
fileExtension = fileExtension.TrimStart(".") fileExtension = fileExtension.TrimStart(".")
Dim FTAexists As Boolean = False Dim FTAexists As Boolean = False
Dim HKCRext As String = ""
Try If Not (My.Computer.Registry.ClassesRoot().OpenSubKey("." & fileExtension) Is Nothing) Then
HKCRext = My.Computer.Registry.ClassesRoot().OpenSubKey("." & fileExtension).ToString
FTAexists = True FTAexists = True
Catch ex As Exception End If
End Try
Return FTAexists Return FTAexists
End Function End Function
Public Function IsFTAMine(fileExtension As String) As Boolean Public Function IsFTAMine(fileExtension As String) As Boolean
fileExtension = fileExtension.TrimStart(".") fileExtension = fileExtension.TrimStart(".")
IsFTAMine = False IsFTAMine = False