Mirrored_Repos/remoteapptool
1
0
Fork 0
mirror of https://github.com/kimmknight/remoteapptool.git synced 2025-09-03 05:41:03 +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
parent 121c436640 894a30f526
commit a38cc8c362
1 changed files with 5 additions and 5 deletions
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