home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / xceedzip / xceedzip.exe / Samples / Getting Started / Vb6 / frmMain.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-04-27  |  58.9 KB  |  1,354 lines
  1. VERSION 5.00
  2. Object = "{DB797681-40E0-11D2-9BD5-0060082AE372}#4.1#0"; "XceedZip.dll"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  4. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
  5. Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
  6. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  7. Begin VB.Form frmMain 
  8.    BorderStyle     =   1  'Fixed Single
  9.    Caption         =   "Getting Started Sample Application (Xceed Zip Compression Library v4.0)"
  10.    ClientHeight    =   6405
  11.    ClientLeft      =   150
  12.    ClientTop       =   435
  13.    ClientWidth     =   9720
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   6405
  18.    ScaleWidth      =   9720
  19.    StartUpPosition =   3  'Windows Default
  20.    Begin VB.PictureBox picHint 
  21.       Appearance      =   0  'Flat
  22.       BackColor       =   &H80000018&
  23.       ForeColor       =   &H80000008&
  24.       Height          =   1815
  25.       Left            =   5400
  26.       ScaleHeight     =   1785
  27.       ScaleWidth      =   4065
  28.       TabIndex        =   73
  29.       Top             =   1080
  30.       Visible         =   0   'False
  31.       Width           =   4095
  32.       Begin VB.Label lblHint 
  33.          BackStyle       =   0  'Transparent
  34.          ForeColor       =   &H80000017&
  35.          Height          =   1935
  36.          Left            =   0
  37.          TabIndex        =   74
  38.          Top             =   0
  39.          Width           =   4095
  40.       End
  41.    End
  42.    Begin MSComDlg.CommonDialog dlgSelect 
  43.       Left            =   9240
  44.       Top             =   600
  45.       _ExtentX        =   847
  46.       _ExtentY        =   847
  47.       _Version        =   393216
  48.    End
  49.    Begin MSComctlLib.ProgressBar barGlobal 
  50.       Height          =   300
  51.       Left            =   5400
  52.       TabIndex        =   6
  53.       Top             =   6060
  54.       Width           =   4080
  55.       _ExtentX        =   7197
  56.       _ExtentY        =   529
  57.       _Version        =   393216
  58.       Appearance      =   1
  59.    End
  60.    Begin MSComctlLib.ProgressBar barFile 
  61.       Height          =   300
  62.       Left            =   600
  63.       TabIndex        =   5
  64.       Top             =   6060
  65.       Width           =   4080
  66.       _ExtentX        =   7197
  67.       _ExtentY        =   529
  68.       _Version        =   393216
  69.       Appearance      =   1
  70.    End
  71.    Begin MSComctlLib.StatusBar StatusBar1 
  72.       Align           =   2  'Align Bottom
  73.       Height          =   390
  74.       Left            =   0
  75.       TabIndex        =   4
  76.       Top             =   6015
  77.       Width           =   9720
  78.       _ExtentX        =   17145
  79.       _ExtentY        =   688
  80.       _Version        =   393216
  81.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  82.          NumPanels       =   2
  83.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  84.             Object.Width           =   8414
  85.             MinWidth        =   8414
  86.             Text            =   "File:"
  87.             TextSave        =   "File:"
  88.          EndProperty
  89.          BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  90.             Object.Width           =   8414
  91.             MinWidth        =   8414
  92.             Text            =   "Global:"
  93.             TextSave        =   "Global:"
  94.          EndProperty
  95.       EndProperty
  96.    End
  97.    Begin TabDlg.SSTab tabExamples 
  98.       Height          =   5175
  99.       Left            =   120
  100.       TabIndex        =   1
  101.       Top             =   720
  102.       Width           =   5415
  103.       _ExtentX        =   9551
  104.       _ExtentY        =   9128
  105.       _Version        =   393216
  106.       Style           =   1
  107.       Tabs            =   5
  108.       Tab             =   1
  109.       TabsPerRow      =   5
  110.       TabHeight       =   520
  111.       TabCaption(0)   =   "PreviewFiles"
  112.       TabPicture(0)   =   "frmmain.frx":0000
  113.       Tab(0).ControlEnabled=   0   'False
  114.       Tab(0).Control(0)=   "lstPExcludedFileAttributes"
  115.       Tab(0).Control(0).Enabled=   0   'False
  116.       Tab(0).Control(1)=   "lstPRequiredFileAttributes"
  117.       Tab(0).Control(1).Enabled=   0   'False
  118.       Tab(0).Control(2)=   "btPreview"
  119.       Tab(0).Control(2).Enabled=   0   'False
  120.       Tab(0).Control(3)=   "chkPProcessSubfolders"
  121.       Tab(0).Control(3).Enabled=   0   'False
  122.       Tab(0).Control(4)=   "edtPFilesToExclude"
  123.       Tab(0).Control(4).Enabled=   0   'False
  124.       Tab(0).Control(5)=   "edtPFilesToProcess"
  125.       Tab(0).Control(5).Enabled=   0   'False
  126.       Tab(0).Control(6)=   "lblExcludedAttribs"
  127.       Tab(0).Control(6).Enabled=   0   'False
  128.       Tab(0).Control(7)=   "lblRequiredFileAttribs"
  129.       Tab(0).Control(7).Enabled=   0   'False
  130.       Tab(0).Control(8)=   "lblFilesToExclude"
  131.       Tab(0).Control(8).Enabled=   0   'False
  132.       Tab(0).Control(9)=   "lblPreviewFilesToProcess"
  133.       Tab(0).Control(9).Enabled=   0   'False
  134.       Tab(0).Control(10)=   "lblPreviewFiles"
  135.       Tab(0).Control(10).Enabled=   0   'False
  136.       Tab(0).ControlCount=   11
  137.       TabCaption(1)   =   "Zip"
  138.       TabPicture(1)   =   "frmmain.frx":001C
  139.       Tab(1).ControlEnabled=   -1  'True
  140.       Tab(1).Control(0)=   "lblZip"
  141.       Tab(1).Control(0).Enabled=   0   'False
  142.       Tab(1).Control(1)=   "lblZipFilename"
  143.       Tab(1).Control(1).Enabled=   0   'False
  144.       Tab(1).Control(2)=   "lblBasePath"
  145.       Tab(1).Control(2).Enabled=   0   'False
  146.       Tab(1).Control(3)=   "lblZipFilesToProcess"
  147.       Tab(1).Control(3).Enabled=   0   'False
  148.       Tab(1).Control(4)=   "lblZipTempFolder"
  149.       Tab(1).Control(4).Enabled=   0   'False
  150.       Tab(1).Control(5)=   "Label2"
  151.       Tab(1).Control(5).Enabled=   0   'False
  152.       Tab(1).Control(6)=   "edtZZipFilename"
  153.       Tab(1).Control(6).Enabled=   0   'False
  154.       Tab(1).Control(7)=   "edtZBasePath"
  155.       Tab(1).Control(7).Enabled=   0   'False
  156.       Tab(1).Control(8)=   "edtZFilesToProcess"
  157.       Tab(1).Control(8).Enabled=   0   'False
  158.       Tab(1).Control(9)=   "chkZPreservePaths"
  159.       Tab(1).Control(9).Enabled=   0   'False
  160.       Tab(1).Control(10)=   "chkZProcessSubfolders"
  161.       Tab(1).Control(10).Enabled=   0   'False
  162.       Tab(1).Control(11)=   "chkZUseTempFile"
  163.       Tab(1).Control(11).Enabled=   0   'False
  164.       Tab(1).Control(12)=   "edtZTempFolder"
  165.       Tab(1).Control(12).Enabled=   0   'False
  166.       Tab(1).Control(13)=   "btZip"
  167.       Tab(1).Control(13).Enabled=   0   'False
  168.       Tab(1).Control(14)=   "edtZFilesToExclude"
  169.       Tab(1).Control(14).Enabled=   0   'False
  170.       Tab(1).ControlCount=   15
  171.       TabCaption(2)   =   "ListZipContents"
  172.       TabPicture(2)   =   "frmmain.frx":0038
  173.       Tab(2).ControlEnabled=   0   'False
  174.       Tab(2).Control(0)=   "btList"
  175.       Tab(2).Control(0).Enabled=   0   'False
  176.       Tab(2).Control(1)=   "edtLMaxSizeToProcess"
  177.       Tab(2).Control(1).Enabled=   0   'False
  178.       Tab(2).Control(2)=   "edtLMinSizeToProcess"
  179.       Tab(2).Control(2).Enabled=   0   'False
  180.       Tab(2).Control(3)=   "edtLMinDateToProcess"
  181.       Tab(2).Control(3).Enabled=   0   'False
  182.       Tab(2).Control(4)=   "edtLZipFilename"
  183.       Tab(2).Control(4).Enabled=   0   'False
  184.       Tab(2).Control(5)=   "edtLMaxDateToProcess"
  185.       Tab(2).Control(5).Enabled=   0   'False
  186.       Tab(2).Control(6)=   "lblListZipMaxSizeToProcess"
  187.       Tab(2).Control(6).Enabled=   0   'False
  188.       Tab(2).Control(7)=   "lblListZipMinSizeToProcess"
  189.       Tab(2).Control(7).Enabled=   0   'False
  190.       Tab(2).Control(8)=   "lblListZipMaxDateToProcess"
  191.       Tab(2).Control(8).Enabled=   0   'False
  192.       Tab(2).Control(9)=   "lblListMinDateToProcess"
  193.       Tab(2).Control(9).Enabled=   0   'False
  194.       Tab(2).Control(10)=   "lblListZipZipFilename"
  195.       Tab(2).Control(10).Enabled=   0   'False
  196.       Tab(2).Control(11)=   "lblListZipContents3"
  197.       Tab(2).Control(11).Enabled=   0   'False
  198.       Tab(2).Control(12)=   "lblListZipContents2"
  199.       Tab(2).Control(12).Enabled=   0   'False
  200.       Tab(2).Control(13)=   "lblListZipContents"
  201.       Tab(2).Control(13).Enabled=   0   'False
  202.       Tab(2).ControlCount=   14
  203.       TabCaption(3)   =   "Unzip"
  204.       TabPicture(3)   =   "frmmain.frx":0054
  205.       Tab(3).ControlEnabled=   0   'False
  206.       Tab(3).Control(0)=   "txtUFilesToExclude"
  207.       Tab(3).Control(0).Enabled=   0   'False
  208.       Tab(3).Control(1)=   "btUnzip"
  209.       Tab(3).Control(1).Enabled=   0   'False
  210.       Tab(3).Control(2)=   "chkUSkipIfOlderVersion"
  211.       Tab(3).Control(2).Enabled=   0   'False
  212.       Tab(3).Control(3)=   "chkUSkipIfOlderDate"
  213.       Tab(3).Control(3).Enabled=   0   'False
  214.       Tab(3).Control(4)=   "chkUSkipIfNotExisting"
  215.       Tab(3).Control(4).Enabled=   0   'False
  216.       Tab(3).Control(5)=   "chkUSkipIfExisting"
  217.       Tab(3).Control(5).Enabled=   0   'False
  218.       Tab(3).Control(6)=   "edtUUnzipToFolder"
  219.       Tab(3).Control(6).Enabled=   0   'False
  220.       Tab(3).Control(7)=   "edtUZipFilename"
  221.       Tab(3).Control(7).Enabled=   0   'False
  222.       Tab(3).Control(8)=   "edtUFilesToProcess"
  223.       Tab(3).Control(8).Enabled=   0   'False
  224.       Tab(3).Control(9)=   "Label3"
  225.       Tab(3).Control(9).Enabled=   0   'False
  226.       Tab(3).Control(10)=   "lblUnzipUnzipToFolder"
  227.       Tab(3).Control(10).Enabled=   0   'False
  228.       Tab(3).Control(11)=   "lblUnzipZipFilename"
  229.       Tab(3).Control(11).Enabled=   0   'False
  230.       Tab(3).Control(12)=   "lblUnzipFilesToProcess"
  231.       Tab(3).Control(12).Enabled=   0   'False
  232.       Tab(3).Control(13)=   "Label1"
  233.       Tab(3).Control(13).Enabled=   0   'False
  234.       Tab(3).ControlCount=   14
  235.       TabCaption(4)   =   "Sfx"
  236.       TabPicture(4)   =   "frmmain.frx":0070
  237.       Tab(4).ControlEnabled=   0   'False
  238.       Tab(4).Control(0)=   "btSfx"
  239.       Tab(4).Control(0).Enabled=   0   'False
  240.       Tab(4).Control(1)=   "edtSIntro"
  241.       Tab(4).Control(1).Enabled=   0   'False
  242.       Tab(4).Control(2)=   "edtSTitle"
  243.       Tab(4).Control(2).Enabled=   0   'False
  244.       Tab(4).Control(3)=   "edtSFilesToProcess"
  245.       Tab(4).Control(3).Enabled=   0   'False
  246.       Tab(4).Control(4)=   "edtSZipFilename"
  247.       Tab(4).Control(4).Enabled=   0   'False
  248.       Tab(4).Control(5)=   "edtSBinaryModule"
  249.       Tab(4).Control(5).Enabled=   0   'False
  250.       Tab(4).Control(6)=   "lSIntroMessage"
  251.       Tab(4).Control(6).Enabled=   0   'False
  252.       Tab(4).Control(7)=   "lblSTitle"
  253.       Tab(4).Control(7).Enabled=   0   'False
  254.       Tab(4).Control(8)=   "lblSFilesToProcess"
  255.       Tab(4).Control(8).Enabled=   0   'False
  256.       Tab(4).Control(9)=   "lblSZipFileName"
  257.       Tab(4).Control(9).Enabled=   0   'False
  258.       Tab(4).Control(10)=   "lblBinaryModule"
  259.       Tab(4).Control(10).Enabled=   0   'False
  260.       Tab(4).Control(11)=   "lblSfx"
  261.       Tab(4).Control(11).Enabled=   0   'False
  262.       Tab(4).ControlCount=   12
  263.       Begin VB.TextBox txtUFilesToExclude 
  264.          Height          =   495
  265.          Left            =   -74760
  266.          MultiLine       =   -1  'True
  267.          TabIndex        =   55
  268.          Top             =   3840
  269.          Width           =   4935
  270.       End
  271.       Begin VB.TextBox edtZFilesToExclude 
  272.          Height          =   495
  273.          Left            =   240
  274.          MultiLine       =   -1  'True
  275.          TabIndex        =   26
  276.          Top             =   3480
  277.          Width           =   4935
  278.       End
  279.       Begin VB.CommandButton btSfx 
  280.          Caption         =   "&Zip Sfx!"
  281.          Height          =   375
  282.          Left            =   -70920
  283.          TabIndex        =   72
  284.          Top             =   4560
  285.          Width           =   1095
  286.       End
  287.       Begin VB.TextBox edtSIntro 
  288.          Height          =   525
  289.          Left            =   -74760
  290.          MultiLine       =   -1  'True
  291.          TabIndex        =   71
  292.          Top             =   4440
  293.          Width           =   3615
  294.       End
  295.       Begin VB.TextBox edtSTitle 
  296.          Height          =   285
  297.          Left            =   -74760
  298.          TabIndex        =   69
  299.          Top             =   3840
  300.          Width           =   4935
  301.       End
  302.       Begin VB.TextBox edtSFilesToProcess 
  303.          Height          =   495
  304.          Left            =   -74760
  305.          MultiLine       =   -1  'True
  306.          TabIndex        =   65
  307.          Top             =   2400
  308.          Width           =   4935
  309.       End
  310.       Begin VB.TextBox edtSZipFilename 
  311.          Height          =   285
  312.          Left            =   -74760
  313.          TabIndex        =   63
  314.          Top             =   1800
  315.          Width           =   4935
  316.       End
  317.       Begin VB.TextBox edtSBinaryModule 
  318.          Height          =   285
  319.          Left            =   -74760
  320.          TabIndex        =   67
  321.          Top             =   3240
  322.          Width           =   4935
  323.       End
  324.       Begin VB.ListBox lstPExcludedFileAttributes 
  325.          Height          =   960
  326.          ItemData        =   "frmmain.frx":008C
  327.          Left            =   -72960
  328.          List            =   "frmmain.frx":008E
  329.          Style           =   1  'Checkbox
  330.          TabIndex        =   16
  331.          Top             =   3960
  332.          Width           =   1575
  333.       End
  334.       Begin VB.ListBox lstPRequiredFileAttributes 
  335.          Height          =   960
  336.          Left            =   -74760
  337.          Style           =   1  'Checkbox
  338.          TabIndex        =   14
  339.          Top             =   3960
  340.          Width           =   1575
  341.       End
  342.       Begin VB.CommandButton btUnzip 
  343.          Caption         =   "Unzip!"
  344.          Height          =   375
  345.          Left            =   -70920
  346.          TabIndex        =   60
  347.          Top             =   4560
  348.          Width           =   1095
  349.       End
  350.       Begin VB.CheckBox chkUSkipIfOlderVersion 
  351.          Caption         =   "SkipIfOlder&Version"
  352.          Height          =   255
  353.          Left            =   -72840
  354.          TabIndex        =   59
  355.          Top             =   4680
  356.          Width           =   1695
  357.       End
  358.       Begin VB.CheckBox chkUSkipIfOlderDate 
  359.          Caption         =   "SkipIfOlder&Date"
  360.          Height          =   255
  361.          Left            =   -72840
  362.          TabIndex        =   58
  363.          Top             =   4440
  364.          Width           =   1455
  365.       End
  366.       Begin VB.CheckBox chkUSkipIfNotExisting 
  367.          Caption         =   "SkipIfN&otExisting"
  368.          Height          =   195
  369.          Left            =   -74760
  370.          TabIndex        =   57
  371.          Top             =   4680
  372.          Width           =   1575
  373.       End
  374.       Begin VB.CheckBox chkUSkipIfExisting 
  375.          Caption         =   "SkipIfE&xisting"
  376.          Height          =   195
  377.          Left            =   -74760
  378.          TabIndex        =   56
  379.          Top             =   4440
  380.          Width           =   1335
  381.       End
  382.       Begin VB.TextBox edtUUnzipToFolder 
  383.          Height          =   285
  384.          Left            =   -74760
  385.          TabIndex        =   51
  386.          Top             =   2400
  387.          Width           =   4935
  388.       End
  389.       Begin VB.TextBox edtUZipFilename 
  390.          Height          =   285
  391.          Left            =   -74760
  392.          TabIndex        =   49
  393.          Top             =   1800
  394.          Width           =   4935
  395.       End
  396.       Begin VB.TextBox edtUFilesToProcess 
  397.          Height          =   495
  398.          Left            =   -74760
  399.          MultiLine       =   -1  'True
  400.          TabIndex        =   53
  401.          Top             =   3000
  402.          Width           =   4935
  403.       End
  404.       Begin VB.CommandButton btList 
  405.          Caption         =   "List!"
  406.          Height          =   375
  407.          Left            =   -70920
  408.          TabIndex        =   46
  409.          Top             =   4560
  410.          Width           =   1095
  411.       End
  412.       Begin VB.TextBox edtLMaxSizeToProcess 
  413.          Height          =   285
  414.          Left            =   -73080
  415.          TabIndex        =   45
  416.          Top             =   4440
  417.          Width           =   1455
  418.       End
  419.       Begin VB.TextBox edtLMinSizeToProcess 
  420.          Height          =   285
  421.          Left            =   -73080
  422.          TabIndex        =   43
  423.          Top             =   3840
  424.          Width           =   1455
  425.       End
  426.       Begin MSMask.MaskEdBox edtLMinDateToProcess 
  427.          Height          =   285
  428.          Left            =   -74760
  429.          TabIndex        =   39
  430.          Top             =   3840
  431.          Width           =   1455
  432.          _ExtentX        =   2566
  433.          _ExtentY        =   503
  434.          _Version        =   393216
  435.          ClipMode        =   1
  436.          MaxLength       =   10
  437.          Format          =   "dd/mm/yyyy"
  438.          Mask            =   "##/##/####"
  439.          PromptChar      =   "_"
  440.       End
  441.       Begin VB.TextBox edtLZipFilename 
  442.          Height          =   285
  443.          Left            =   -74760
  444.          TabIndex        =   37
  445.          Top             =   3240
  446.          Width           =   4935
  447.       End
  448.       Begin VB.CommandButton btZip 
  449.          Caption         =   "Zip!"
  450.          Height          =   375
  451.          Left            =   4080
  452.          TabIndex        =   32
  453.          Top             =   4560
  454.          Width           =   1095
  455.       End
  456.       Begin VB.TextBox edtZTempFolder 
  457.          Height          =   285
  458.          Left            =   1440
  459.          TabIndex        =   31
  460.          Top             =   4680
  461.          Width           =   2415
  462.       End
  463.       Begin VB.CheckBox chkZUseTempFile 
  464.          Caption         =   "UseTempFile"
  465.          Height          =   255
  466.          Left            =   240
  467.          TabIndex        =   29
  468.          Top             =   4320
  469.          Width           =   1335
  470.       End
  471.       Begin VB.CheckBox chkZProcessSubfolders 
  472.          Caption         =   "ProcessSubfolders"
  473.          Height          =   255
  474.          Left            =   240
  475.          TabIndex        =   27
  476.          Top             =   4080
  477.          Width           =   1695
  478.       End
  479.       Begin VB.CheckBox chkZPreservePaths 
  480.          Caption         =   "PreservePaths"
  481.          Height          =   255
  482.          Left            =   2400
  483.          TabIndex        =   28
  484.          Top             =   4080
  485.          Width           =   1455
  486.       End
  487.       Begin VB.TextBox edtZFilesToProcess 
  488.          Height          =   495
  489.          Left            =   240
  490.          MultiLine       =   -1  'True
  491.          TabIndex        =   24
  492.          Top             =   2640
  493.          Width           =   4935
  494.       End
  495.       Begin VB.TextBox edtZBasePath 
  496.          Height          =   285
  497.          Left            =   240
  498.          TabIndex        =   22
  499.          Top             =   2040
  500.          Width           =   4935
  501.       End
  502.       Begin VB.TextBox edtZZipFilename 
  503.          Height          =   285
  504.          Left            =   240
  505.          TabIndex        =   20
  506.          Top             =   1440
  507.          Width           =   4935
  508.       End
  509.       Begin VB.CommandButton btPreview 
  510.          Caption         =   "Preview!"
  511.          Height          =   375
  512.          Left            =   -70920
  513.          TabIndex        =   17
  514.          Top             =   4560
  515.          Width           =   1095
  516.       End
  517.       Begin VB.CheckBox chkPProcessSubfolders 
  518.          Caption         =   "ProcessSubFolders"
  519.          Height          =   255
  520.          Left            =   -74760
  521.          TabIndex        =   12
  522.          Top             =   3360
  523.          Width           =   1695
  524.       End
  525.       Begin VB.TextBox edtPFilesToExclude 
  526.          Height          =   495
  527.          Left            =   -74760
  528.          MultiLine       =   -1  'True
  529.          TabIndex        =   11
  530.          Top             =   2760
  531.          Width           =   4935
  532.       End
  533.       Begin VB.TextBox edtPFilesToProcess 
  534.          Height          =   495
  535.          Left            =   -74760
  536.          MultiLine       =   -1  'True
  537.          TabIndex        =   9
  538.          Top             =   1920
  539.          Width           =   4935
  540.       End
  541.       Begin MSMask.MaskEdBox edtLMaxDateToProcess 
  542.          Height          =   285
  543.          Left            =   -74760
  544.          TabIndex        =   41
  545.          Top             =   4440
  546.          Width           =   1455
  547.          _ExtentX        =   2566
  548.          _ExtentY        =   503
  549.          _Version        =   393216
  550.          MaxLength       =   10
  551.          Format          =   "dd/mm/yyyy"
  552.          Mask            =   "##/##/####"
  553.          PromptChar      =   "_"
  554.       End
  555.       Begin VB.Label Label3 
  556.          Caption         =   "FilesTo&Exclude:"
  557.          Height          =   255
  558.          Left            =   -74760
  559.          TabIndex        =   54
  560.          Top             =   3600
  561.          Width           =   1695
  562.       End
  563.       Begin VB.Label Label2 
  564.          Caption         =   "FilesToExclude:"
  565.          Height          =   255
  566.          Left            =   240
  567.          TabIndex        =   25
  568.          Top             =   3240
  569.          Width           =   1695
  570.       End
  571.       Begin VB.Label lSIntroMessage 
  572.          Caption         =   "SfxMessages ( xsm&Intro ):"
  573.          Height          =   255
  574.          Left            =   -74760
  575.          TabIndex        =   70
  576.          Top             =   4200
  577.          Width           =   1815
  578.       End
  579.       Begin VB.Label lblSTitle 
  580.          Caption         =   "SfxStrings ( xss&Title ):"
  581.          Height          =   255
  582.          Left            =   -74760
  583.          TabIndex        =   68
  584.          Top             =   3600
  585.          Width           =   1575
  586.       End
  587.       Begin VB.Label lblSFilesToProcess 
  588.          Caption         =   "FilesTo&Process:"
  589.          Height          =   255
  590.          Left            =   -74760
  591.          TabIndex        =   64
  592.          Top             =   2160
  593.          Width           =   1215
  594.       End
  595.       Begin VB.Label lblSZipFileName 
  596.          Caption         =   "ZipFile&name:"
  597.          Height          =   255
  598.          Left            =   -74760
  599.          TabIndex        =   62
  600.          Top             =   1560
  601.          Width           =   975
  602.       End
  603.       Begin VB.Label lblBinaryModule 
  604.          Caption         =   "Sfx&BinaryModule:"
  605.          Height          =   255
  606.          Left            =   -74760
  607.          TabIndex        =   66
  608.          Top             =   3000
  609.          Width           =   1335
  610.       End
  611.       Begin VB.Label lblSfx 
  612.          Caption         =   $"frmmain.frx":0090
  613.          Height          =   975
  614.          Left            =   -74760
  615.          TabIndex        =   61
  616.          Top             =   480
  617.          Width           =   4935
  618.       End
  619.       Begin VB.Label lblUnzipUnzipToFolder 
  620.          Caption         =   "UnzipTo&Folder:"
  621.          Height          =   255
  622.          Left            =   -74760
  623.          TabIndex        =   50
  624.          Top             =   2160
  625.          Width           =   1335
  626.       End
  627.       Begin VB.Label lblUnzipZipFilename 
  628.          Caption         =   "ZipFile&name:"
  629.          Height          =   255
  630.          Left            =   -74760
  631.          TabIndex        =   48
  632.          Top             =   1560
  633.          Width           =   1335
  634.       End
  635.       Begin VB.Label lblUnzipFilesToProcess 
  636.          Caption         =   "FilesTo&Process:"
  637.          Height          =   255
  638.          Left            =   -74760
  639.          TabIndex        =   52
  640.          Top             =   2760
  641.          Width           =   1695
  642.       End
  643.       Begin VB.Label Label1 
  644.          Caption         =   $"frmmain.frx":01F6
  645.          Height          =   975
  646.          Left            =   -74760
  647.          TabIndex        =   47
  648.          Top             =   480
  649.          Width           =   4935
  650.       End
  651.       Begin VB.Label lblListZipMaxSizeToProcess 
  652.          Caption         =   "MaxSizeToProcess"
  653.          Height          =   255
  654.          Left            =   -73080
  655.          TabIndex        =   44
  656.          Top             =   4200
  657.          Width           =   1575
  658.       End
  659.       Begin VB.Label lblListZipMinSizeToProcess 
  660.          Caption         =   "MinSizeToProcess:"
  661.          Height          =   255
  662.          Left            =   -73080
  663.          TabIndex        =   42
  664.          Top             =   3600
  665.          Width           =   1695
  666.       End
  667.       Begin VB.Label lblListZipMaxDateToProcess 
  668.          Caption         =   "MaxDateToProcess:"
  669.          Height          =   255
  670.          Left            =   -74760
  671.          TabIndex        =   40
  672.          Top             =   4200
  673.          Width           =   1575
  674.       End
  675.       Begin VB.Label lblListMinDateToProcess 
  676.          Caption         =   "MinDateToProcess:"
  677.          Height          =   255
  678.          Left            =   -74760
  679.          TabIndex        =   38
  680.          Top             =   3600
  681.          Width           =   1575
  682.       End
  683.       Begin VB.Label lblListZipZipFilename 
  684.          Caption         =   "ZipFilename:"
  685.          Height          =   255
  686.          Left            =   -74760
  687.          TabIndex        =   36
  688.          Top             =   3000
  689.          Width           =   1335
  690.       End
  691.       Begin VB.Label lblListZipContents3 
  692.          Caption         =   $"frmmain.frx":0348
  693.          Height          =   855
  694.          Left            =   -74760
  695.          TabIndex        =   35
  696.          Top             =   2040
  697.          Width           =   4935
  698.       End
  699.       Begin VB.Label lblListZipContents2 
  700.          Caption         =   $"frmmain.frx":0430
  701.          Height          =   855
  702.          Left            =   -74760
  703.          TabIndex        =   34
  704.          Top             =   1200
  705.          Width           =   4935
  706.       End
  707.       Begin VB.Label lblListZipContents 
  708.          Caption         =   $"frmmain.frx":050C
  709.          Height          =   615
  710.          Left            =   -74760
  711.          TabIndex        =   33
  712.          Top             =   480
  713.          Width           =   4935
  714.       End
  715.       Begin VB.Label lblZipTempFolder 
  716.          Caption         =   "TempFolder:"
  717.          Height          =   255
  718.          Left            =   480
  719.          TabIndex        =   30
  720.          Top             =   4710
  721.          Width           =   975
  722.       End
  723.       Begin VB.Label lblZipFilesToProcess 
  724.          Caption         =   "FilesToProcess:"
  725.          Height          =   255
  726.          Left            =   240
  727.          TabIndex        =   23
  728.          Top             =   2400
  729.          Width           =   1335
  730.       End
  731.       Begin VB.Label lblBasePath 
  732.          Caption         =   "BasePath:"
  733.          Height          =   255
  734.          Left            =   240
  735.          TabIndex        =   21
  736.          Top             =   1800
  737.          Width           =   1335
  738.       End
  739.       Begin VB.Label lblZipFilename 
  740.          Caption         =   "ZipFilename:"
  741.          Height          =   255
  742.          Left            =   240
  743.          TabIndex        =   19
  744.          Top             =   1200
  745.          Width           =   1095
  746.       End
  747.       Begin VB.Label lblZip 
  748.          Caption         =   $"frmmain.frx":05CA
  749.          Height          =   615
  750.          Left            =   240
  751.          TabIndex        =   18
  752.          Top             =   480
  753.          Width           =   4935
  754.       End
  755.       Begin VB.Label lblExcludedAttribs 
  756.          Caption         =   "ExcludedFileAttributes:"
  757.          Height          =   255
  758.          Left            =   -72960
  759.          TabIndex        =   15
  760.          Top             =   3720
  761.          Width           =   1695
  762.       End
  763.       Begin VB.Label lblRequiredFileAttribs 
  764.          Caption         =   "RequiredFileAttributes:"
  765.          Height          =   255
  766.          Left            =   -74760
  767.          TabIndex        =   13
  768.          Top             =   3720
  769.          Width           =   1695
  770.       End
  771.       Begin VB.Label lblFilesToExclude 
  772.          Caption         =   "FilesToExclude:"
  773.          Height          =   255
  774.          Left            =   -74760
  775.          TabIndex        =   10
  776.          Top             =   2520
  777.          Width           =   1695
  778.       End
  779.       Begin VB.Label lblPreviewFilesToProcess 
  780.          Caption         =   "FilesToProcess:"
  781.          Height          =   255
  782.          Left            =   -74760
  783.          TabIndex        =   8
  784.          Top             =   1680
  785.          Width           =   1695
  786.       End
  787.       Begin VB.Label lblPreviewFiles 
  788.          Caption         =   $"frmmain.frx":069A
  789.          Height          =   1095
  790.          Left            =   -74760
  791.          TabIndex        =   7
  792.          Top             =   480
  793.          Width           =   4935
  794.       End
  795.    End
  796.    Begin MSComctlLib.ListView lstResults 
  797.       Height          =   4875
  798.       Left            =   5640
  799.       TabIndex        =   3
  800.       Top             =   1035
  801.       Width           =   3975
  802.       _ExtentX        =   7011
  803.       _ExtentY        =   8599
  804.       View            =   3
  805.       MultiSelect     =   -1  'True
  806.       LabelWrap       =   -1  'True
  807.       HideSelection   =   -1  'True
  808.       HideColumnHeaders=   -1  'True
  809.       _Version        =   393217
  810.       ForeColor       =   -2147483640
  811.       BackColor       =   -2147483643
  812.       BorderStyle     =   1
  813.       Appearance      =   1
  814.       NumItems        =   1
  815.       BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  816.          Object.Width           =   17639
  817.       EndProperty
  818.    End
  819.    Begin VB.Label lblResults 
  820.       Caption         =   "Triggered events:"
  821.       Height          =   255
  822.       Left            =   5640
  823.       TabIndex        =   2
  824.       Top             =   720
  825.       Width           =   2415
  826.    End
  827.    Begin XceedZipLibCtl.XceedZip xZip 
  828.       Left            =   9240
  829.       Top             =   120
  830.       BasePath        =   ""
  831.       CompressionLevel=   6
  832.       EncryptionPassword=   ""
  833.       RequiredFileAttributes=   0
  834.       ExcludedFileAttributes=   24
  835.       FilesToProcess  =   ""
  836.       FilesToExclude  =   ""
  837.       MinDateToProcess=   2
  838.       MaxDateToProcess=   2958465
  839.       MinSizeToProcess=   0
  840.       MaxSizeToProcess=   0
  841.       SplitSize       =   0
  842.       PreservePaths   =   -1  'True
  843.       ProcessSubfolders=   -1  'True
  844.       SkipIfExisting  =   0   'False
  845.       SkipIfNotExisting=   0   'False
  846.       SkipIfOlderDate =   0   'False
  847.       SkipIfOlderVersion=   0   'False
  848.       TempFolder      =   ""
  849.       UseTempFile     =   -1  'True
  850.       UnzipToFolder   =   ""
  851.       ZipFilename     =   ""
  852.       SpanMultipleDisks=   2
  853.       ExtraHeaders    =   10
  854.       ZipOpenedFiles  =   0   'False
  855.       BackgroundProcessing=   0   'False
  856.       SfxBinrayModule =   ""
  857.       SfxDefaultPassword=   ""
  858.       SfxDefaultUnzipToFolder=   ""
  859.       SfxExistingFileBehavior=   0
  860.       SfxReadmeFile   =   ""
  861.       SfxExecuteAfter =   ""
  862.       SfxInstallMode  =   0   'False
  863.       SfxProgramGroup =   ""
  864.       SfxProgramGroupItems=   ""
  865.       SfxExtensionsToAssociate=   ""
  866.       SfxIconFilename =   ""
  867.    End
  868.    Begin VB.Label txtHeader 
  869.       Caption         =   $"frmmain.frx":07DF
  870.       Height          =   540
  871.       Left            =   120
  872.       TabIndex        =   0
  873.       Top             =   120
  874.       Width           =   8655
  875.    End
  876. Attribute VB_Name = "frmMain"
  877. Attribute VB_GlobalNameSpace = False
  878. Attribute VB_Creatable = False
  879. Attribute VB_PredeclaredId = True
  880. Attribute VB_Exposed = False
  881. '==================================================================
  882. ' Description: Getting Started Sample Application
  883. ' Copyright:   
  884.  Copyright 1995-1999 Xceed Software Inc.
  885. '                All Rights Reserved.
  886. '==================================================================
  887. Option Explicit
  888. '==================================================================
  889. ' Sample code
  890. '==================================================================
  891. '------------------------------------------------------------------------------------
  892. 'The preview button is pressed. xZip's main properties are first reset to the desired
  893. 'default values, then the values of the form's controls are copied to xZip's
  894. 'properties and the PreviewFiles method is called. The PreviewFiles method will list
  895. 'all the files (through the PreviewingFile event) that will be processed by the
  896. 'Zip method when it is called with these same property settings.
  897. '------------------------------------------------------------------------------------
  898. Private Sub btPreview_Click()
  899.     Dim xErr As xcdError
  900.     ' Reset properties, just to make sure other tabs do not interfere with this example
  901.     Call SetDefaultProperties(xZip)
  902.     xZip.FilesToProcess = edtPFilesToProcess.Text
  903.     xZip.FilesToExclude = edtPFilesToExclude.Text
  904.     xZip.ProcessSubfolders = chkPProcessSubfolders.Value
  905.     xZip.RequiredFileAttributes = GetSelectedAttributes(lstPRequiredFileAttributes)
  906.     xZip.ExcludedFileAttributes = GetSelectedAttributes(lstPExcludedFileAttributes)
  907.     lstResults.ListItems.Clear
  908.     xErr = xZip.PreviewFiles
  909. End Sub
  910. '------------------------------------------------------------------------------------
  911. 'The zip button is pressed. xZip's main properties are first reset to the desired
  912. 'default values, then the values of the form's controls are copied to xZip's
  913. 'properties and the Zip method is called. The files that match the criteria specified
  914. 'by the forms properties will be compressed and stored in the zip file specified
  915. 'by the ZipFileName property.
  916. '------------------------------------------------------------------------------------
  917. Private Sub btZip_Click()
  918.     Dim xErr As xcdError
  919.     ' Reset properties, just to make sure other tabs do not interfere with this example
  920.     Call SetDefaultProperties(xZip)
  921.     xZip.ZipFilename = edtZZipFilename.Text
  922.     xZip.BasePath = edtZBasePath.Text
  923.     xZip.FilesToProcess = edtZFilesToProcess.Text
  924.     xZip.FilesToExclude = edtZFilesToExclude.Text
  925.     xZip.PreservePaths = (chkZPreservePaths.Value = vbChecked)
  926.     xZip.UseTempFile = (chkZUseTempFile.Value = vbChecked)
  927.     xZip.TempFolder = edtZTempFolder.Text
  928.     lstResults.ListItems.Clear
  929.     xErr = xZip.Zip
  930. End Sub
  931. '------------------------------------------------------------------------------------
  932. 'The list button is pressed. xZip's main properties are first reset to the desired
  933. 'default values, then the values of the form's controls are copied to xZip's
  934. 'properties and the listing begins. The ListingFile event provides each file's info.
  935. '------------------------------------------------------------------------------------
  936. Private Sub btList_Click()
  937.     Dim xErr As xcdError
  938.            
  939.     ' Reset properties, just to make sure other tabs do not interfere with this example
  940.     Call SetDefaultProperties(xZip)
  941.     xZip.ZipFilename = edtLZipFilename.Text
  942.     xZip.MinDateToProcess = CDate(edtLMinDateToProcess.Text)
  943.     xZip.MaxDateToProcess = CDate(edtLMaxDateToProcess.Text)
  944.     xZip.MinSizeToProcess = edtLMinSizeToProcess.Text
  945.     xZip.MaxSizeToProcess = edtLMaxSizeToProcess.Text
  946.     lstResults.ListItems.Clear
  947.     xErr = xZip.ListZipContents
  948. End Sub
  949. '------------------------------------------------------------------------------------
  950. 'The unzip button is pressed. xZip's main properties are first reset to the desired
  951. 'default values, then the values of the form's controls are copied to xZip's
  952. 'properties and the Unzip method is called. The files that match the criteria
  953. 'specified by the forms properties will be will be unzipped to the folder specified
  954. 'by the UnzipToFolder property.
  955. '------------------------------------------------------------------------------------
  956. Private Sub btUnzip_Click()
  957.     Dim xErr As xcdError
  958.     ' Reset properties, just to make sure other tabs do not interfere with this example
  959.     Call SetDefaultProperties(xZip)
  960.         
  961.     xZip.ZipFilename = edtUZipFilename.Text
  962.     xZip.UnzipToFolder = edtUUnzipToFolder.Text
  963.     xZip.FilesToProcess = edtUFilesToProcess.Text
  964.     xZip.SkipIfExisting = chkUSkipIfExisting.Value
  965.     xZip.SkipIfNotExisting = chkUSkipIfNotExisting.Value
  966.     xZip.SkipIfOlderDate = chkUSkipIfOlderDate.Value
  967.     xZip.SkipIfOlderVersion = chkUSkipIfOlderVersion.Value
  968.     lstResults.ListItems.Clear
  969.     xErr = xZip.Unzip
  970. End Sub
  971. '------------------------------------------------------------------------------------
  972. 'The Create Sfx button is pressed. xZip's main properties are first reset to the
  973. 'desired default values, then the values of the form's controls are copied to xZip's
  974. 'properties and the Zip method is called. If a value is encountered in the
  975. 'SfxBinaryModule property, XceedZip will create a self-extracting zip file with an
  976. 'integrated self-extracting zip file module specified by the SfxBinaryModule property.
  977. '------------------------------------------------------------------------------------
  978. Private Sub btSfx_Click()
  979.     Dim xErr As xcdError
  980.     ' Reset properties, just to make sure other tabs do not interfere with this example
  981.     Call SetDefaultProperties(xZip)
  982.     xZip.SfxBinaryModule = edtSBinaryModule.Text
  983.     xZip.ZipFilename = edtSZipFilename.Text
  984.     xZip.FilesToProcess = edtSFilesToProcess.Text
  985.     xZip.SfxStrings(xssTitle) = edtSTitle.Text
  986.     xZip.SfxMessages(xsmIntro) = edtSIntro.Text
  987.     lstResults.ListItems.Clear
  988.     xErr = xZip.Zip
  989. End Sub
  990. '==================================================================
  991. ' Hints and messages
  992. '==================================================================
  993. '------------------------------------------------------------------------------------
  994. 'Adds a line in the lstResults Textbox
  995. '------------------------------------------------------------------------------------
  996. Public Sub AddMessage(sToAdd As String)
  997.     Dim lList As ListItem
  998.     Set lList = lstResults.ListItems.Add(, , sToAdd)
  999. End Sub
  1000. '------------------------------------------------------------------------------------
  1001. ' Make the popup hint a little bit smarter!
  1002. '------------------------------------------------------------------------------------
  1003. Private Sub ShowHint(sHint As String, CurrentControl As Control)
  1004.     lblHint.Caption = sHint
  1005.     picHint.Top = tabExamples.Top + CurrentControl.Top - 1000
  1006.     picHint.Visible = True
  1007. End Sub
  1008. Private Sub lblHint_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1009.     picHint.Visible = False
  1010. End Sub
  1011. Private Sub lstResults_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1012.     picHint.Visible = False
  1013. End Sub
  1014. Private Sub tabExamples_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1015.     picHint.Visible = False
  1016. End Sub
  1017. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1018.     picHint.Visible = False
  1019. End Sub
  1020. Private Sub lblPreviewFiles_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1021.     picHint.Visible = False
  1022. End Sub
  1023. '------------------------------------------------------------------------------------
  1024. ' Display property explanation when mouse moves over fields
  1025. '------------------------------------------------------------------------------------
  1026. Private Sub btList_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1027.     Call ShowHint(cListZipContentsHint, btList)
  1028. End Sub
  1029. Private Sub btPreview_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1030.     Call ShowHint(cPreviewFilesHint, btPreview)
  1031. End Sub
  1032. Private Sub btUnzip_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1033.     Call ShowHint(cUnzipHint, btUnzip)
  1034. End Sub
  1035. Private Sub btZip_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1036.     Call ShowHint(cZipHint, btZip)
  1037. End Sub
  1038. Private Sub chkPProcessSubfolders_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1039.     Call ShowHint(cProcessSubfolderHint, chkPProcessSubfolders)
  1040. End Sub
  1041. Private Sub btSfx_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1042.     Call ShowHint(cZipSfxHint, btSfx)
  1043. End Sub
  1044. Private Sub chkUSkipIfExisting_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1045.     Call ShowHint(cSkipIfExistingHint, chkUSkipIfExisting)
  1046. End Sub
  1047. Private Sub chkUSkipIfNotExisting_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1048.     Call ShowHint(cSkipIfNotExistingHint, chkUSkipIfNotExisting)
  1049. End Sub
  1050. Private Sub chkUSkipIfOlderDate_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1051.     Call ShowHint(cSkipIfOlderDateHint, chkUSkipIfOlderDate)
  1052. End Sub
  1053. Private Sub chkUSkipIfOlderVersion_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1054.     Call ShowHint(cSkipIfOlderVersionHint, chkUSkipIfOlderVersion)
  1055. End Sub
  1056. Private Sub chkZPreservePaths_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1057.     Call ShowHint(cPreservePathsHint, chkZPreservePaths)
  1058. End Sub
  1059. Private Sub txtUFilesToExclude_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1060.     Call ShowHint(cFilesToExcludeHint, edtPFilesToExclude)
  1061. End Sub
  1062. Private Sub chkZProcessSubfolders_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1063.     Call ShowHint(cProcessSubfolderHint, chkZProcessSubfolders)
  1064. End Sub
  1065. Private Sub chkZUseTempFile_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1066.     Call ShowHint(cUseTempFileHint, chkZUseTempFile)
  1067. End Sub
  1068. Private Sub edtLMaxSizeToProcess_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1069.     Call ShowHint(cMaxSizeToProcessHint, edtLMaxSizeToProcess)
  1070. End Sub
  1071. Private Sub edtLMinSizeToProcess_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1072.     Call ShowHint(cMinSizeToProcessHint, edtLMinSizeToProcess)
  1073. End Sub
  1074. Private Sub edtLZipFilename_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1075.     Call ShowHint(cZipFilenameHint, edtLZipFilename)
  1076. End Sub
  1077. Private Sub edtPFilesToExclude_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1078.     Call ShowHint(cFilesToExcludeHint, edtPFilesToExclude)
  1079. End Sub
  1080. Private Sub edtPFilesToProcess_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1081.     Call ShowHint(cFilesToProcessHint, edtPFilesToProcess)
  1082. End Sub
  1083. Private Sub edtSIntro_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1084.     Call ShowHint(cSfxMessagesHint, edtSIntro)
  1085. End Sub
  1086. Private Sub edtSBinaryModule_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1087.     Call ShowHint(cSfxBinaryModuleHint, edtSBinaryModule)
  1088. End Sub
  1089. Private Sub edtSFilesToProcess_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1090.     Call ShowHint(cFilesToProcessHint, edtSFilesToProcess)
  1091. End Sub
  1092. Private Sub edtSIntroMessage_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1093.     Call ShowHint(cSfxStringsHint, edtSIntro)
  1094. End Sub
  1095. Private Sub edtSTitle_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1096.     Call ShowHint(cSfxStringsHint, edtSTitle)
  1097. End Sub
  1098. Private Sub edtSZipFileName_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1099.     Call ShowHint(cZipFilenameSfxHint, edtSZipFilename)
  1100. End Sub
  1101. Private Sub edtUFilesToProcess_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1102.     Call ShowHint(cFilesToProcessHint, edtUFilesToProcess)
  1103. End Sub
  1104. Private Sub edtUUnzipToFolder_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1105.     Call ShowHint(cUnzipToFolderHint, edtUUnzipToFolder)
  1106. End Sub
  1107. Private Sub edtUZipFilename_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1108.     Call ShowHint(cZipFilenameHint, edtUZipFilename)
  1109. End Sub
  1110. Private Sub edtZBasePath_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1111.     Call ShowHint(cBasePathHint, edtZBasePath)
  1112. End Sub
  1113. Private Sub edtZFilesToProcess_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1114.     Call ShowHint(cFilesToProcessHint, edtZFilesToProcess)
  1115. End Sub
  1116. Private Sub edtZFilesToExclude_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1117.     Call ShowHint(cFilesToExcludeHint, edtZFilesToExclude)
  1118. End Sub
  1119. Private Sub edtZTempFolder_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1120.     Call ShowHint(cTempFolderHint, edtZTempFolder)
  1121. End Sub
  1122. Private Sub edtZZipFilename_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1123.     Call ShowHint(cZipFilenameHint, edtZZipFilename)
  1124. End Sub
  1125. Private Sub lblListMinDateToProcess_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1126.     Call ShowHint(cMinDateToProcessHint, lblListMinDateToProcess)
  1127. End Sub
  1128. Private Sub lblListZipMaxDateToProcess_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1129.     Call ShowHint(cMaxDateToProcessHint, lblListZipMaxDateToProcess)
  1130. End Sub
  1131. Private Sub lstPExcludedFileAttributes_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1132.     Call ShowHint(cExcludedFileAttributesHint, lstPExcludedFileAttributes)
  1133. End Sub
  1134. Private Sub lstPRequiredFileAttributes_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1135.     Call ShowHint(cRequiredFileAttributesHint, lstPRequiredFileAttributes)
  1136. End Sub
  1137. '------------------------------------------------------------------------------------
  1138. 'When the form is loaded, the Listboxes are immediately filled, then the forms
  1139. 'controls are initialized with the appropriate xZip values.
  1140. '------------------------------------------------------------------------------------
  1141. Private Sub Form_Load()
  1142.     ' Fill the attributes list boxes
  1143.     Call FillAttributeList(lstPRequiredFileAttributes)
  1144.     Call FillAttributeList(lstPExcludedFileAttributes)
  1145.     ' Initialize all fields on the form
  1146.     Call InitializePreviewFilesFields
  1147.     Call InitializeZipFields
  1148.     Call InitializeListZipContentsFields
  1149.     Call InitializeUnzipFields
  1150.     Call InitializeSfxFields
  1151. End Sub
  1152. '------------------------------------------------------------------------------------
  1153. 'Initializes the PreviewFiles Tab.
  1154. '------------------------------------------------------------------------------------
  1155. Private Sub InitializePreviewFilesFields()
  1156.     edtPFilesToProcess.Text = xZip.FilesToProcess
  1157.     edtPFilesToProcess.Text = xZip.FilesToExclude
  1158.     Call SetSelectedAttributes(lstPRequiredFileAttributes, xZip.RequiredFileAttributes)
  1159.     Call SetSelectedAttributes(lstPExcludedFileAttributes, xZip.ExcludedFileAttributes)
  1160.     chkPProcessSubfolders.Value = IIf(xZip.ProcessSubfolders, vbChecked, vbUnchecked)
  1161. End Sub
  1162. '------------------------------------------------------------------------------------
  1163. 'Initializes the Zip Tab.
  1164. '------------------------------------------------------------------------------------
  1165. Private Sub InitializeZipFields()
  1166.     edtZZipFilename.Text = xZip.ZipFilename
  1167.     edtZBasePath.Text = xZip.BasePath
  1168.     edtZFilesToProcess.Text = xZip.FilesToProcess
  1169.     chkZPreservePaths.Value = IIf(xZip.PreservePaths, vbChecked, vbUnchecked)
  1170.     chkZProcessSubfolders.Value = IIf(xZip.ProcessSubfolders, vbChecked, vbUnchecked)
  1171.     chkZUseTempFile.Value = IIf(xZip.UseTempFile, vbChecked, vbUnchecked)
  1172.     edtZTempFolder.Text = xZip.TempFolder
  1173. End Sub
  1174. '------------------------------------------------------------------------------------
  1175. 'Initializes the ListZipContents Tab.
  1176. '------------------------------------------------------------------------------------
  1177. Private Sub InitializeListZipContentsFields()
  1178.     edtLZipFilename.Text = xZip.ZipFilename
  1179.     edtLMinDateToProcess.Text = Format(xZip.MinDateToProcess, "dd/mm/yyyy")
  1180.     edtLMaxDateToProcess.Text = Format(xZip.MaxDateToProcess, "dd/mm/yyyy")
  1181.     edtLMinSizeToProcess.Text = xZip.MinSizeToProcess
  1182.     edtLMaxSizeToProcess.Text = xZip.MaxSizeToProcess
  1183. End Sub
  1184. '------------------------------------------------------------------------------------
  1185. 'Initializes the Unzip Tab.
  1186. '------------------------------------------------------------------------------------
  1187. Private Sub InitializeUnzipFields()
  1188.     edtUZipFilename.Text = xZip.ZipFilename
  1189.     edtUUnzipToFolder.Text = xZip.UnzipToFolder
  1190.     edtUFilesToProcess.Text = xZip.FilesToProcess
  1191.     chkUSkipIfExisting.Value = IIf(xZip.SkipIfExisting, vbChecked, vbUnchecked)
  1192.     chkUSkipIfNotExisting.Value = IIf(xZip.SkipIfNotExisting, vbChecked, vbUnchecked)
  1193.     chkUSkipIfOlderDate.Value = IIf(xZip.SkipIfOlderDate, vbChecked, vbUnchecked)
  1194.     chkUSkipIfOlderVersion.Value = IIf(xZip.SkipIfOlderVersion, vbChecked, vbUnchecked)
  1195. End Sub
  1196. '------------------------------------------------------------------------------------
  1197. 'Initializes the Sfx Tab.
  1198. '------------------------------------------------------------------------------------
  1199. Private Sub InitializeSfxFields()
  1200.     edtSZipFilename.Text = xZip.ZipFilename
  1201.     edtSFilesToProcess.Text = xZip.FilesToProcess
  1202.     edtSBinaryModule.Text = "..\..\..\Sfx\xcdsfx32.bin"
  1203.     edtSTitle.Text = xZip.SfxStrings(xssTitle)
  1204.     edtSIntro.Text = xZip.SfxMessages(xsmIntro)
  1205. End Sub
  1206. '==================================================================
  1207. ' XceedZip events
  1208. '==================================================================
  1209. '------------------------------------------------------------------------------------
  1210. 'The FileStatus Event is triggered during the processing of each file. It provides
  1211. 'progress information about the status of each file.
  1212. '------------------------------------------------------------------------------------
  1213. Private Sub xZip_FileStatus(ByVal sFilename As String, ByVal lSize As Long, _
  1214.                             ByVal lCompressedSize As Long, ByVal lBytesProcessed As Long, _
  1215.                             ByVal nBytesPercent As Integer, ByVal nCompressionRatio As Integer, _
  1216.                             ByVal bFileCompleted As Boolean)
  1217.     barFile.Value = nBytesPercent
  1218. End Sub
  1219. '------------------------------------------------------------------------------------
  1220. 'The GlobalStatus Event provides progress information on the execution of any
  1221. 'Xceed Zip method.
  1222. '------------------------------------------------------------------------------------
  1223. Private Sub xZip_GlobalStatus(ByVal lFilesTotal As Long, ByVal lFilesProcessed As Long, _
  1224.                               ByVal lFilesSkipped As Long, ByVal nFilesPercent As Integer, _
  1225.                               ByVal lBytesTotal As Long, ByVal lBytesProcessed As Long, _
  1226.                               ByVal lBytesSkipped As Long, ByVal nBytesPercent As Integer, _
  1227.                               ByVal lBytesOutput As Long, ByVal nCompressionRatio As Integer)
  1228.     barGlobal.Value = nBytesPercent
  1229. End Sub
  1230. '------------------------------------------------------------------------------------
  1231. 'The InsertDisk Event is triggered when reading or writing a spanned zip file and a
  1232. 'new or different disk must be inserted into the drive to continue the current operation.
  1233. '------------------------------------------------------------------------------------
  1234. Private Sub xZip_InsertDisk(ByVal nDiskNumber As Long, bDiskInserted As Boolean)
  1235.     Dim nAnswer As VbMsgBoxResult
  1236.     If nDiskNumber = 0 Then
  1237.         nAnswer = MsgBox("This zip file is part of a multidisk zip file. Please insert the last disk of the set.", vbExclamation + vbOKCancel)
  1238.     Else
  1239.         nAnswer = MsgBox("Please insert disk #" & Trim(Str(nDiskNumber)), vbExclamation + vbOKCancel)
  1240.     End If
  1241.         
  1242.     bDiskInserted = (nAnswer = vbOK)
  1243. End Sub
  1244. '------------------------------------------------------------------------------------
  1245. 'The Listing File event is triggered once for each file listed as a result of calling
  1246. 'the ListZipContents method. It provides complete file information for each file.
  1247. '------------------------------------------------------------------------------------
  1248. Private Sub xZip_ListingFile(ByVal sFilename As String, ByVal sComment As String, ByVal lSize As Long, _
  1249.                              ByVal lCompressedSize As Long, ByVal nCompressionRatio As Integer, _
  1250.                              ByVal xAttributes As XceedZipLibCtl.xcdFileAttributes, ByVal lCRC As Long, _
  1251.                              ByVal dtLastModified As Date, ByVal dtLastAccessed As Date, _
  1252.                              ByVal dtCreated As Date, ByVal xMethod As XceedZipLibCtl.xcdCompressionMethod, _
  1253.                              ByVal bEncrypted As Boolean, ByVal lDiskNumber As Long, _
  1254.                              ByVal bExcluded As Boolean, ByVal xReason As XceedZipLibCtl.xcdSkippingReason)
  1255.     If bExcluded Then
  1256.         Call AddMessage("Excluding " & sFilename & " (reason:" & Str(xReason) & ")")
  1257.     Else
  1258.         Call AddMessage("Listing " & sFilename)
  1259.     End If
  1260. End Sub
  1261. '------------------------------------------------------------------------------------
  1262. 'The PreviewingFile event is triggered for each file being listed as a result of
  1263. 'calling the PreviewFiles method. It provides complete information for each file.
  1264. 'It will list the files which correspond to the xZip control's property settings.
  1265. '------------------------------------------------------------------------------------
  1266. Private Sub xZip_PreviewingFile(ByVal sFilename As String, ByVal sSourceFilename As String, _
  1267.                                 ByVal lSize As Long, ByVal xAttributes As XceedZipLibCtl.xcdFileAttributes, _
  1268.                                 ByVal dtLastModified As Date, ByVal dtLastAccessed As Date, _
  1269.                                 ByVal dtCreated As Date, ByVal bExcluded As Boolean, _
  1270.                                 ByVal xReason As XceedZipLibCtl.xcdSkippingReason)
  1271.     If bExcluded Then
  1272.         Call AddMessage("Excluding " & sFilename & " (reason:" & Str(xReason) & ")")
  1273.     Else
  1274.         Call AddMessage("Previewing " & sFilename)
  1275.     End If
  1276. End Sub
  1277. '------------------------------------------------------------------------------------
  1278. 'The ProcessCompleted event is triggered every time an Xceed Zip method has completed
  1279. 'its operation. This event provides you with some statistics on the operation. It also
  1280. 'provides the method call's return value (xResult parameter), which is of particular
  1281. 'use when you have set the BackgroundProcessing flag to True.
  1282. '------------------------------------------------------------------------------------
  1283. Private Sub xZip_ProcessCompleted(ByVal lFilesTotal As Long, ByVal lFilesProcessed As Long, _
  1284.                                   ByVal lFilesSkipped As Long, ByVal lBytesTotal As Long, _
  1285.                                   ByVal lBytesProcessed As Long, ByVal lBytesSkipped As Long, _
  1286.                                   ByVal lBytesOutput As Long, ByVal nCompressionRatio As Integer, _
  1287.                                   ByVal xResult As XceedZipLibCtl.xcdError)
  1288.     ' Display error code and description
  1289.     Call AddMessage("Process Completed. Error code: " & xResult)
  1290.     Call AddMessage(xZip.GetErrorDescription(xvtError, xResult))
  1291.     ' Display statistics
  1292.     If xZip.CurrentOperation = xcoPreviewing Then
  1293.         AddMessage ("Total number of files previewed: " + Str(lFilesTotal))
  1294.     ElseIf xZip.CurrentOperation = xcoListing Then
  1295.         AddMessage ("Total number of files listed: " + Str(lFilesTotal))
  1296.     Else
  1297.         AddMessage ("Total number of files processed: " + Str(lFilesProcessed))
  1298.         AddMessage ("Total number of files skipped: " + Str(lFilesSkipped))
  1299.     End If
  1300. End Sub
  1301. '------------------------------------------------------------------------------------
  1302. 'The SkippingFile event is triggered whenever a file cannot be processed because
  1303. 'of a problem, because it didn't correspond to the criteria specified in the xZip
  1304. 'controls properties (like MinDateToProcess) or because the bExcluded flag was set
  1305. 'in the ZipPreprocessingFile or UnzipPreprocessingFile events.
  1306. '------------------------------------------------------------------------------------
  1307. Private Sub xZip_SkippingFile(ByVal sFilename As String, ByVal sComment As String, _
  1308.                               ByVal sFilenameOnDisk As String, ByVal lSize As Long, _
  1309.                               ByVal lCompressedSize As Long, _
  1310.                               ByVal xAttributes As XceedZipLibCtl.xcdFileAttributes, _
  1311.                               ByVal lCRC As Long, ByVal dtLastModified As Date, _
  1312.                               ByVal dtLastAccessed As Date, ByVal dtCreated As Date, _
  1313.                               ByVal xMethod As XceedZipLibCtl.xcdCompressionMethod, _
  1314.                               ByVal bEncrypted As Boolean, _
  1315.                               ByVal xReason As XceedZipLibCtl.xcdSkippingReason)
  1316.     Call AddMessage("Skipping " & sFilename & " (reason:" & Str(xReason) & ")")
  1317. End Sub
  1318. '------------------------------------------------------------------------------------
  1319. 'The UnzipPreprocessingFile event represents the last validation before the real
  1320. 'unzipping of each file begins. It gives the user chance to change information about
  1321. 'the file, or cause the file to be skipped (by setting the bExcluded parameter)
  1322. '------------------------------------------------------------------------------------
  1323. Private Sub xZip_UnzipPreprocessingFile(ByVal sFilename As String, ByVal sComment As String, _
  1324.                                         sDestFilename As String, ByVal lSize As Long, _
  1325.                                         ByVal lCompressedSize As Long, xAttributes As XceedZipLibCtl.xcdFileAttributes, _
  1326.                                         ByVal lCRC As Long, dtLastModified As Date, dtLastAccessed As Date, _
  1327.                                         dtCreated As Date, ByVal xMethod As XceedZipLibCtl.xcdCompressionMethod, _
  1328.                                         ByVal bEncrypted As Boolean, sPassword As String, ByVal lDiskNumber As Long, _
  1329.                                         bExcluded As Boolean, ByVal xReason As XceedZipLibCtl.xcdSkippingReason, _
  1330.                                         ByVal bExisting As Boolean, xDestination As XceedZipLibCtl.xcdUnzipDestination)
  1331.     If bExcluded Then
  1332.         Call AddMessage("Excluding " & sFilename & " (reason:" & Str(xReason) & ")")
  1333.     Else
  1334.         Call AddMessage("Unzipping " & sFilename)
  1335.     End If
  1336. End Sub
  1337. '------------------------------------------------------------------------------------
  1338. 'The ZipPreprocessingFile represents the last validation before the real zipping
  1339. 'of each file begins. It gives the user chance to change information about
  1340. 'the file, or cause the file to be skipped (by setting the bExcluded parameter)
  1341. '------------------------------------------------------------------------------------
  1342. Private Sub xZip_ZipPreprocessingFile(sFilename As String, sComment As String, ByVal sSourceFilename As String, _
  1343.                                       ByVal lSize As Long, xAttributes As XceedZipLibCtl.xcdFileAttributes, _
  1344.                                       dtLastModified As Date, dtLastAccessed As Date, dtCreated As Date, _
  1345.                                       xMethod As XceedZipLibCtl.xcdCompressionMethod, bEncrypted As Boolean, _
  1346.                                       sPassword As String, bExcluded As Boolean, ByVal xReason As XceedZipLibCtl.xcdSkippingReason, _
  1347.                                       ByVal bExisting As Boolean)
  1348.     If bExcluded Then
  1349.         Call AddMessage("Excluding " & sFilename & " (reason:" & Str(xReason) & ")")
  1350.     Else
  1351.         Call AddMessage("Zipping " & sFilename)
  1352.     End If
  1353. End Sub
  1354.