Skip to content

Commit

Permalink
Fixed exception
Browse files Browse the repository at this point in the history
  • Loading branch information
CodingWonders committed Mar 16, 2024
1 parent 9c5e864 commit aca010e
Show file tree
Hide file tree
Showing 2 changed files with 12 additions and 8 deletions.
Binary file modified Installer/Output/dt_setup.exe
Binary file not shown.
20 changes: 12 additions & 8 deletions Panels/Get_Ops/AppxPkgs/GetAppxPkgInfo.vb
Original file line number Diff line number Diff line change
Expand Up @@ -395,15 +395,19 @@ Public Class GetAppxPkgInfoDlg
Label5.Text = (folder & "\AppxManifest.xml").Replace("\\", "\").Trim()
End If
Next
If pkgDirs.Count <= 1 And Not Label5.Text.Contains(Label23.Text) Then
If File.Exists(pkgDirs(0).Replace("\\", "\").Trim() & "\AppxMetadata\AppxBundleManifest.xml") Then
Label5.Text = pkgDirs(0).Replace("\\", "\").Trim() & "\AppxMetadata\AppxBundleManifest.xml"
ElseIf File.Exists(pkgDirs(0).Replace("\\", "\").Trim() & "\AppxManifest.xml") Then
Label5.Text = pkgDirs(0).Replace("\\", "\").Trim() & "\AppxManifest.xml"
Else
Label5.Text = ""
Try
If pkgDirs.Count <= 1 And Not Label5.Text.Contains(Label23.Text) Then
If File.Exists(pkgDirs(0).Replace("\\", "\").Trim() & "\AppxMetadata\AppxBundleManifest.xml") Then
Label5.Text = pkgDirs(0).Replace("\\", "\").Trim() & "\AppxMetadata\AppxBundleManifest.xml"
ElseIf File.Exists(pkgDirs(0).Replace("\\", "\").Trim() & "\AppxManifest.xml") Then
Label5.Text = pkgDirs(0).Replace("\\", "\").Trim() & "\AppxManifest.xml"
Else
Label5.Text = ""
End If
End If
End If
Catch ex As Exception
MsgBox("Could not get some information about this application.", vbOKOnly + vbCritical, Label1.Text)
End Try
Panel4.Visible = True
Panel7.Visible = False
Else
Expand Down

0 comments on commit aca010e

Please sign in to comment.