home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD152442202001.psc / Form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  2001-02-20  |  64.6 KB  |  1,854 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form frmmain 
  4.    Caption         =   "YZY FTP"
  5.    ClientHeight    =   8055
  6.    ClientLeft      =   60
  7.    ClientTop       =   630
  8.    ClientWidth     =   9780
  9.    Icon            =   "Form1.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   8055
  12.    ScaleWidth      =   9780
  13.    StartUpPosition =   2  'CenterScreen
  14.    Begin MSComctlLib.ImageList ImageList4 
  15.       Left            =   9120
  16.       Top             =   1680
  17.       _ExtentX        =   1005
  18.       _ExtentY        =   1005
  19.       BackColor       =   -2147483643
  20.       ImageWidth      =   32
  21.       ImageHeight     =   32
  22.       MaskColor       =   12632256
  23.       _Version        =   393216
  24.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  25.          NumListImages   =   10
  26.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  27.             Picture         =   "Form1.frx":0CCA
  28.             Key             =   ""
  29.          EndProperty
  30.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  31.             Picture         =   "Form1.frx":111E
  32.             Key             =   ""
  33.          EndProperty
  34.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  35.             Picture         =   "Form1.frx":1572
  36.             Key             =   ""
  37.          EndProperty
  38.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  39.             Picture         =   "Form1.frx":160A
  40.             Key             =   ""
  41.          EndProperty
  42.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  43.             Picture         =   "Form1.frx":1A5E
  44.             Key             =   ""
  45.          EndProperty
  46.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  47.             Picture         =   "Form1.frx":1B7E
  48.             Key             =   ""
  49.          EndProperty
  50.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  51.             Picture         =   "Form1.frx":1D4A
  52.             Key             =   ""
  53.          EndProperty
  54.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  55.             Picture         =   "Form1.frx":1F26
  56.             Key             =   ""
  57.          EndProperty
  58.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  59.             Picture         =   "Form1.frx":237A
  60.             Key             =   ""
  61.          EndProperty
  62.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  63.             Picture         =   "Form1.frx":2402
  64.             Key             =   ""
  65.          EndProperty
  66.       EndProperty
  67.    End
  68.    Begin MSComctlLib.ImageList ImageList1 
  69.       Left            =   8520
  70.       Top             =   1680
  71.       _ExtentX        =   1005
  72.       _ExtentY        =   1005
  73.       BackColor       =   -2147483643
  74.       ImageWidth      =   16
  75.       ImageHeight     =   16
  76.       MaskColor       =   12632256
  77.       _Version        =   393216
  78.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  79.          NumListImages   =   13
  80.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  81.             Picture         =   "Form1.frx":248E
  82.             Key             =   ""
  83.          EndProperty
  84.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  85.             Picture         =   "Form1.frx":254E
  86.             Key             =   ""
  87.          EndProperty
  88.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  89.             Picture         =   "Form1.frx":2616
  90.             Key             =   ""
  91.          EndProperty
  92.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  93.             Picture         =   "Form1.frx":26AE
  94.             Key             =   ""
  95.          EndProperty
  96.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  97.             Picture         =   "Form1.frx":2776
  98.             Key             =   ""
  99.          EndProperty
  100.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  101.             Picture         =   "Form1.frx":2892
  102.             Key             =   ""
  103.          EndProperty
  104.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  105.             Picture         =   "Form1.frx":2A5E
  106.             Key             =   ""
  107.          EndProperty
  108.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  109.             Picture         =   "Form1.frx":2B5A
  110.             Key             =   ""
  111.          EndProperty
  112.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  113.             Picture         =   "Form1.frx":2BF2
  114.             Key             =   ""
  115.          EndProperty
  116.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  117.             Picture         =   "Form1.frx":2C7A
  118.             Key             =   ""
  119.          EndProperty
  120.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  121.             Picture         =   "Form1.frx":2D06
  122.             Key             =   ""
  123.          EndProperty
  124.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  125.             Picture         =   "Form1.frx":2E1E
  126.             Key             =   ""
  127.          EndProperty
  128.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  129.             Picture         =   "Form1.frx":2F22
  130.             Key             =   ""
  131.          EndProperty
  132.       EndProperty
  133.    End
  134.    Begin VB.PictureBox Picture2 
  135.       Appearance      =   0  'Flat
  136.       AutoRedraw      =   -1  'True
  137.       BorderStyle     =   0  'None
  138.       ForeColor       =   &H80000008&
  139.       Height          =   6135
  140.       Left            =   4740
  141.       MousePointer    =   9  'Size W E
  142.       ScaleHeight     =   6135
  143.       ScaleWidth      =   60
  144.       TabIndex        =   14
  145.       Top             =   1680
  146.       Width           =   60
  147.    End
  148.    Begin VB.PictureBox Picture1 
  149.       Appearance      =   0  'Flat
  150.       AutoRedraw      =   -1  'True
  151.       BorderStyle     =   0  'None
  152.       ForeColor       =   &H80000008&
  153.       Height          =   60
  154.       Left            =   0
  155.       MousePointer    =   7  'Size N S
  156.       ScaleHeight     =   60
  157.       ScaleWidth      =   9615
  158.       TabIndex        =   13
  159.       Tag             =   "mov"
  160.       Top             =   3450
  161.       Width           =   9615
  162.    End
  163.    Begin VB.TextBox txtInfo 
  164.       ForeColor       =   &H80000006&
  165.       Height          =   975
  166.       Left            =   40
  167.       MultiLine       =   -1  'True
  168.       ScrollBars      =   2  'Vertical
  169.       TabIndex        =   10
  170.       Tag             =   "mov"
  171.       Top             =   600
  172.       Width           =   9495
  173.    End
  174.    Begin MSComctlLib.TreeView TView1 
  175.       Height          =   1580
  176.       Left            =   4800
  177.       TabIndex        =   9
  178.       Tag             =   "mov"
  179.       Top             =   1880
  180.       Width           =   4695
  181.       _ExtentX        =   8281
  182.       _ExtentY        =   2805
  183.       _Version        =   393217
  184.       Indentation     =   106
  185.       Style           =   7
  186.       FullRowSelect   =   -1  'True
  187.       ImageList       =   "ImageList1"
  188.       Appearance      =   1
  189.    End
  190.    Begin MSComctlLib.ImageList ImageList3 
  191.       Left            =   7080
  192.       Top             =   1680
  193.       _ExtentX        =   1005
  194.       _ExtentY        =   1005
  195.       BackColor       =   -2147483643
  196.       ImageWidth      =   20
  197.       ImageHeight     =   20
  198.       MaskColor       =   12632256
  199.       _Version        =   393216
  200.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  201.          NumListImages   =   10
  202.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  203.             Picture         =   "Form1.frx":3042
  204.             Key             =   ""
  205.          EndProperty
  206.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  207.             Picture         =   "Form1.frx":31DE
  208.             Key             =   ""
  209.          EndProperty
  210.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  211.             Picture         =   "Form1.frx":34A2
  212.             Key             =   ""
  213.          EndProperty
  214.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  215.             Picture         =   "Form1.frx":35DA
  216.             Key             =   ""
  217.          EndProperty
  218.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  219.             Picture         =   "Form1.frx":36D2
  220.             Key             =   ""
  221.          EndProperty
  222.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  223.             Picture         =   "Form1.frx":3882
  224.             Key             =   ""
  225.          EndProperty
  226.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  227.             Picture         =   "Form1.frx":3912
  228.             Key             =   ""
  229.          EndProperty
  230.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  231.             Picture         =   "Form1.frx":3ACE
  232.             Key             =   ""
  233.          EndProperty
  234.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  235.             Picture         =   "Form1.frx":3C8A
  236.             Key             =   ""
  237.          EndProperty
  238.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  239.             Picture         =   "Form1.frx":3E2A
  240.             Key             =   ""
  241.          EndProperty
  242.       EndProperty
  243.    End
  244.    Begin MSComctlLib.ImageList ImageList2 
  245.       Left            =   7800
  246.       Top             =   1680
  247.       _ExtentX        =   1005
  248.       _ExtentY        =   1005
  249.       BackColor       =   -2147483643
  250.       ImageWidth      =   20
  251.       ImageHeight     =   20
  252.       MaskColor       =   12632256
  253.       _Version        =   393216
  254.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  255.          NumListImages   =   10
  256.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  257.             Picture         =   "Form1.frx":3FCA
  258.             Key             =   ""
  259.          EndProperty
  260.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  261.             Picture         =   "Form1.frx":4102
  262.             Key             =   ""
  263.          EndProperty
  264.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  265.             Picture         =   "Form1.frx":41E2
  266.             Key             =   ""
  267.          EndProperty
  268.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  269.             Picture         =   "Form1.frx":430A
  270.             Key             =   ""
  271.          EndProperty
  272.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  273.             Picture         =   "Form1.frx":4402
  274.             Key             =   ""
  275.          EndProperty
  276.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  277.             Picture         =   "Form1.frx":4536
  278.             Key             =   ""
  279.          EndProperty
  280.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  281.             Picture         =   "Form1.frx":45C6
  282.             Key             =   ""
  283.          EndProperty
  284.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  285.             Picture         =   "Form1.frx":46A2
  286.             Key             =   ""
  287.          EndProperty
  288.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  289.             Picture         =   "Form1.frx":47F2
  290.             Key             =   ""
  291.          EndProperty
  292.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  293.             Picture         =   "Form1.frx":4992
  294.             Key             =   ""
  295.          EndProperty
  296.       EndProperty
  297.    End
  298.    Begin MSComctlLib.Toolbar Toolbar1 
  299.       Align           =   1  'Align Top
  300.       Height          =   630
  301.       Left            =   0
  302.       TabIndex        =   6
  303.       Top             =   0
  304.       Width           =   9780
  305.       _ExtentX        =   17251
  306.       _ExtentY        =   1111
  307.       ButtonWidth     =   1164
  308.       ButtonHeight    =   1058
  309.       Wrappable       =   0   'False
  310.       Appearance      =   1
  311.       Style           =   1
  312.       ImageList       =   "ImageList2"
  313.       HotImageList    =   "ImageList3"
  314.       _Version        =   393216
  315.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  316.          NumButtons      =   16
  317.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  318.             Caption         =   "Connct"
  319.             Key             =   "Connect"
  320.             Object.ToolTipText     =   "Aktivovat p
  321. ipojen
  322.  k servru"
  323.             ImageIndex      =   7
  324.          EndProperty
  325.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  326.             Caption         =   "Discn."
  327.             Key             =   "Disconnect"
  328.             Object.ToolTipText     =   "Odlogovat se z aktivn
  329. ipojen
  330.  k servru"
  331.             ImageIndex      =   2
  332.          EndProperty
  333.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  334.             Key             =   "Spr1"
  335.             Style           =   3
  336.          EndProperty
  337.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  338.             Caption         =   "Refresh"
  339.             Key             =   "Reload"
  340.             Object.ToolTipText     =   "Tento pi
  341. : aktualizuje vybran
  342.  adres
  343.             ImageIndex      =   6
  344.          EndProperty
  345.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  346.             Caption         =   "Upload"
  347.             Key             =   "Upload"
  348.             Object.ToolTipText     =   "Tento pi
  349. le vybran
  350.  soubory na server"
  351.             ImageIndex      =   4
  352.          EndProperty
  353.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  354.             Caption         =   "+Folder"
  355.             Key             =   "NewFolder"
  356.             Object.ToolTipText     =   "Tento pi
  357. : vytvo
  358.  novou slo
  359.             ImageIndex      =   5
  360.          EndProperty
  361.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  362.             Caption         =   "-Folder"
  363.             Key             =   "DelFolder"
  364.             Object.ToolTipText     =   "Tento pi
  365. : odstran
  366.  aktu
  367.             ImageIndex      =   8
  368.          EndProperty
  369.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  370.             Caption         =   "Del File"
  371.             Key             =   "DelFile"
  372.             Object.ToolTipText     =   "Tento pi
  373. : odstran
  374.  vybran
  375.  soubor"
  376.             ImageIndex      =   10
  377.          EndProperty
  378.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  379.             Caption         =   "Rname"
  380.             Key             =   "Rename"
  381.             Object.ToolTipText     =   "Tento pi
  382. ejmenuje vybran
  383.  soubor"
  384.             ImageIndex      =   1
  385.          EndProperty
  386.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  387.             Style           =   3
  388.          EndProperty
  389.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  390.             Caption         =   "Refresh"
  391.             Key             =   "Reload2"
  392.             Object.ToolTipText     =   "Server: aktualizuje vybran
  393.  adres
  394.             ImageIndex      =   6
  395.          EndProperty
  396.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  397.             Caption         =   "Dnload"
  398.             Key             =   "DownLoad"
  399.             Object.ToolTipText     =   "Server: st
  400. hne vybran
  401.  soubory na Tento pi
  402.             ImageIndex      =   4
  403.          EndProperty
  404.          BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  405.             Caption         =   "+Folder"
  406.             Key             =   "NewFolder2"
  407.             Object.ToolTipText     =   "Server: vytvo
  408.  novou slo
  409.             ImageIndex      =   5
  410.          EndProperty
  411.          BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  412.             Caption         =   "-Folder"
  413.             Key             =   "DelFolder2"
  414.             Object.ToolTipText     =   "Server: odstran
  415.  aktu
  416.             ImageIndex      =   8
  417.          EndProperty
  418.          BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  419.             Caption         =   "Del File"
  420.             Key             =   "DelFile2"
  421.             Object.ToolTipText     =   "Server: odstran
  422.  vybran
  423.  soubor"
  424.             ImageIndex      =   10
  425.          EndProperty
  426.          BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  427.             Caption         =   "Rname"
  428.             Key             =   "Rename2"
  429.             Object.ToolTipText     =   "Server: p
  430. ejmenuje vybran
  431.  soubor"
  432.             ImageIndex      =   1
  433.          EndProperty
  434.       EndProperty
  435.    End
  436.    Begin MSComctlLib.StatusBar StatusBar1 
  437.       Align           =   2  'Align Bottom
  438.       Height          =   255
  439.       Left            =   0
  440.       TabIndex        =   5
  441.       Top             =   7800
  442.       Width           =   9780
  443.       _ExtentX        =   17251
  444.       _ExtentY        =   450
  445.       _Version        =   393216
  446.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  447.          NumPanels       =   3
  448.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  449.             Style           =   5
  450.             Object.Width           =   1235
  451.             MinWidth        =   1235
  452.             Picture         =   "Form1.frx":4B32
  453.             TextSave        =   "15:12"
  454.          EndProperty
  455.          BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  456.             AutoSize        =   1
  457.             Object.Width           =   14049
  458.             Picture         =   "Form1.frx":4BE2
  459.          EndProperty
  460.          BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  461.             Object.Width           =   1411
  462.             MinWidth        =   1411
  463.             Text            =   "Off Lajna"
  464.             TextSave        =   "Off Lajna"
  465.          EndProperty
  466.       EndProperty
  467.    End
  468.    Begin VB.DriveListBox Drive1 
  469.       Height          =   315
  470.       Left            =   40
  471.       TabIndex        =   3
  472.       Tag             =   "mov"
  473.       Top             =   1880
  474.       Width           =   4695
  475.    End
  476.    Begin MSComctlLib.ListView ListView1 
  477.       Height          =   4320
  478.       Left            =   45
  479.       TabIndex        =   2
  480.       Tag             =   "mov"
  481.       Top             =   3495
  482.       Width           =   4695
  483.       _ExtentX        =   8281
  484.       _ExtentY        =   7620
  485.       View            =   3
  486.       MultiSelect     =   -1  'True
  487.       LabelWrap       =   -1  'True
  488.       HideSelection   =   -1  'True
  489.       FullRowSelect   =   -1  'True
  490.       PictureAlignment=   4
  491.       _Version        =   393217
  492.       Icons           =   "ImageList4"
  493.       SmallIcons      =   "ImageList1"
  494.       ForeColor       =   -2147483640
  495.       BackColor       =   -2147483643
  496.       BorderStyle     =   1
  497.       Appearance      =   1
  498.       NumItems        =   4
  499.       BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  500.          Text            =   "N
  501. zev Souboru"
  502.          Object.Width           =   3528
  503.       EndProperty
  504.       BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  505.          Alignment       =   1
  506.          SubItemIndex    =   1
  507.          Text            =   "Velikost "
  508.          Object.Width           =   2117
  509.       EndProperty
  510.       BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  511.          SubItemIndex    =   2
  512.          Text            =   "Datum"
  513.          Object.Width           =   2117
  514.       EndProperty
  515.       BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  516.          SubItemIndex    =   3
  517.          Object.Width           =   0
  518.       EndProperty
  519.    End
  520.    Begin VB.DirListBox Dir1 
  521.       Height          =   1215
  522.       Left            =   40
  523.       TabIndex        =   1
  524.       Tag             =   "mov"
  525.       Top             =   2240
  526.       Width           =   4695
  527.    End
  528.    Begin VB.FileListBox File1 
  529.       Height          =   2040
  530.       Left            =   6960
  531.       TabIndex        =   0
  532.       Top             =   -360
  533.       Visible         =   0   'False
  534.       Width           =   1575
  535.    End
  536.    Begin MSComctlLib.ListView ListView2 
  537.       Height          =   4320
  538.       Left            =   4800
  539.       TabIndex        =   4
  540.       Tag             =   "mov"
  541.       Top             =   3495
  542.       Width           =   4695
  543.       _ExtentX        =   8281
  544.       _ExtentY        =   7620
  545.       View            =   3
  546.       MultiSelect     =   -1  'True
  547.       LabelWrap       =   -1  'True
  548.       HideSelection   =   -1  'True
  549.       FullRowSelect   =   -1  'True
  550.       PictureAlignment=   4
  551.       _Version        =   393217
  552.       Icons           =   "ImageList4"
  553.       SmallIcons      =   "ImageList1"
  554.       ForeColor       =   -2147483640
  555.       BackColor       =   -2147483643
  556.       BorderStyle     =   1
  557.       Appearance      =   1
  558.       NumItems        =   4
  559.       BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  560.          Text            =   "N
  561. zev Souboru"
  562.          Object.Width           =   3528
  563.       EndProperty
  564.       BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  565.          Alignment       =   1
  566.          SubItemIndex    =   1
  567.          Text            =   "Velikost "
  568.          Object.Width           =   2117
  569.       EndProperty
  570.       BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  571.          SubItemIndex    =   2
  572.          Text            =   "Datum"
  573.          Object.Width           =   2117
  574.       EndProperty
  575.       BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  576.          SubItemIndex    =   3
  577.          Object.Width           =   0
  578.       EndProperty
  579.    End
  580.    Begin VB.Image picMenu8 
  581.       Appearance      =   0  'Flat
  582.       Height          =   195
  583.       Left            =   9480
  584.       Picture         =   "Form1.frx":4C92
  585.       Top             =   5040
  586.       Visible         =   0   'False
  587.       Width           =   195
  588.    End
  589.    Begin VB.Image picMenu7 
  590.       Appearance      =   0  'Flat
  591.       Height          =   195
  592.       Left            =   9480
  593.       Picture         =   "Form1.frx":4D06
  594.       Top             =   4680
  595.       Visible         =   0   'False
  596.       Width           =   195
  597.    End
  598.    Begin VB.Image picMenu6 
  599.       Appearance      =   0  'Flat
  600.       Height          =   195
  601.       Left            =   9480
  602.       Picture         =   "Form1.frx":4D77
  603.       Top             =   4440
  604.       Visible         =   0   'False
  605.       Width           =   195
  606.    End
  607.    Begin VB.Image picMenu5 
  608.       Appearance      =   0  'Flat
  609.       Height          =   195
  610.       Left            =   9480
  611.       Picture         =   "Form1.frx":4DDC
  612.       Top             =   4080
  613.       Visible         =   0   'False
  614.       Width           =   195
  615.    End
  616.    Begin VB.Image picMenu4 
  617.       Appearance      =   0  'Flat
  618.       Height          =   195
  619.       Left            =   9480
  620.       Picture         =   "Form1.frx":4E49
  621.       Top             =   3840
  622.       Visible         =   0   'False
  623.       Width           =   195
  624.    End
  625.    Begin VB.Image picMenu3 
  626.       Appearance      =   0  'Flat
  627.       Height          =   195
  628.       Left            =   9480
  629.       Picture         =   "Form1.frx":4ED7
  630.       Top             =   3600
  631.       Visible         =   0   'False
  632.       Width           =   195
  633.    End
  634.    Begin VB.Image picMenu2 
  635.       Appearance      =   0  'Flat
  636.       Height          =   195
  637.       Left            =   9480
  638.       Picture         =   "Form1.frx":4F28
  639.       Top             =   3240
  640.       Visible         =   0   'False
  641.       Width           =   195
  642.    End
  643.    Begin VB.Image picMenu 
  644.       Appearance      =   0  'Flat
  645.       Height          =   195
  646.       Index           =   3
  647.       Left            =   9480
  648.       Picture         =   "Form1.frx":4FC2
  649.       Top             =   3000
  650.       Visible         =   0   'False
  651.       Width           =   195
  652.    End
  653.    Begin VB.Image picMenu 
  654.       Appearance      =   0  'Flat
  655.       Height          =   195
  656.       Index           =   2
  657.       Left            =   9480
  658.       Picture         =   "Form1.frx":503E
  659.       Top             =   2760
  660.       Visible         =   0   'False
  661.       Width           =   195
  662.    End
  663.    Begin VB.Image picMenu 
  664.       Appearance      =   0  'Flat
  665.       Height          =   195
  666.       Index           =   1
  667.       Left            =   9480
  668.       Picture         =   "Form1.frx":50CD
  669.       Top             =   2520
  670.       Visible         =   0   'False
  671.       Width           =   195
  672.    End
  673.    Begin VB.Image picMenu 
  674.       Appearance      =   0  'Flat
  675.       Height          =   195
  676.       Index           =   0
  677.       Left            =   9480
  678.       Picture         =   "Form1.frx":5144
  679.       Top             =   2280
  680.       Visible         =   0   'False
  681.       Width           =   195
  682.    End
  683.    Begin VB.Label Label3 
  684.       BackStyle       =   0  'Transparent
  685.       ForeColor       =   &H8000000E&
  686.       Height          =   255
  687.       Left            =   5840
  688.       TabIndex        =   12
  689.       Tag             =   "mov"
  690.       Top             =   1640
  691.       Width           =   2895
  692.    End
  693.    Begin VB.Label Label1 
  694.       BackStyle       =   0  'Transparent
  695.       ForeColor       =   &H8000000E&
  696.       Height          =   255
  697.       Left            =   960
  698.       TabIndex        =   11
  699.       Tag             =   "mov"
  700.       Top             =   1635
  701.       Width           =   3615
  702.    End
  703.    Begin VB.Label Label4 
  704.       BackColor       =   &H8000000C&
  705.       Caption         =   " Server:"
  706.       BeginProperty Font 
  707.          Name            =   "MS Sans Serif"
  708.          Size            =   12
  709.          Charset         =   238
  710.          Weight          =   700
  711.          Underline       =   0   'False
  712.          Italic          =   0   'False
  713.          Strikethrough   =   0   'False
  714.       EndProperty
  715.       ForeColor       =   &H00C0C0C0&
  716.       Height          =   300
  717.       Left            =   4800
  718.       TabIndex        =   8
  719.       Tag             =   "mov"
  720.       Top             =   1560
  721.       Width           =   3735
  722.    End
  723.    Begin VB.Label Label2 
  724.       BackColor       =   &H8000000C&
  725.       Caption         =   " Local:"
  726.       BeginProperty Font 
  727.          Name            =   "MS Sans Serif"
  728.          Size            =   12
  729.          Charset         =   238
  730.          Weight          =   700
  731.          Underline       =   0   'False
  732.          Italic          =   0   'False
  733.          Strikethrough   =   0   'False
  734.       EndProperty
  735.       ForeColor       =   &H00C0C0C0&
  736.       Height          =   300
  737.       Left            =   40
  738.       TabIndex        =   7
  739.       Tag             =   "mov"
  740.       Top             =   1560
  741.       Width           =   4695
  742.    End
  743.    Begin VB.Menu zSoubor 
  744.       Caption         =   "&File"
  745.       Begin VB.Menu zOpen 
  746.          Caption         =   "&Open log"
  747.          Shortcut        =   ^O
  748.       End
  749.       Begin VB.Menu zSave 
  750.          Caption         =   "&Save log"
  751.          Shortcut        =   ^S
  752.       End
  753.       Begin VB.Menu zConnect 
  754.          Caption         =   "&Connect to Server"
  755.          Shortcut        =   ^E
  756.       End
  757.       Begin VB.Menu zDisconnect 
  758.          Caption         =   "&Discinnect from Server"
  759.          Shortcut        =   ^Q
  760.       End
  761.       Begin VB.Menu zSep9 
  762.          Caption         =   "-"
  763.       End
  764.       Begin VB.Menu zOdpojit 
  765.          Caption         =   "&End connection"
  766.       End
  767.       Begin VB.Menu zSep1 
  768.          Caption         =   "-"
  769.       End
  770.       Begin VB.Menu zEnd 
  771.          Caption         =   "Cl&ose"
  772.          Shortcut        =   {F4}
  773.       End
  774.    End
  775.    Begin VB.Menu zLocal 
  776.       Caption         =   "&Local"
  777.       Begin VB.Menu zLokRef 
  778.          Caption         =   "&Refresh"
  779.       End
  780.       Begin VB.Menu zOpenFile 
  781.          Caption         =   "&Open File"
  782.       End
  783.       Begin VB.Menu zSep6 
  784.          Caption         =   "-"
  785.       End
  786.       Begin VB.Menu zLokUp 
  787.          Caption         =   "&Upload"
  788.          Shortcut        =   ^U
  789.       End
  790.       Begin VB.Menu zSep5 
  791.          Caption         =   "-"
  792.       End
  793.       Begin VB.Menu zLokNF 
  794.          Caption         =   "&New Folder"
  795.       End
  796.       Begin VB.Menu zLokDF 
  797.          Caption         =   "&Remove Folder"
  798.       End
  799.       Begin VB.Menu zLokDS 
  800.          Caption         =   "&Delete File"
  801.       End
  802.       Begin VB.Menu zLokRS 
  803.          Caption         =   "Rename &File"
  804.       End
  805.       Begin VB.Menu zSep3 
  806.          Caption         =   "-"
  807.       End
  808.       Begin VB.Menu zPat 
  809.          Caption         =   "Pa&ttern"
  810.          Begin VB.Menu zAll 
  811.             Caption         =   "&All files (*.*)"
  812.             Checked         =   -1  'True
  813.          End
  814.          Begin VB.Menu zSep11 
  815.             Caption         =   "-"
  816.          End
  817.          Begin VB.Menu zDefine 
  818.             Caption         =   "&Define types (*.?)"
  819.          End
  820.       End
  821.       Begin VB.Menu zFind 
  822.          Caption         =   "Fin&d File"
  823.          Shortcut        =   ^F
  824.       End
  825.       Begin VB.Menu zProperties 
  826.          Caption         =   "&Properties"
  827.       End
  828.    End
  829.    Begin VB.Menu zRemote 
  830.       Caption         =   "&Remote"
  831.       Begin VB.Menu zRemRef 
  832.          Caption         =   "&Refresh"
  833.       End
  834.       Begin VB.Menu zSep7 
  835.          Caption         =   "-"
  836.       End
  837.       Begin VB.Menu zRemDown 
  838.          Caption         =   "&Download"
  839.          Shortcut        =   ^D
  840.       End
  841.       Begin VB.Menu zSep8 
  842.          Caption         =   "-"
  843.       End
  844.       Begin VB.Menu zRemNF 
  845.          Caption         =   "&New Folder"
  846.       End
  847.       Begin VB.Menu zRemDF 
  848.          Caption         =   "Rem&ove Folder"
  849.       End
  850.       Begin VB.Menu zRemDS 
  851.          Caption         =   "&Delete File"
  852.       End
  853.       Begin VB.Menu zRemRS 
  854.          Caption         =   "Ren&ame File"
  855.       End
  856.       Begin VB.Menu zSep12 
  857.          Caption         =   "-"
  858.       End
  859.       Begin VB.Menu zPat2 
  860.          Caption         =   "Pa&ttern"
  861.          Begin VB.Menu zAll2 
  862.             Caption         =   "&All files (*.*)"
  863.             Checked         =   -1  'True
  864.          End
  865.          Begin VB.Menu zSep13 
  866.             Caption         =   "-"
  867.          End
  868.          Begin VB.Menu zDefine2 
  869.             Caption         =   "&Define types (*.?)"
  870.          End
  871.       End
  872.    End
  873.    Begin VB.Menu zNast 
  874.       Caption         =   "&Tools"
  875.       Begin VB.Menu zTento 
  876.          Caption         =   "&Local"
  877.          Begin VB.Menu ztBigIc 
  878.             Caption         =   "&Big Icons"
  879.          End
  880.          Begin VB.Menu ztSmallIc 
  881.             Caption         =   "&Small Icons"
  882.          End
  883.          Begin VB.Menu ztSeznam 
  884.             Caption         =   "&List"
  885.          End
  886.          Begin VB.Menu ztReport 
  887.             Caption         =   "&Report"
  888.          End
  889.       End
  890.       Begin VB.Menu zServer 
  891.          Caption         =   "&Server"
  892.          Begin VB.Menu zsBigIc 
  893.             Caption         =   "&Big Icons"
  894.          End
  895.          Begin VB.Menu zsSmallIc 
  896.             Caption         =   "&Small Icons"
  897.          End
  898.          Begin VB.Menu zsSeznam 
  899.             Caption         =   "&List"
  900.          End
  901.          Begin VB.Menu zsReport 
  902.             Caption         =   "&Report"
  903.          End
  904.       End
  905.       Begin VB.Menu zSep4 
  906.          Caption         =   "-"
  907.       End
  908.       Begin VB.Menu zTransf 
  909.          Caption         =   "&Transfer"
  910.          Begin VB.Menu zBinary 
  911.             Caption         =   "&Binary"
  912.             Checked         =   -1  'True
  913.          End
  914.          Begin VB.Menu zAscii 
  915.             Caption         =   "&ASCII"
  916.          End
  917.       End
  918.       Begin VB.Menu zPassive 
  919.          Caption         =   "&Pasive mode"
  920.       End
  921.       Begin VB.Menu zSep10 
  922.          Caption         =   "-"
  923.       End
  924.       Begin VB.Menu zTools 
  925.          Caption         =   "S&how Toolbar"
  926.          Checked         =   -1  'True
  927.       End
  928.       Begin VB.Menu zOption 
  929.          Caption         =   "&Options"
  930.       End
  931.    End
  932.    Begin VB.Menu zHilfe 
  933.       Caption         =   "&Help"
  934.       Begin VB.Menu zHelp 
  935.          Caption         =   "&Help"
  936.       End
  937.       Begin VB.Menu zSep2 
  938.          Caption         =   "-"
  939.       End
  940.       Begin VB.Menu zAbout 
  941.          Caption         =   "&About"
  942.       End
  943.    End
  944. Attribute VB_Name = "frmmain"
  945. Attribute VB_GlobalNameSpace = False
  946. Attribute VB_Creatable = False
  947. Attribute VB_PredeclaredId = True
  948. Attribute VB_Exposed = False
  949. 'Yzyftp - I made this originally in Czech, so this is a result of my quick rough
  950. 'translation to english. Be patient with any gramatical mestakes or incomplete,
  951. 'no sence making lines. Any questions send to: davidsmejkal@hellada.cz
  952. 'You are free to do what ever you decide to do with this code
  953. Option Explicit
  954. Const SW_SHOWNORMAL = 1
  955. Private Const SW_SHOW = 5
  956. Private Const SEE_MASK_INVOKEIDLIST = &HC
  957. Private Type SHELLEXECUTEINFO
  958.     cbSize As Long
  959.     fMask As Long
  960.     hwnd As Long
  961.     lpVerb As String
  962.     lpFile As String
  963.     lpParameters As String
  964.     lpDirectory As String
  965.     nShow As Long
  966.     hInstApp As Long
  967.     lpIDList As Long
  968.     lpClass As String
  969.     hkeyClass As Long
  970.     dwHotKey As Long
  971.     hIcon As Long
  972.     hProcess As Long
  973. End Type
  974. Private Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long
  975. Private Const MF_BYPOSITION = &H400&
  976. Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
  977. Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
  978. Private Declare Function SHFindFiles Lib "shell32.dll" Alias "#90" (ByVal pidlRoot As Long, ByVal pidlSavedSearches As Long) As Long
  979. Private Declare Function ShellExecuteEx Lib "shell32.dll" (ByRef s As SHELLEXECUTEINFO) As Long
  980. Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
  981. Private lsDrag() As ListItem
  982. Private fPat As String
  983. Dim iPos As Integer
  984. Dim strExt As String
  985. Dim tvNode As Node
  986. Dim lsItem As ListItem
  987. Public Sub List()
  988. Dim hFile As Long, udtWFD As WIN32_FIND_DATA
  989. Dim strFile As String
  990. Dim Img As Integer, r As Integer
  991. Dim L&
  992. Dim sTime As SYSTEMTIME, lTime As FILETIME
  993. If session = 0 Or server = 0 Then
  994.     MsgBox "You are not connected to any server", vbInformation, App.Title
  995.     Exit Sub
  996. End If
  997. StatusBar1.Panels(2).Text = Time & "  > Sending request..., wait."
  998.     frmmain.MousePointer = 11
  999.     ListView2.ListItems.Clear
  1000.     frmmain.txtInfo.SelText = Time & " > Transfering data..." & vbCrLf
  1001.     txtInfo.SelText = Time & " > Opening folder: " & Chr(34) & adr & Chr(34) & vbCrLf
  1002.     hFile = FtpFindFirstFile(server, adr, udtWFD, INTERNET_FLAG_RELOAD Or INTERNET_FLAG_NO_CACHE_WRITE, 0&)
  1003.         If hFile Then
  1004.           Do
  1005.             strFile = Left(udtWFD.cFileName, InStr(1, udtWFD.cFileName, Chr(0)) - 1)
  1006.                 If Len(strFile) > 0 Then
  1007.                     If udtWFD.dwFileAttributes And vbDirectory Then
  1008.                               Set tvNode = TView1.Nodes.Add(Klic, tvwChild, Klic & strFile & "/", strFile, 12, 13)
  1009.                               TView1.Nodes(1).Expanded = True
  1010.                     Else
  1011.                         Img = ImgNumber(strFile)
  1012.                         Set lsItem = ListView2.ListItems.Add(, , strFile, Img, Img)
  1013.                         lsItem.SubItems(1) = Format((udtWFD.nFileSizeLow / 1024), "### ### ###.##") & "Kb"
  1014.                           lTime = udtWFD.ftLastWriteTime
  1015.                           L = FileTimeToSystemTime(lTime, sTime)
  1016.                         lsItem.SubItems(2) = CalcFTime(sTime)
  1017.                         lsItem.SubItems(3) = udtWFD.nFileSizeLow
  1018.                     End If
  1019.                 End If
  1020.             Loop While InternetFindNextFile(hFile, udtWFD)
  1021.         End If
  1022.     InternetCloseHandle hFile
  1023.     txtInfo.SelText = Time & " > Data transfer completed succesfully." & vbCrLf
  1024. ListView2.SelectedItem = Nothing
  1025. frmmain.MousePointer = 0
  1026. StatusBar1.Panels(2).Text = "Server: " & ListView2.ListItems.Count & " Files in folder: " & adr
  1027. End Sub
  1028. Private Sub Dir1_Click()
  1029. StatusBar1.Panels(2).Text = "Local: Doudle click folder for retreiving files"
  1030. End Sub
  1031. Private Sub Dir1_Change()
  1032. File1.Path = Dir1.Path
  1033. File1.Refresh
  1034. LoadLocal
  1035. End Sub
  1036. Private Sub Dir1_KeyUp(KeyCode As Integer, Shift As Integer)
  1037. If KeyCode = vbKeyDelete Then
  1038.     zLokDF_Click
  1039. End If
  1040. End Sub
  1041. Private Sub Drive1_GotFocus()
  1042. StatusBar1.Panels(2).Text = "Locall: Chose local disc"
  1043. End Sub
  1044. Private Sub Drive1_Change()
  1045. Dir1.Path = Drive1.Drive
  1046. Dir1.Refresh
  1047. End Sub
  1048. Private Sub Form_Load()
  1049. Dim hMenu As Long, hSubMenu As Long
  1050. Dim RetVal As Long
  1051. Dim i As Long
  1052. hMenu = GetMenu(Me.hwnd)
  1053. hSubMenu = GetSubMenu(hMenu, 0)
  1054. For i = 0 To 3
  1055.     RetVal = SetMenuItemBitmaps(hSubMenu, i, MF_BYPOSITION, picMenu(i).Picture, picMenu(i).Picture)
  1056. Next i
  1057. RetVal = SetMenuItemBitmaps(hSubMenu, 5, MF_BYPOSITION, picMenu2.Picture, picMenu2.Picture)
  1058. hSubMenu = GetSubMenu(hMenu, 1)
  1059. RetVal = SetMenuItemBitmaps(hSubMenu, 0, MF_BYPOSITION, picMenu3.Picture, picMenu3.Picture)
  1060. RetVal = SetMenuItemBitmaps(hSubMenu, 1, MF_BYPOSITION, picMenu(0).Picture, picMenu(0).Picture)
  1061. RetVal = SetMenuItemBitmaps(hSubMenu, 3, MF_BYPOSITION, picMenu4.Picture, picMenu4.Picture)
  1062. RetVal = SetMenuItemBitmaps(hSubMenu, 11, MF_BYPOSITION, picMenu6.Picture, picMenu6.Picture)
  1063. RetVal = SetMenuItemBitmaps(hSubMenu, 12, MF_BYPOSITION, picMenu5.Picture, picMenu5.Picture)
  1064. hSubMenu = GetSubMenu(hMenu, 2)
  1065. RetVal = SetMenuItemBitmaps(hSubMenu, 0, MF_BYPOSITION, picMenu3.Picture, picMenu3.Picture)
  1066. RetVal = SetMenuItemBitmaps(hSubMenu, 2, MF_BYPOSITION, picMenu4.Picture, picMenu4.Picture)
  1067. hSubMenu = GetSubMenu(hMenu, 3)
  1068. RetVal = SetMenuItemBitmaps(hSubMenu, 0, MF_BYPOSITION, picMenu7.Picture, picMenu7.Picture)
  1069. RetVal = SetMenuItemBitmaps(hSubMenu, 1, MF_BYPOSITION, picMenu(2).Picture, picMenu(2).Picture)
  1070. hSubMenu = GetSubMenu(hMenu, 4)
  1071. RetVal = SetMenuItemBitmaps(hSubMenu, 0, MF_BYPOSITION, picMenu8.Picture, picMenu8.Picture)
  1072. fPat = "*.*"
  1073. Dir1.Path = App.Path
  1074. LoadLocal
  1075. End Sub
  1076. Private Sub Form_UnLoad(Cancel As Integer)
  1077.     InternetCloseHandle server
  1078.     InternetCloseHandle session
  1079. End Sub
  1080. Private Sub Form_Resize()
  1081. If frmmain.WindowState = 1 Then Exit Sub
  1082. Picture1.Width = frmmain.Width - 40
  1083. Picture2.Left = frmmain.Width / 2 - 80
  1084. Picture2.Height = frmmain.ScaleHeight - Picture2.Top - 240
  1085. Dir1.Height = Picture1.Top - Dir1.Top
  1086. TView1.Height = Picture1.Top - TView1.Top
  1087. txtInfo.Width = frmmain.ScaleWidth - 80
  1088. Drive1.Width = frmmain.Width / 2 - 140
  1089. Dir1.Width = frmmain.Width / 2 - 140
  1090. TView1.Left = Drive1.Width + 120
  1091. TView1.Width = frmmain.Width / 2 - 140
  1092. ListView1.Width = frmmain.Width / 2 - 140
  1093. ListView2.Left = Drive1.Width + 120
  1094. ListView2.Width = frmmain.Width / 2 - 140
  1095. ListView1.Height = frmmain.ScaleHeight - (Picture1.Top + 260)
  1096. ListView2.Height = frmmain.ScaleHeight - (Picture1.Top + 260)
  1097. Label3.Left = TView1.Left + 1040
  1098. Label4.Left = TView1.Left
  1099. Label1.Width = ListView1.Width - 940
  1100. Label2.Width = ListView1.Width
  1101. Label3.Width = ListView2.Width - 1040
  1102. Label4.Width = ListView2.Width
  1103. ListView1.Refresh
  1104. ListView2.Refresh
  1105. End Sub
  1106. Private Sub LoadLocal()
  1107. Dim X As Integer, Img As Integer
  1108. Dim Y As Long
  1109. Drive1.Refresh
  1110. Dir1.Refresh
  1111. File1.Refresh
  1112. ListView1.ListItems.Clear
  1113. If Mid(Dir1.Path, Len(Dir1.Path), 1) = "\" Then
  1114.        strPath = Dir1.Path
  1115.  Else: strPath = Dir1.Path & "\"
  1116. End If
  1117. Label1.Caption = strPath
  1118.      If Len(Label1.Caption) > 30 Then
  1119.         Label1.Caption = "..." & Trim(Right(Label1.Caption, 30))
  1120.      End If
  1121. For X = 0 To File1.ListCount - 1
  1122.  Img = ImgNumber(File1.List(X))
  1123.  With ListView1.ListItems.Add(, , File1.List(X), Img, Img)
  1124.    .SubItems(1) = Format((FileLen(strPath & File1.List(X)) / 1000), "### ### ###.##") & " Kb"
  1125.    .SubItems(2) = FileDateTime(strPath & File1.List(X))
  1126.    Y = Str(FileLen(strPath & File1.List(X)))
  1127.    .SubItems(3) = Str(FileLen(strPath & File1.List(X)))
  1128. End With
  1129. ListView1.SelectedItem = Nothing
  1130. StatusBar1.Panels(2).Text = "Local: " & File1.ListCount & " Files in folder: " & strPath
  1131. End Sub
  1132. Private Sub ListView1_AfterLabelEdit(Cancel As Integer, NewString As String)
  1133. Dim strEx2 As String, strEx1 As String
  1134. Dim Msg As VbMsgBoxResult
  1135. On Error GoTo Err
  1136. strEx1 = Mid$(ListView1.SelectedItem.Text, InStrRev(ListView1.SelectedItem.Text, ".") + 1)
  1137. strEx2 = Mid$(NewString, InStrRev(NewString, ".") + 1)
  1138. If strEx1 <> strEx2 Then
  1139.     Msg = MsgBox("Are you sure to exchange the file extension from: " & Chr(34) & strEx1 & Chr(34) & " to: " & Chr(34) & strEx2 & Chr(34), vbQuestion + vbYesNo, App.Title)
  1140.     If Msg = vbYes Then
  1141.         Cancel = 0
  1142.         Name strPath & ListView1.SelectedItem.Text As strPath & NewString
  1143.         zLokRef_Click
  1144.     Else: Cancel = 1
  1145.     End If
  1146.     Cancel = 0
  1147.     Name strPath & ListView1.SelectedItem.Text As strPath & NewString
  1148.     zLokRef_Click
  1149. End If
  1150. Err: If Err.Number = 58 Then
  1151. MsgBox "More than one file with the same name in one folder? no way!", vbExclamation, App.Title
  1152. Cancel = 1
  1153. End If
  1154. End Sub
  1155. Private Sub ListView1_BeforeLabelEdit(Cancel As Integer)
  1156. StatusBar1.Panels(2).Text = "Local: Renaming file: " & Chr(34) & ListView1.SelectedItem.Text & Chr(34)
  1157. End Sub
  1158. Private Sub ListView1_ColumnClick(ByVal ColumnHeader As ColumnHeader)
  1159. If ListView1.SortOrder = 0 Then
  1160.     ListView1.SortKey = ColumnHeader.Index - 1
  1161.     ListView1.SortOrder = 1
  1162.  Else   ' Set Sorted to True to sort the list.
  1163.     ListView1.SortKey = ColumnHeader.Index - 1
  1164.     ListView1.SortOrder = 0
  1165. End If
  1166.  ListView1.Sorted = True
  1167. End Sub
  1168. Private Sub ListView1_Click()
  1169. Dim i, X As Integer
  1170. Dim Y, z As Long
  1171. X = 0
  1172. z = 0
  1173. If ListView1.SelectedItem Is Nothing Then Exit Sub
  1174.     For i = 1 To ListView1.ListItems.Count
  1175.         If ListView1.ListItems(i).Selected = True Then
  1176.            Y = ListView1.ListItems(i).SubItems(3)
  1177.            z = z + Y
  1178.            X = X + 1
  1179.         End If
  1180.     Next i
  1181. StatusBar1.Panels(2).Text = "Local: " & X & " Files selected, " & z / 1000 & " Kb"
  1182. zProperties.Enabled = True
  1183. End Sub
  1184. Private Sub ListView1_DblClick()
  1185. zOpenFile_Click
  1186. End Sub
  1187. Private Sub ListView1_KeyDown(KeyCode As Integer, Shift As Integer)
  1188. If KeyCode = vbKeyDelete Then
  1189.     zLokDS_Click
  1190. ElseIf KeyCode = vbKeyReturn Then
  1191.     zOpenFile_Click
  1192. 'ElseIf (Shift And vbShiftMask) > 0 Then
  1193. '    If KeyCode = vbKeyUp Or KeyCode = vbKeyDown Or KeyCode = vbKeyLeft Or KeyCode = vbKeyRight Then
  1194. '        ListView1_Click
  1195. '    End If
  1196. 'ElseIf KeyCode = vbKeyUp Or KeyCode = vbKeyDown Or KeyCode = vbKeyLeft Or KeyCode = vbKeyRight Then
  1197. '        ListView1_Click
  1198. End If
  1199. End Sub
  1200. Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1201. If Button = 2 Then
  1202.     Me.PopupMenu zLocal
  1203. End If
  1204. End Sub
  1205. Private Sub ListView1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1206. If Button = 1 Then
  1207.     ListView1.DragIcon = ListView1.SelectedItem.CreateDragImage
  1208.     ListView1.Drag vbBeginDrag
  1209. End If
  1210. End Sub
  1211. Private Sub ListView2_AfterLabelEdit(Cancel As Integer, NewString As String)
  1212. Dim strEx2 As String, strEx1 As String, Old As String, Nw As String
  1213. Dim Msg As VbMsgBoxResult
  1214. On Error GoTo Err
  1215. strEx1 = Mid$(ListView2.SelectedItem.Text, InStrRev(ListView2.SelectedItem.Text, ".") + 1)
  1216. strEx2 = Mid$(NewString, InStrRev(NewString, ".") + 1)
  1217. Old = Klic & ListView2.SelectedItem.Text
  1218. Nw = Klic & NewString
  1219. If strEx1 <> strEx2 Then
  1220.     Msg = MsgBox("Are you sure to exchange the file extension from: " & Chr(34) & strEx1 & Chr(34) & " to: " & Chr(34) & strEx2 & Chr(34), vbQuestion + vbYesNo, App.Title)
  1221.     If Msg = vbYes Then
  1222.         Cancel = 0
  1223.         txtInfo.SelText = Time & " > Sending request to rename file: " & Chr(34) & Old & Chr(34) & vbCrLf
  1224.         If FtpRenameFile(server, Old, Nw) = False Then
  1225.             MsgBox "Can't accomplishe request!", vbExclamation, App.Title
  1226.             txtInfo.SelText = Time & " > request accomplished with no success at all!" & vbCrLf
  1227.             Exit Sub
  1228.         End If
  1229.         txtInfo.SelText = Time & " > File renamed to: " & Chr(34) & Nw & Chr(34) & vbCrLf
  1230.         zRemRef_Click
  1231.     Else: Cancel = 1
  1232.     End If
  1233.     Cancel = 0
  1234.     txtInfo.SelText = Time & " > Sending request to rename file: " & Chr(34) & Old & Chr(34) & vbCrLf
  1235.         If FtpRenameFile(server, Old, Nw) = False Then
  1236.             MsgBox "Can't accomplishe request!", vbExclamation, App.Title
  1237.             txtInfo.SelText = Time & " > request accomplished with no success at all!" & vbCrLf
  1238.             Exit Sub
  1239.         End If
  1240.     txtInfo.SelText = Time & " > File renamed to: " & Chr(34) & Nw & Chr(34) & vbCrLf
  1241.     zRemRef_Click
  1242. End If
  1243. Err: If Err.Number = 58 Then
  1244. MsgBox "More files with the same name in one folder? Grrrrr!", vbExclamation, App.Title
  1245. txtInfo.SelText = Time & " > wrong file parameter!" & vbCrLf
  1246. Cancel = 1
  1247. End If
  1248. End Sub
  1249. Private Sub ListView2_BeforeLabelEdit(Cancel As Integer)
  1250. StatusBar1.Panels(2).Text = "Server: Renaming file: " & Chr(34) & ListView2.SelectedItem.Text & Chr(34)
  1251. End Sub
  1252. Private Sub ListView2_ColumnClick(ByVal ColumnHeader As ColumnHeader)
  1253. If ListView2.SortOrder = 0 Then
  1254.     ListView2.SortKey = ColumnHeader.Index - 1
  1255.     ListView2.SortOrder = 1
  1256.  Else   ' Set Sorted to True to sort the list.
  1257.     ListView2.SortKey = ColumnHeader.Index - 1
  1258.     ListView2.SortOrder = 0
  1259. End If
  1260.  ListView2.Sorted = True
  1261. End Sub
  1262. Private Sub ListView2_Click()
  1263. Dim i, X, d As Integer
  1264. Dim Y, z As Long
  1265. X = 0
  1266. z = 0
  1267.    For i = 1 To ListView2.ListItems.Count
  1268.         If ListView2.ListItems(i).Selected = True Then
  1269.           Y = ListView2.ListItems(i).SubItems(3)
  1270.            z = z + Y
  1271.            X = X + 1
  1272.        End If
  1273.     Next i
  1274. StatusBar1.Panels(2).Text = "Server: " & X & " Files selected, " & z / 1000 & " kb celkem"
  1275. End Sub
  1276. Private Sub ListView2_KeyUp(KeyCode As Integer, Shift As Integer)
  1277. If KeyCode = vbKeyDelete Then
  1278.     zRemDS_Click
  1279. End If
  1280. End Sub
  1281. Private Sub ListView2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1282. If Button = 2 Then
  1283.     Me.PopupMenu zRemote
  1284. End If
  1285. End Sub
  1286. Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1287. If Button = vbLeftButton Then
  1288.     Picture1.BackColor = vbRed
  1289.     Picture1.Top = Picture1.Top + Y
  1290. End If
  1291. End Sub
  1292. Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1293. If Button = vbLeftButton Then
  1294. If Picture1.Top < 2500 Then Picture1.Top = 2500
  1295. If Picture1.Top > frmmain.Height - 1600 Then Picture1.Top = frmmain.Height - 1600
  1296.     Picture1.BackColor = &H8000000F
  1297.     ListView1.Top = Picture1.Top + 60
  1298.     ListView1.Height = frmmain.ScaleHeight - (Picture1.Top + 260)
  1299.     ListView2.Top = Picture1.Top + 60
  1300.     ListView2.Height = frmmain.ScaleHeight - (Picture1.Top + 260)
  1301.     Dir1.Height = Picture1.Top - Dir1.Top
  1302.     TView1.Height = Picture1.Top - TView1.Top
  1303. End If
  1304. End Sub
  1305. Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1306. If Button = vbLeftButton Then
  1307.     Picture2.BackColor = vbRed
  1308.     Picture2.Left = Picture2.Left + X
  1309. End If
  1310. End Sub
  1311. Private Sub Picture2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1312. If Button = vbLeftButton Then
  1313. If Picture2.Left < 1980 Then Picture2.Left = 1980
  1314. If Picture2.Left > frmmain.Width - 1400 Then Picture2.Left = frmmain.Width - 1400
  1315.     Picture2.BackColor = &H8000000F
  1316.     ListView1.Width = Picture2.Left - 20
  1317.     Dir1.Width = Picture2.Left - 20
  1318.     Drive1.Width = Picture2.Left - 20
  1319.     Label2.Width = Picture2.Left - 20
  1320.     Label1.Width = Picture2.Left - 980
  1321.     ListView2.Left = Picture2.Left + 80
  1322.     ListView2.Width = frmmain.ScaleWidth - ListView2.Left
  1323.     TView1.Left = Picture2.Left + 80
  1324.     TView1.Width = frmmain.ScaleWidth - ListView2.Left
  1325.     Label3.Left = Picture2.Left + 1120
  1326.     Label3.Width = frmmain.ScaleWidth - Label3.Left
  1327.     Label4.Left = Picture2.Left + 80
  1328.     Label4.Width = frmmain.ScaleWidth - ListView2.Left
  1329. End If
  1330. End Sub
  1331. Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  1332.     Select Case Button.Key
  1333.         Case "Connect"
  1334.             FrmConnect.Show vbModal, Me
  1335.         Case "Disconnect"
  1336.             zDisconnect_Click
  1337.         Case "Reload"
  1338.             LoadLocal
  1339.         Case "Upload"
  1340.             zLokUp_Click
  1341.         Case "NewFolder"
  1342.             zLokNF_Click
  1343.         Case "DelFolder"
  1344.             zLokDF_Click
  1345.         Case "DelFile"
  1346.             zLokDS_Click
  1347.         Case "Rename"
  1348.             zLokRS_Click
  1349.         Case "Reload2"
  1350.             zRemRef_Click
  1351.         Case "DownLoad"
  1352.             zRemDown_Click
  1353.         Case "NewFolder2"
  1354.             zRemNF_Click
  1355.         Case "DelFolder2"
  1356.             zRemDF_Click
  1357.         Case "DelFile2"
  1358.             zRemDS_Click
  1359.         Case "Rename2"
  1360.             zRemRS_Click
  1361.     End Select
  1362. End Sub
  1363. Private Sub TView1_KeyUp(KeyCode As Integer, Shift As Integer)
  1364. If KeyCode = vbKeyDelete Then
  1365.     zRemDF_Click
  1366. End If
  1367. End Sub
  1368. Private Sub TView1_NodeClick(ByVal Node As MSComctlLib.Node)
  1369. Dim i As Integer, n As Integer
  1370.     If Not (TView1.SelectedItem Is Nothing) Then
  1371.          Set tvNode = TView1.SelectedItem
  1372.          tvNode.Expanded = True
  1373.             If tvNode.Text = ".." Then
  1374.                 Klic = "/"
  1375.                 adr = Klic & fPat
  1376.             Else
  1377.                 Klic = tvNode.Key
  1378.                 adr = Klic & fPat
  1379.             End If
  1380.                 If tvNode.Children > 0 Then
  1381.                     n = tvNode.Child.Index
  1382.                     While n <> tvNode.Child.LastSibling.Index
  1383.                     TView1.Nodes.Remove (n)
  1384.                     Wend
  1385.                 TView1.Nodes.Remove (n)
  1386.                 End If
  1387.          FtpSetCurrentDirectory session, adr
  1388.          List
  1389.     Label3.Caption = adr
  1390.     End If
  1391. End Sub
  1392. Private Sub zAbout_Click()
  1393. frmAbout.Show vbModal
  1394. End Sub
  1395. Private Sub zAll_Click()
  1396. zAll.Checked = True
  1397. zDefine.Checked = False
  1398. File1.Pattern = "*.*"
  1399. LoadLocal
  1400. End Sub
  1401. Private Sub zAll2_Click()
  1402. Dim strPat As String
  1403. zAll2.Checked = True
  1404. zDefine2.Checked = False
  1405. fPat = "*.*"
  1406.     strPat = Mid$(adr, InStrRev(adr, "/") + 1)
  1407.     adr = Left(adr, Len(adr) - Len(strPat)) & fPat
  1408. zRemRef_Click
  1409. End Sub
  1410. Private Sub zAscii_Click()
  1411. If frmmain.zAscii.Checked = False Then
  1412.     Transfer = FTP_TRANSFER_TYPE_ASCII
  1413.     frmmain.zBinary.Checked = False
  1414.     frmmain.zAscii.Checked = True
  1415. End If
  1416. End Sub
  1417. Private Sub zBinary_Click()
  1418. If frmmain.zBinary.Checked = False Then
  1419.     Transfer = FTP_TRANSFER_TYPE_BINARY
  1420.     frmmain.zBinary.Checked = True
  1421.     frmmain.zAscii.Checked = False
  1422. End If
  1423. End Sub
  1424. Private Sub zConnect_Click()
  1425. FrmConnect.Show vbModal
  1426. End Sub
  1427. Private Sub zDefine_Click()
  1428. Dim sRet As String
  1429.     sRet = InputBox("Define file type extension (*.?):", "Pattern")
  1430.     If sRet <> "" Then
  1431.         zAll.Checked = False
  1432.         zDefine.Checked = True
  1433.         File1.Pattern = sRet
  1434.         LoadLocal
  1435.     End If
  1436. End Sub
  1437. Private Sub zDefine2_Click()
  1438. Dim sRet As String, strPat As String
  1439.     sRet = InputBox("Define file type extension (*.?):", "Pattern")
  1440.     If sRet <> "" Then
  1441.         zAll2.Checked = False
  1442.         zDefine2.Checked = True
  1443.         fPat = sRet
  1444.             strPat = Mid$(adr, InStrRev(adr, "/") + 1)
  1445.             adr = Left(adr, Len(adr) - Len(strPat)) & fPat
  1446.         zRemRef_Click
  1447.     End If
  1448. End Sub
  1449. Private Sub zDisconnect_Click()
  1450.     InternetCloseHandle server
  1451.     InternetCloseHandle session
  1452.     server = 0: session = 0
  1453.     txtInfo.SelText = Time & " > Server disconnected." & vbCrLf
  1454. End Sub
  1455. Private Sub zEnd_Click()
  1456. Unload Me
  1457. End Sub
  1458. Private Sub zFind_Click()
  1459. SHFindFiles 0, 0
  1460. End Sub
  1461. Private Sub zHelp_Click()
  1462. MsgBox "Try to do that the same way couple of times," & vbCrLf & "Then click on help.", vbInformation, "Help"
  1463. End Sub
  1464. Private Sub zLokDF_Click()
  1465. Dim Msg As VbMsgBoxResult
  1466. Dim strFol As String
  1467. Dim strCst As String
  1468. If Mid(Dir1.Path, Len(Dir1.Path), 1) = "\" Then
  1469.     MsgBox "This is the root folder that can't be removed!", vbExclamation, App.Title
  1470.     Exit Sub
  1471. ElseIf Dir1.Path = App.Path Or Dir1.Path = App.Path & "\Logon" Then
  1472.     MsgBox "This is the program folder that can't be removed!", vbExclamation, App.Title
  1473.     Exit Sub
  1474.     strFol = Mid$(Dir1.Path, InStrRev(Dir1.Path, "\") + 1)
  1475.     strCst = Left(Dir1.Path, Len(Dir1.Path) - (Len(strFol) + 1))
  1476.     Msg = MsgBox("Are you sure to remove this folder: " & Chr(34) & strFol & Chr(34) & "? Make sure it contains no files!" & vbCrLf & "If you are, don't look for it in recycle!", vbQuestion + vbYesNo, App.Title)
  1477.     If Msg = vbYes Then
  1478.         RmDir Dir1.Path
  1479.         Dir1.Path = strCst
  1480.         LoadLocal
  1481.     End If
  1482. End If
  1483. End Sub
  1484. Private Sub zLokDS_Click()
  1485. Dim Msg As VbMsgBoxResult
  1486. Dim i As Integer
  1487. If ListView1.SelectedItem Is Nothing Then
  1488.     MsgBox "Neni co vymazat!", vbExclamation
  1489.     Exit Sub
  1490.     Msg = MsgBox("Are you sure to delete these files?" & vbCrLf & "if you are, don't look for them in recycle!", vbQuestion + vbYesNo, App.Title)
  1491.     If Msg = vbYes Then
  1492.         For i = 1 To ListView1.ListItems.Count
  1493.         If ListView1.ListItems(i).Selected = True Then
  1494.             Kill strPath & ListView1.ListItems(i).Text
  1495.         End If
  1496.         Next i
  1497.     LoadLocal
  1498.     End If
  1499. End If
  1500. End Sub
  1501. Private Sub zLokNF_Click()
  1502. On Error GoTo Err
  1503.     Dim sRet As String
  1504.     sRet = InputBox("Type a name of the new folder here", "Nov
  1505.     If sRet <> "" Then
  1506.         MkDir strPath & sRet
  1507.         Dir1.Refresh
  1508.     End If
  1509. Err: If Err.Number = 75 Then MsgBox "an error apeared while creating new folder" & vbCrLf & "Make sure folder doesn't exist!", vbExclamation, App.Title
  1510. Exit Sub
  1511. End Sub
  1512. Private Sub zLokRef_Click()
  1513. LoadLocal
  1514. End Sub
  1515. Private Sub zLokRS_Click()
  1516. If ListView1.SelectedItem Is Nothing Then
  1517.     MsgBox "nothing to rename!", vbExclamation, App.Title
  1518.     Exit Sub
  1519. Else: ListView1.StartLabelEdit
  1520. End If
  1521. End Sub
  1522. Private Sub zLokUp_Click()
  1523. Dim i, X, d As Integer
  1524. Dim z, Y As Long
  1525. If session = 0 Or server = 0 Then
  1526.     MsgBox "not connected to any server!", vbInformation, App.Title
  1527.     Exit Sub
  1528. End If
  1529. If ListView1.SelectedItem Is Nothing Then
  1530. MsgBox "No files selected!!"
  1531. Exit Sub
  1532. X = 0
  1533. z = 0
  1534. txtInfo.SelText = Time & " > Colecting files information:" & vbCrLf
  1535. For i = 1 To ListView1.ListItems.Count
  1536.         If ListView1.ListItems(i).Selected = True Then
  1537.           Y = ListView1.ListItems(i).SubItems(3)
  1538.           z = z + Y
  1539.            X = X + 1
  1540.                txtInfo.SelText = X & ".) " & ListView1.ListItems(i).Text & vbCrLf
  1541.                frmProg.List1.AddItem ListView1.ListItems(i).Text
  1542.                frmProg.List2.AddItem Y
  1543.                frmProg.Label2.Caption = "Soubor:       /" & X
  1544.                frmProg.Command3.Caption = "Upload"
  1545.                frmProg.Label4.Caption = "Bytes send:"
  1546.        End If
  1547.     Next i
  1548. frmProg.lbCelkem = z
  1549. frmProg.Show vbModal, Me
  1550. zRemRef_Click
  1551. End If
  1552. End Sub
  1553. Private Sub zOdpojit_Click()
  1554. Dim udtRasConn(255) As RASCONN, countConn As Long
  1555. Dim Ret As Long, b As Long
  1556. udtRasConn(0).dwSize = RAS_RASCONNSIZE
  1557. Ret = RasEnumConnections(udtRasConn(0), RAS_MAXENTRYNAME * udtRasConn(0).dwSize, countConn)
  1558. If Ret = 0 Then
  1559.     For b = 0 To countConn - 1
  1560.         Ret = RasHangUp(ByVal udtRasConn(b).hRasConn)
  1561.         If Ret = 0 Then MsgBox "Ending connection: " & StrConv(udtRasConn(b).szEntryName(), vbUnicode), vbInformation, App.Title
  1562.     Next b
  1563. End If
  1564. End Sub
  1565. Private Sub zOpen_Click()
  1566.     Dir1.Path = App.Path & "\Logon"
  1567.     LoadLocal
  1568. End Sub
  1569. Private Sub zOpenFile_Click()
  1570. If Not ListView1.SelectedItem Is Nothing Then
  1571. ShellExecute 0, vbNullString, strPath & ListView1.SelectedItem.Text, vbNullString, strPath, SW_SHOWNORMAL
  1572. Else: MsgBox "Nothing to open!", vbExclamation, App.Title
  1573. End If
  1574. End Sub
  1575. Private Sub zOption_Click()
  1576. MsgBox "...none.", vbCritical, "Mo
  1577. nosti"
  1578. End Sub
  1579. Private Sub zPassive_Click()
  1580.     If zPassive.Checked = False Then
  1581.         zPassive.Checked = True
  1582.     Else
  1583.         zPassive.Checked = False
  1584.     End If
  1585. End Sub
  1586. Private Function CalcFTime(FTime As SYSTEMTIME) As String
  1587. Dim Datum$, Kdy$, aa$
  1588.     With FTime
  1589.       Datum = .wDay & "." & .wMonth & _
  1590.               "." & .wYear
  1591.       aa = .wMinute
  1592.       If Len(aa) = 1 Then aa = "0" & aa
  1593.       Kdy = .wHour & ":" & aa
  1594.       CalcFTime = Datum & Kdy
  1595.     End With
  1596. End Function
  1597. Private Function ImgNumber(strFileName As String) As Integer
  1598. Dim strExt As String
  1599.     strExt = Mid$(strFileName, InStrRev(strFileName, ".") + 1)
  1600.     On Error Resume Next
  1601.     Select Case LCase(strExt)
  1602.        Case "avi", "mpg", "mpeg", "mov"
  1603.             ImgNumber = 8
  1604.        Case "gif"
  1605.             ImgNumber = 4
  1606.        Case "jpg", "jpeg", "jpe", "bmp"
  1607.             ImgNumber = 1
  1608.        Case "htm", "html", "xml", "asp"
  1609.             ImgNumber = 2
  1610.        Case "js", "css", "cgi"
  1611.             ImgNumber = 5
  1612.        Case "mp3", "ram", "au", "vaw"
  1613.             ImgNumber = 6
  1614.        Case "zip", "arj"
  1615.             ImgNumber = 7
  1616.        Case "exe", "com", "bat"
  1617.            ImgNumber = 9
  1618.        Case "txt", "log", "doc", "rtf", "ftp", "ini", "dat"
  1619.            ImgNumber = 3
  1620.        Case Else
  1621.             ImgNumber = 10
  1622.     End Select
  1623. End Function
  1624. Private Sub zProperties_Click()
  1625. Dim shInfo As SHELLEXECUTEINFO
  1626. If ListView1.SelectedItem Is Nothing Then
  1627.     MsgBox "Properties of what?"
  1628.     Exit Sub
  1629. End If
  1630. Set lsItem = ListView1.SelectedItem
  1631.     With shInfo
  1632.         .cbSize = LenB(shInfo)
  1633.         .lpFile = strPath & lsItem.Text
  1634.         .nShow = SW_SHOW
  1635.         .fMask = SEE_MASK_INVOKEIDLIST
  1636.         .lpVerb = "properties"
  1637.     End With
  1638.     ShellExecuteEx shInfo
  1639. End Sub
  1640. Private Sub zRemDF_Click()
  1641. Dim Msg As VbMsgBoxResult
  1642. Dim strCst As String, strCst2 As String
  1643. Dim i As Integer
  1644. If session = 0 Or server = 0 Then
  1645.     MsgBox "Not connected to any Server!", vbInformation, App.Title
  1646.     Exit Sub
  1647. End If
  1648. If Not (TView1.SelectedItem Is Nothing) Then
  1649.     Set tvNode = TView1.SelectedItem
  1650.     If tvNode.Text = ".." Then
  1651.         MsgBox "This is the root folder that can not be removed!", vbExclamation, App.Title
  1652.         Exit Sub
  1653.     Else
  1654.         Msg = MsgBox("Are you sure to remove this folder: " & Chr(34) & tvNode.Text & Chr(34) & "? (Nesm
  1655.  obsahovat 
  1656.  soubory!)" & vbCrLf & "Pokud ano, bude nen
  1657. vratn
  1658.  smaz
  1659. na!", vbQuestion + vbYesNo, App.Title)
  1660.         If Msg = vbYes Then
  1661.         strCst = Left(Klic, Len(Klic) - 1)
  1662.         strCst2 = Left(strCst, Len(strCst) - (Len(tvNode.Text)))
  1663.         txtInfo.SelText = Time & " > Sending request to remove folder: " & Chr(34) & tvNode.FullPath & Chr(34) & vbCrLf
  1664.         If FtpRemoveDirectory(server, strCst) = False Then
  1665.             MsgBox "An error occured! Make sure that folder contains no files", vbExclamation, App.Title
  1666.             txtInfo.SelText = Time & " > An error occured while removing folder!" & vbCrLf
  1667.             Exit Sub
  1668.         End If
  1669.         txtInfo.SelText = Time & " > Request accomplished successfuly." & vbCrLf
  1670.         For i = 1 To TView1.Nodes.Count
  1671.         If TView1.Nodes(i).Key = strCst2 Then
  1672.             Set tvNode = TView1.Nodes(i)
  1673.             TView1.SelectedItem = tvNode
  1674.             TView1.SelectedItem.EnsureVisible
  1675.             Exit For
  1676.         End If
  1677.         Next i
  1678.         zRemRef_Click
  1679.         End If
  1680.     End If
  1681. End If
  1682. End Sub
  1683. Private Sub zRemDown_Click()
  1684. Dim i, X, d As Integer
  1685. Dim z, Y As Long
  1686. If session = 0 Or server = 0 Then
  1687.     MsgBox "Not connected to any server!", vbInformation, App.Title
  1688.     Exit Sub
  1689. End If
  1690. If ListView2.SelectedItem Is Nothing Then
  1691. MsgBox "No file selected!!"
  1692. Exit Sub
  1693. X = 0
  1694. z = 0
  1695. txtInfo.SelText = Time & " > Colecting informations about files:" & vbCrLf
  1696. For i = 1 To ListView2.ListItems.Count
  1697.         If ListView2.ListItems(i).Selected = True Then
  1698.           Y = ListView2.ListItems(i).SubItems(3)
  1699.           z = z + Y
  1700.            X = X + 1
  1701.                txtInfo.SelText = X & ".) " & Klic & ListView2.ListItems(i).Text & vbCrLf
  1702.                frmProg.List1.AddItem ListView2.ListItems(i).Text
  1703.                frmProg.List2.AddItem Y
  1704.                frmProg.Label2.Caption = "File:             /" & X
  1705.                frmProg.Command3.Caption = "Download"
  1706.                frmProg.Label4.Caption = "Bytes received:"
  1707.        End If
  1708.     Next i
  1709. frmProg.lbCelkem = z
  1710. frmProg.Show vbModal, Me
  1711. LoadLocal
  1712. End If
  1713. End Sub
  1714. Private Sub zRemDS_Click()
  1715. Dim Dlt As String
  1716. Dim i As Integer
  1717. Dim Msg As VbMsgBoxResult, Cnt As Long
  1718. If session = 0 Or server = 0 Then
  1719.     MsgBox "Not connected to any server!", vbInformation, App.Title
  1720.     Exit Sub
  1721. End If
  1722. If ListView2.SelectedItem Is Nothing Then
  1723. MsgBox "No file is selected to be deleted!!", vbInformation, App.Title
  1724. Exit Sub
  1725.     Msg = MsgBox("Are you sure to delete all of these files?", vbQuestion + vbYesNo, App.Title)
  1726.     If Msg = vbYes Then
  1727.         txtInfo.SelText = Time & " > Sending request." & vbCrLf
  1728.         For i = 1 To ListView2.ListItems.Count
  1729.         If ListView2.ListItems(i).Selected = True Then
  1730.             Dlt = Klic & ListView2.ListItems(i).Text
  1731.             txtInfo.SelText = Time & " > Deleting: " & Chr(34) & Dlt & Chr(34) & vbCrLf
  1732.             If FtpDeleteFile(server, Dlt) = False Then
  1733.                 MsgBox "An error occured while deleting file!", vbExclamation, App.Title
  1734.                 txtInfo.SelText = Time & " > An error occured while deleting file!" & vbCrLf
  1735.                 Exit Sub
  1736.             End If
  1737.             txtInfo.SelText = Time & " > OK" & vbCrLf
  1738.         End If
  1739.         Next i
  1740.     zRemRef_Click
  1741.     End If
  1742. End If
  1743. End Sub
  1744. Private Sub zRemNF_Click()
  1745. Dim sRet As String
  1746. On Error GoTo Err
  1747. If session = 0 Or server = 0 Then
  1748.     MsgBox "Not connected to any server", vbInformation, App.Title
  1749.     Exit Sub
  1750. End If
  1751.     sRet = InputBox("Type name for the new folder", "New Folder")
  1752.     If sRet <> "" Then
  1753.         txtInfo.SelText = Time & " > Sending request to create folder: " & Chr(34) & Klic & sRet & Chr(34) & vbCrLf
  1754.         If FtpCreateDirectory(server, Klic & sRet) = False Then
  1755.             MsgBox "An error osccured while creating folder!", vbExclamation, App.Title
  1756.             txtInfo.SelText = Time & " > An error osccured while creating folder!" & vbCrLf
  1757.             Exit Sub
  1758.         End If
  1759.         txtInfo.SelText = Time & " > Folder created." & vbCrLf
  1760.         zRemRef_Click
  1761.     End If
  1762. Err: If Err.Number = 75 Then
  1763. MsgBox "An error osccured while creating folder!" & vbCrLf & "Make sure folder doesn't exist", vbExclamation
  1764. txtInfo.SelText = Time & " > Wrong folder parameter." & vbCrLf
  1765. Exit Sub
  1766. End If
  1767. End Sub
  1768. Private Sub zRemRef_Click()
  1769. If session = 0 Or server = 0 Then
  1770.     MsgBox "Not connected to any server!", vbInformation, App.Title
  1771.     Exit Sub
  1772. End If
  1773.     If Not (TView1.SelectedItem Is Nothing) Then
  1774.          Set tvNode = TView1.SelectedItem
  1775.          TView1_NodeClick tvNode
  1776.     End If
  1777. End Sub
  1778. Private Sub zRemRS_Click()
  1779. If session = 0 Or server = 0 Then
  1780.     MsgBox "Not connected to any server!", vbInformation, App.Title
  1781.     Exit Sub
  1782. End If
  1783. If ListView2.SelectedItem Is Nothing Then
  1784.     MsgBox "Nothing to rename!", vbExclamation, App.Title
  1785.     Exit Sub
  1786. Else: ListView2.StartLabelEdit
  1787. End If
  1788. End Sub
  1789. Private Sub zSave_Click()
  1790. Dim FF As Integer
  1791. Dim Cst As String
  1792. Dim sRet As String
  1793. If txtInfo.Text <> "" Then
  1794.     sRet = InputBox("Type name for the log file:", "Log File")
  1795.     If sRet <> "" Then
  1796.     Cst = App.Path & "\Logon\" & sRet & ".txt"
  1797.         FF = FreeFile
  1798.         Open Cst For Binary As #FF
  1799.            Put #FF, , txtInfo.Text
  1800.         Close FF
  1801.         MsgBox "File saved as: " & vbCrLf & Cst, vbInformation
  1802.     Else: MsgBox "No name entered, quiting", vbInformation
  1803.     End If
  1804. Else: MsgBox "Nothing to be saved!", vbExclamation
  1805. End If
  1806. End Sub
  1807. Private Sub zsBigIc_Click()
  1808. ListView2.View = 0
  1809. End Sub
  1810. Private Sub zsReport_Click()
  1811. ListView2.View = 3
  1812. End Sub
  1813. Private Sub zsSeznam_Click()
  1814. ListView2.View = 2
  1815. End Sub
  1816. Private Sub zsSmallIc_Click()
  1817. ListView2.View = 1
  1818. End Sub
  1819. Private Sub ztBigIc_Click()
  1820. ListView1.View = 0
  1821. End Sub
  1822. Private Sub zTools_Click()
  1823. Dim Ctr As Control
  1824. If zTools.Checked = True Then
  1825.     zTools.Checked = False
  1826.     Toolbar1.Visible = False
  1827.     For Each Ctr In Controls
  1828.         If Ctr.Tag = "mov" Then
  1829.             Ctr.Top = Ctr.Top - 600
  1830.         End If
  1831.     Next Ctr
  1832.     ListView1.Height = ListView1.Height + 600
  1833.     ListView2.Height = ListView2.Height + 600
  1834.     zTools.Checked = True
  1835.     Toolbar1.Visible = True
  1836.     For Each Ctr In Controls
  1837.         If Ctr.Tag = "mov" Then
  1838.             Ctr.Top = Ctr.Top + 600
  1839.         End If
  1840.     Next Ctr
  1841.     ListView1.Height = ListView1.Height - 600
  1842.     ListView2.Height = ListView2.Height - 600
  1843. End If
  1844. End Sub
  1845. Private Sub ztReport_Click()
  1846. ListView1.View = 3
  1847. End Sub
  1848. Private Sub ztSeznam_Click()
  1849. ListView1.View = 2
  1850. End Sub
  1851. Private Sub ztSmallIc_Click()
  1852. ListView1.View = 1
  1853. End Sub
  1854.