I will check those out, but I still need to know if the wyUpdate can be stored into the resource file and extracted to the end users machine from my update.exe The reason is I would not know where they installed the application to. So I wouldn't know where to put the 2wyUpdate files even if I used a blank setup.
I am doing the following:Dim BbUpdate() As ByteDim MyUpdate As StringDim OriginalFile As StringScreen.MousePointer = vbHourglassProgressBar1.Max = 10ProgressBar1.Value = 0CreateTempFilenameDim datemod As Stringdatemod = Format(Date, " mm-dd-yyyy")ProgressBar1.Value = 2'Main program file update ######### Appended add new updatemylook = Dir(InstPath & "\wyUpdate.exe")If mylook <> "" Then mylook = Dir(InstPath & "\client.wyc")If mylook <> "" Then GoTo RunNewUpdate ' update already performed just launch the new exe
MyUpdate = InstPath & "\wyUpdate.exe" 'make a sequential file nameBbUpdate = LoadResData("101", "CUSTOM") 'load the raw bytes into an arrayLabel5 = "Updating Update Module... Please wait. "Label5.RefreshVar = FreeFile Open MyUpdate For Binary Access Write As Var 'open, put, and close the .exe file Put #Var, , BbUpdate Close #Varres = FileLen(MyUpdate)If res = 0 Then Kill MyUpdate: End 'failed to copy fileProgressBar1.Value = 5'End new update file updateMyUpdate = InstPath & "\client.wyc"BbUpdate = LoadResData("102", "CUSTOM") 'load the raw bytes into an arrayLabel5 = "Initiating New Update Module... Please wait. "Label5.RefreshVar = FreeFile Open MyUpdate For Binary As Var 'open, put, and close the .exe file Put #Var, , BbUpdate Close #VarProgressBar1.Value = 10RunNewUpdate:res = ShellExecute(Me.hWnd, "OPEN", InstPath & "\wyUpdate.exe", "", App.Path, 1)Unload Me
ThanksDon