HELP with installer popup arrhh!

[a_jam_sandwich]

Right ive make an updater for my App.

 

After updating using the updater, i try running the app from the shortcuts on the desktop created in an vs.net deploment project.

 

Every time I run it the windows installer pops up try to install somthing from the (.msi) setup file.

 

Anyone help as its really bugging me :(

 

Cheers

 

Andy

[a_jam_sandwich]

Right looking into it seams to be somthing abount Strong Names in the setup checking the integraty of the files changes give invalid integraty i.e. the setup starts again

 

When found out how to solve will post

 

Andy

[a_jam_sandwich]

Not what I thought :( HELP

[a_jam_sandwich]

right the problem only arises after this code

 

   Public Function SearchDirectories(ByVal objDirectoryInfo As System.IO.DirectoryInfo) As Boolean
       Dim bolReturn As Boolean = False
       For Each objDirectoryInfo In objDirectoryInfo.GetDirectories
           bolReturn = True
           If objDirectoryInfo.Exists = True And objDirectoryInfo.Name <> "System Volume Information" And objDirectoryInfo.Name <> "RECYCLER" Then
               If SearchDirectories(objDirectoryInfo) = False And SearchFiles(objDirectoryInfo) = False Then
               End If
           End If
       Next
       Return bolReturn
   End Function

   Public Function SearchFiles(ByVal objDirectoryInfo As System.IO.DirectoryInfo) As Boolean
       Dim objFileInfo As System.IO.FileInfo
       Dim bolReturn As Boolean = False
       For Each objFileInfo In objDirectoryInfo.GetFiles
           'bolReturn = True
           'If InStr(objFileInfo.Name, "_") > 0 Then
           'objFileInfo.CopyTo(Replace(objFileInfo.FullName, "_", ""), True)
           'objFileInfo.Delete()
           'End If
       Next
       Return bolReturn
   End Function

   Public Sub CheckDirectories()
       Dim objDirectoryInfo As System.IO.DirectoryInfo
       objDirectoryInfo = New System.IO.DirectoryInfo(Application.StartupPath)
       If objDirectoryInfo.Exists = True Then
           SearchFiles(objDirectoryInfo)
           SearchDirectories(objDirectoryInfo)
       Else
           MessageBox.Show("Your chosen directory is not existing!", Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)
       End If
   End Sub

 

Notice the copy, delete code used to rename the downloaded files from 'filename.exe_' to 'filename.exe' commented out that was my first thought but now i have no idea

 

Andy

 

This is getting rediculess now it happens at this point

 

       Try
           Application.DoEvents()
           Dim pUpdaterInfo As New ProcessStartInfo()
           pUpdaterInfo.FileName = Application.StartupPath & "\" & "downloadProgress.exe"
           Dim pUpdater As Process = Process.Start(pUpdaterInfo)
           pUpdater.WaitForInputIdle()
           pUpdater.WaitForExit()
           pUpdater.Close()
           Application.DoEvents()
           'CheckDirectories()
           Application.Exit()
       Catch
           MsgBox(Err.Description)
           Application.Exit()
       End Try

 

All the above is a stop gap between the Updater and the main program

 

So I can update both the program and the installer

Edited January 30, 2003 by a_jam_sandwich

[a_jam_sandwich]

This is rediculus delete the file and copy using above installer appears on next run of program.

 

Do it manually using delete and rename in widows no problem

 

andy ideas this is the last thing in project

[a_jam_sandwich]

right ive fixed it by not going though the folder as above instead creating a patch list and then copying and deleting specific files

 

Ill have the update for public realease soon very easy to use and customable

 

Andy