From fab2cfbdd4445768de18f78d6b6e7b22109b3a99 Mon Sep 17 00:00:00 2001 From: Daniel Sousa Date: Wed, 14 Jun 2023 18:40:47 +0100 Subject: [PATCH] Fix wix detection --- RDP2MSILib/RDP2MSILib.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/RDP2MSILib/RDP2MSILib.vb b/RDP2MSILib/RDP2MSILib.vb index 408033d..8c28449 100644 --- a/RDP2MSILib/RDP2MSILib.vb +++ b/RDP2MSILib/RDP2MSILib.vb @@ -152,13 +152,13 @@ Public Class RDP End Function Private Function WixPath() - Dim searchExe = "\candle.exe" + Dim searchExe = "candle.exe" WixPath = "" If Not Environment.GetEnvironmentVariable("WIX") = "" Then WixPath = Environment.GetEnvironmentVariable("WIX") & "bin" - ElseIf My.Computer.FileSystem.DirectoryExists(My.Application.Info.DirectoryPath & "\wix\" & searchExe) Then + ElseIf My.Computer.FileSystem.FileExists(My.Application.Info.DirectoryPath & "\wix\" & searchExe) Then WixPath = My.Application.Info.DirectoryPath & "\wix" - ElseIf My.Computer.FileSystem.DirectoryExists(My.Application.Info.DirectoryPath & "\wix\bin\" & searchExe) Then + ElseIf My.Computer.FileSystem.FileExists(My.Application.Info.DirectoryPath & "\wix\bin\" & searchExe) Then WixPath = My.Application.Info.DirectoryPath & "\wix\bin" End If End Function