frminit.frm

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

VERSION 5.00
Begin VB.Form frminit 
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   4440
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   6225
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4440
   ScaleWidth      =   6225
   StartUpPosition =   2  'CenterScreen
   Begin VB.TextBox txtPath 
      Height          =   288
      Left            =   240
      MaxLength       =   240
      TabIndex        =   4
      Top             =   1080
      Width           =   5532
   End
   Begin VB.DirListBox dirDirs 
      Height          =   1440
      Left            =   240
      TabIndex        =   3
      Top             =   1920
      Width           =   3510
   End
   Begin VB.DriveListBox drvDrives 
      Height          =   315
      Left            =   255
      TabIndex        =   2
      Top             =   3810
      Width           =   3510
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "Ok"
      Default         =   -1  'True
      Height          =   420
      Left            =   4200
      MaskColor       =   &H00000000&
      TabIndex        =   1
      Top             =   1920
      Width           =   1560
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "Cancel"
      Height          =   420
      Left            =   4200
      MaskColor       =   &H00000000&
      TabIndex        =   0
      Top             =   2670
      Width           =   1560
   End
   Begin VB.Label lblPrompt 
      AutoSize        =   -1  'True
      Caption         =   "Choose Package Folder"
      Height          =   195
      Left            =   240
      TabIndex        =   8
      Top             =   240
      Width           =   5535
      WordWrap        =   -1  'True
   End
   Begin VB.Label lblPath 
      AutoSize        =   -1  'True
      Caption         =   "Path"
      Height          =   195
      Left            =   240
      TabIndex        =   7
      Top             =   780
      Width           =   330
   End
   Begin VB.Label lblDirs 
      AutoSize        =   -1  'True
      Caption         =   "Directory"
      Height          =   195
      Left            =   240
      TabIndex        =   6
      Top             =   1620
      Width           =   630
   End
   Begin VB.Label lblDrives 
      AutoSize        =   -1  'True
      Caption         =   "Drives"
      Height          =   195
      Left            =   240
      TabIndex        =   5
      Top             =   3540
      Width           =   450
   End
End
Attribute VB_Name = "frminit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Label1_Click()

End Sub

Private Sub cmdCancel_Click()
End
End Sub

Private Sub cmdOK_Click()
On Error Resume Next
Reset
If txtPath = "" Then Exit Sub

        Kill txtPath + "\" + "package"
        MkDir txtPath + "\" + "package"
        MkDir txtPath + "\" + "package\support"
    
pkjPath = txtPath + "\" + "package\"
psup = txtPath + "\" + "package\support"
Unload Me
End Sub

Private Sub dirDirs_Change()
txtPath = dirDirs.Path
End Sub

Private Sub drvDrives_Change()
dirDirs.Path = Me.drvDrives.Drive
End Sub