frmexe.frm

Custom Visual Basic Packager and Installer for Visual Basic Developers. This is a group of standard

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.Form frmexe 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Project Executable"
   ClientHeight    =   2940
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   7035
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2940
   ScaleWidth      =   7035
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton Command3 
      Caption         =   "No"
      Height          =   375
      Left            =   4440
      TabIndex        =   6
      Top             =   2040
      Width           =   1695
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Yes"
      Height          =   375
      Left            =   840
      TabIndex        =   5
      Top             =   2040
      Width           =   1695
   End
   Begin VB.Frame Frame1 
      Height          =   1575
      Left            =   240
      TabIndex        =   0
      Top             =   360
      Visible         =   0   'False
      Width           =   6495
      Begin VB.CommandButton Command4 
         Caption         =   "Continue"
         Height          =   375
         Left            =   4440
         TabIndex        =   7
         Top             =   960
         Width           =   1695
      End
      Begin VB.CommandButton Command1 
         Caption         =   "Browse.."
         Height          =   375
         Left            =   4440
         TabIndex        =   3
         Top             =   480
         Width           =   1695
      End
      Begin VB.TextBox Text1 
         Height          =   375
         Left            =   240
         TabIndex        =   1
         Top             =   480
         Width           =   3735
      End
      Begin VB.Label Label1 
         Caption         =   "Existing Executable"
         Height          =   255
         Left            =   240
         TabIndex        =   2
         Top             =   120
         Width           =   1815
      End
   End
   Begin MSComDlg.CommonDialog cmd 
      Left            =   4440
      Top             =   360
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Label Label2 
      Caption         =   "Do you wish to recompile the project"
      Height          =   495
      Left            =   2040
      TabIndex        =   4
      Top             =   1080
      Width           =   3015
   End
End
Attribute VB_Name = "frmexe"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim p() As String
cmd.Filter = "Executable File|*.exe;*.exe"
cmd.FilterIndex = 2
cmd.ShowOpen
Text1 = cmd.FileName
pExe = cmd.FileName

p = Split(pExe, "\")
psexe = p(UBound(p))
CabFile = Mid(psexe, 1, Len(psexe) - 3) + "cab"

End Sub

Private Sub Command2_Click()
'preparing commandline for compilation
pat = drv + vbpath
pat = drv + vbpath + "vb6.exe /m " + prjName
'MsgBox pat
Shell pat
p = Split(prjName, "\")
ps = p(UBound(p))

psexe = Mid(ps, 1, Len(ps) - 3) + "exe"
pExe = psexe
Form1.List1.AddItem pExe
'getting the cabfile filename
CabFile = Mid(psexe, 1, Len(psexe) - 3) + "cab"
'MsgBox CabFile
Unload Me
End Sub

Private Sub Command3_Click()
Me.Label2.Visible = False
Frame1.Visible = True
Command3.Visible = False
Command2.Visible = False
End Sub

Private Sub Command4_Click()
Form1.List1.AddItem pExe
Unload Me
End Sub