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