开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > Ftp服务器 > 查看源码
frmMain.frm
资源名称：VB-FTP下载源码.rar　[点击查看]
上传用户：nicktai
上传日期：2010-01-26
资源大小：40k
文件大小：51k
源码类别：

Ftp服务器

开发平台：

Visual Basic

frmMain.frm：源码内容
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  4. Object = "{38911DA0-E448-11D0-84A3-00DD01104159}#1.1#0"; "COMCT332.OCX"
  5. Begin VB.Form frmMain 
  6.    Caption         =   "FtpClient"
  7.    ClientHeight    =   5325
  8.    ClientLeft      =   165
  9.    ClientTop       =   735
  10.    ClientWidth     =   8970
  11.    BeginProperty Font 
  12.       Name            =   "Tahoma"
  13.       Size            =   8.25
  14.       Charset         =   204
  15.       Weight          =   400
  16.       Underline       =   0   'False
  17.       Italic          =   0   'False
  18.       Strikethrough   =   0   'False
  19.    EndProperty
  20.    Icon            =   "frmMain.frx":0000
  21.    LinkTopic       =   "Form1"
  22.    ScaleHeight     =   5325
  23.    ScaleWidth      =   8970
  24.    StartUpPosition =   3  'Windows Default
  25.    Begin VB.PictureBox picSplitter 
  26.       BackColor       =   &H8000000D&
  27.       BorderStyle     =   0  'None
  28.       FillColor       =   &H8000000D&
  29.       BeginProperty Font 
  30.          Name            =   "MS Sans Serif"
  31.          Size            =   8.25
  32.          Charset         =   204
  33.          Weight          =   400
  34.          Underline       =   0   'False
  35.          Italic          =   0   'False
  36.          Strikethrough   =   0   'False
  37.       EndProperty
  38.       Height          =   4800
  39.       Left            =   6960
  40.       ScaleHeight     =   2090.126
  41.       ScaleMode       =   0  'User
  42.       ScaleWidth      =   780
  43.       TabIndex        =   3
  44.       Top             =   720
  45.       Visible         =   0   'False
  46.       Width           =   72
  47.    End
  48.    Begin MSComctlLib.ImageList imlSmall 
  49.       Left            =   7920
  50.       Top             =   720
  51.       _ExtentX        =   1005
  52.       _ExtentY        =   1005
  53.       BackColor       =   -2147483643
  54.       ImageWidth      =   16
  55.       ImageHeight     =   16
  56.       MaskColor       =   16711935
  57.       _Version        =   393216
  58.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  59.          NumListImages   =   2
  60.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  61.             Picture         =   "frmMain.frx":27A2
  62.             Key             =   ""
  63.          EndProperty
  64.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  65.             Picture         =   "frmMain.frx":2AF6
  66.             Key             =   ""
  67.          EndProperty
  68.       EndProperty
  69.    End
  70.    Begin MSComctlLib.ImageList imlLarge 
  71.       Left            =   7080
  72.       Top             =   960
  73.       _ExtentX        =   1005
  74.       _ExtentY        =   1005
  75.       BackColor       =   -2147483643
  76.       ImageWidth      =   32
  77.       ImageHeight     =   32
  78.       MaskColor       =   16711935
  79.       _Version        =   393216
  80.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  81.          NumListImages   =   2
  82.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  83.             Picture         =   "frmMain.frx":2E4A
  84.             Key             =   ""
  85.          EndProperty
  86.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  87.             Picture         =   "frmMain.frx":3A9E
  88.             Key             =   ""
  89.          EndProperty
  90.       EndProperty
  91.    End
  92.    Begin MSComctlLib.ImageList imlToolbarHot 
  93.       Left            =   6240
  94.       Top             =   1080
  95.       _ExtentX        =   1005
  96.       _ExtentY        =   1005
  97.       BackColor       =   -2147483643
  98.       ImageWidth      =   22
  99.       ImageHeight     =   20
  100.       MaskColor       =   16711935
  101.       _Version        =   393216
  102.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  103.          NumListImages   =   13
  104.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  105.             Picture         =   "frmMain.frx":46F2
  106.             Key             =   ""
  107.          EndProperty
  108.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  109.             Picture         =   "frmMain.frx":4C96
  110.             Key             =   ""
  111.          EndProperty
  112.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  113.             Picture         =   "frmMain.frx":523A
  114.             Key             =   ""
  115.          EndProperty
  116.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  117.             Picture         =   "frmMain.frx":57DE
  118.             Key             =   ""
  119.          EndProperty
  120.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  121.             Picture         =   "frmMain.frx":5D82
  122.             Key             =   ""
  123.          EndProperty
  124.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  125.             Picture         =   "frmMain.frx":6326
  126.             Key             =   ""
  127.          EndProperty
  128.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  129.             Picture         =   "frmMain.frx":68CA
  130.             Key             =   ""
  131.          EndProperty
  132.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  133.             Picture         =   "frmMain.frx":6E6E
  134.             Key             =   ""
  135.          EndProperty
  136.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  137.             Picture         =   "frmMain.frx":7412
  138.             Key             =   ""
  139.          EndProperty
  140.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  141.             Picture         =   "frmMain.frx":79B6
  142.             Key             =   ""
  143.          EndProperty
  144.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  145.             Picture         =   "frmMain.frx":7F5A
  146.             Key             =   ""
  147.          EndProperty
  148.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  149.             Picture         =   "frmMain.frx":84FE
  150.             Key             =   ""
  151.          EndProperty
  152.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  153.             Picture         =   "frmMain.frx":8AA2
  154.             Key             =   ""
  155.          EndProperty
  156.       EndProperty
  157.    End
  158.    Begin VB.PictureBox picTitle 
  159.       BackColor       =   &H8000000C&
  160.       BorderStyle     =   0  'None
  161.       BeginProperty Font 
  162.          Name            =   "MS Sans Serif"
  163.          Size            =   8.25
  164.          Charset         =   204
  165.          Weight          =   400
  166.          Underline       =   0   'False
  167.          Italic          =   0   'False
  168.          Strikethrough   =   0   'False
  169.       EndProperty
  170.       Height          =   615
  171.       Left            =   2160
  172.       ScaleHeight     =   615
  173.       ScaleWidth      =   4335
  174.       TabIndex        =   5
  175.       Top             =   720
  176.       Width           =   4335
  177.       Begin VB.PictureBox Picture1 
  178.          BackColor       =   &H8000000C&
  179.          BorderStyle     =   0  'None
  180.          BeginProperty Font 
  181.             Name            =   "MS Sans Serif"
  182.             Size            =   8.25
  183.             Charset         =   204
  184.             Weight          =   400
  185.             Underline       =   0   'False
  186.             Italic          =   0   'False
  187.             Strikethrough   =   0   'False
  188.          EndProperty
  189.          Height          =   340
  190.          Left            =   -120
  191.          ScaleHeight     =   345
  192.          ScaleWidth      =   3255
  193.          TabIndex        =   9
  194.          Top             =   20
  195.          Width           =   3255
  196.          Begin VB.CheckBox Check1 
  197.             Appearance      =   0  'Flat
  198.             BackColor       =   &H8000000C&
  199.             Caption         =   "&Passive Mode"
  200.             ForeColor       =   &H8000000E&
  201.             Height          =   195
  202.             Left            =   120
  203.             TabIndex        =   12
  204.             Top             =   80
  205.             Width           =   1335
  206.          End
  207.          Begin VB.OptionButton Option1 
  208.             Appearance      =   0  'Flat
  209.             BackColor       =   &H8000000C&
  210.             Caption         =   "&ASCII"
  211.             ForeColor       =   &H8000000E&
  212.             Height          =   255
  213.             Index           =   0
  214.             Left            =   1680
  215.             TabIndex        =   11
  216.             Top             =   80
  217.             Width           =   855
  218.          End
  219.          Begin VB.OptionButton Option1 
  220.             Appearance      =   0  'Flat
  221.             BackColor       =   &H8000000C&
  222.             Caption         =   "&Image"
  223.             ForeColor       =   &H8000000E&
  224.             Height          =   255
  225.             Index           =   1
  226.             Left            =   2520
  227.             TabIndex        =   10
  228.             Top             =   80
  229.             Value           =   -1  'True
  230.             Width           =   855
  231.          End
  232.       End
  233.       Begin MSComctlLib.ProgressBar ProgressBar1 
  234.          Height          =   135
  235.          Left            =   120
  236.          TabIndex        =   6
  237.          Top             =   360
  238.          Width           =   3495
  239.          _ExtentX        =   6165
  240.          _ExtentY        =   238
  241.          _Version        =   393216
  242.          Appearance      =   0
  243.          Min             =   1e-4
  244.          Scrolling       =   1
  245.       End
  246.       Begin VB.Label Label1 
  247.          BackStyle       =   0  'Transparent
  248.          Caption         =   "Label1"
  249.          BeginProperty Font 
  250.             Name            =   "Tahoma"
  251.             Size            =   8.25
  252.             Charset         =   204
  253.             Weight          =   700
  254.             Underline       =   0   'False
  255.             Italic          =   0   'False
  256.             Strikethrough   =   0   'False
  257.          EndProperty
  258.          ForeColor       =   &H8000000E&
  259.          Height          =   255
  260.          Left            =   120
  261.          TabIndex        =   7
  262.          Top             =   120
  263.          Width           =   3495
  264.       End
  265.       Begin VB.Image imgIcon 
  266.          Height          =   480
  267.          Left            =   3720
  268.          Picture         =   "frmMain.frx":9046
  269.          Top             =   120
  270.          Width           =   480
  271.       End
  272.    End
  273.    Begin ComCtl3.CoolBar CoolBar1 
  274.       Align           =   1  'Align Top
  275.       Height          =   450
  276.       Left            =   0
  277.       TabIndex        =   4
  278.       Top             =   0
  279.       Width           =   8970
  280.       _ExtentX        =   15822
  281.       _ExtentY        =   794
  282.       BandCount       =   1
  283.       _CBWidth        =   8970
  284.       _CBHeight       =   450
  285.       _Version        =   "6.0.8450"
  286.       Child1          =   "tbToolBar"
  287.       MinHeight1      =   390
  288.       Width1          =   7935
  289.       NewRow1         =   0   'False
  290.       Begin MSComctlLib.Toolbar tbToolBar 
  291.          Height          =   390
  292.          Left            =   30
  293.          TabIndex        =   8
  294.          Top             =   30
  295.          Width           =   8850
  296.          _ExtentX        =   15610
  297.          _ExtentY        =   688
  298.          ButtonWidth     =   767
  299.          ButtonHeight    =   688
  300.          Style           =   1
  301.          ImageList       =   "imlToolbarIcons"
  302.          HotImageList    =   "imlToolbarHot"
  303.          _Version        =   393216
  304.          BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  305.             NumButtons      =   18
  306.             BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  307.                Key             =   "Connect"
  308.                ImageIndex      =   1
  309.             EndProperty
  310.             BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  311.                Object.ToolTipText     =   "Connect to ..."
  312.                Style           =   3
  313.             EndProperty
  314.             BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  315.                Key             =   "UpLevel"
  316.                ImageIndex      =   2
  317.             EndProperty
  318.             BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  319.                Style           =   3
  320.             EndProperty
  321.             BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  322.                Key             =   "Stop"
  323.                Object.ToolTipText     =   "Stop operation"
  324.                ImageIndex      =   3
  325.             EndProperty
  326.             BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  327.                Key             =   "Refresh"
  328.                Object.ToolTipText     =   "Refresh contents of current directory"
  329.                ImageIndex      =   4
  330.             EndProperty
  331.             BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  332.                Style           =   3
  333.             EndProperty
  334.             BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  335.                Key             =   "Download"
  336.                Object.ToolTipText     =   "Download File..."
  337.                ImageIndex      =   5
  338.             EndProperty
  339.             BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  340.                Key             =   "Upload"
  341.                Object.ToolTipText     =   "Upload File..."
  342.                ImageIndex      =   6
  343.             EndProperty
  344.             BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  345.                Style           =   3
  346.             EndProperty
  347.             BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  348.                Key             =   "CreateDirectory"
  349.                Object.ToolTipText     =   "Create Directory..."
  350.                ImageIndex      =   7
  351.             EndProperty
  352.             BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  353.                Key             =   "Delete"
  354.                Object.ToolTipText     =   "Delete File"
  355.                ImageIndex      =   8
  356.             EndProperty
  357.             BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  358.                Key             =   "Rename"
  359.                Object.ToolTipText     =   "Rename File..."
  360.                ImageIndex      =   9
  361.             EndProperty
  362.             BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  363.                Style           =   3
  364.             EndProperty
  365.             BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  366.                Key             =   "View Large Icons"
  367.                Object.ToolTipText     =   "View Large Icons"
  368.                ImageIndex      =   10
  369.                Style           =   2
  370.             EndProperty
  371.             BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  372.                Key             =   "View Small Icons"
  373.                Object.ToolTipText     =   "View Small Icons"
  374.                ImageIndex      =   11
  375.                Style           =   2
  376.             EndProperty
  377.             BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  378.                Key             =   "View List"
  379.                Object.ToolTipText     =   "View List"
  380.                ImageIndex      =   12
  381.                Style           =   2
  382.             EndProperty
  383.             BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  384.                Key             =   "View Details"
  385.                Object.ToolTipText     =   "View Details"
  386.                ImageIndex      =   13
  387.                Style           =   2
  388.                Value           =   1
  389.             EndProperty
  390.          EndProperty
  391.       End
  392.    End
  393.    Begin MSComctlLib.ImageList ImageList1 
  394.       Left            =   5640
  395.       Top             =   2280
  396.       _ExtentX        =   1005
  397.       _ExtentY        =   1005
  398.       BackColor       =   -2147483643
  399.       ImageWidth      =   16
  400.       ImageHeight     =   16
  401.       MaskColor       =   16711935
  402.       _Version        =   393216
  403.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  404.          NumListImages   =   3
  405.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  406.             Picture         =   "frmMain.frx":B7E8
  407.             Key             =   ""
  408.          EndProperty
  409.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  410.             Picture         =   "frmMain.frx":BB3C
  411.             Key             =   ""
  412.          EndProperty
  413.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  414.             Picture         =   "frmMain.frx":BE90
  415.             Key             =   ""
  416.          EndProperty
  417.       EndProperty
  418.    End
  419.    Begin MSComctlLib.TreeView tvTreeView 
  420.       Height          =   4800
  421.       Left            =   0
  422.       TabIndex        =   2
  423.       Top             =   705
  424.       Width           =   2016
  425.       _ExtentX        =   3545
  426.       _ExtentY        =   8467
  427.       _Version        =   393217
  428.       Indentation     =   529
  429.       LineStyle       =   1
  430.       PathSeparator   =   "/"
  431.       Style           =   7
  432.       HotTracking     =   -1  'True
  433.       ImageList       =   "ImageList1"
  434.       Appearance      =   1
  435.    End
  436.    Begin MSComctlLib.ListView lvListView 
  437.       Height          =   3960
  438.       Left            =   2055
  439.       TabIndex        =   1
  440.       Top             =   1440
  441.       Width           =   3210
  442.       _ExtentX        =   5662
  443.       _ExtentY        =   6985
  444.       View            =   3
  445.       LabelEdit       =   1
  446.       LabelWrap       =   -1  'True
  447.       HideSelection   =   -1  'True
  448.       _Version        =   393217
  449.       Icons           =   "imlLarge"
  450.       SmallIcons      =   "imlSmall"
  451.       ForeColor       =   -2147483640
  452.       BackColor       =   -2147483643
  453.       BorderStyle     =   1
  454.       Appearance      =   1
  455.       NumItems        =   3
  456.       BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  457.          Text            =   "File Name"
  458.          Object.Width           =   2540
  459.       EndProperty
  460.       BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  461.          SubItemIndex    =   1
  462.          Text            =   "File Size"
  463.          Object.Width           =   2540
  464.       EndProperty
  465.       BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  466.          SubItemIndex    =   2
  467.          Text            =   "Last Write Date"
  468.          Object.Width           =   2540
  469.       EndProperty
  470.    End
  471.    Begin MSComctlLib.StatusBar sbStatusBar 
  472.       Align           =   2  'Align Bottom
  473.       Height          =   270
  474.       Left            =   0
  475.       TabIndex        =   0
  476.       Top             =   5055
  477.       Width           =   8970
  478.       _ExtentX        =   15822
  479.       _ExtentY        =   476
  480.       _Version        =   393216
  481.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  482.          NumPanels       =   1
  483.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  484.             AutoSize        =   1
  485.             Object.Width           =   15399
  486.          EndProperty
  487.       EndProperty
  488.    End
  489.    Begin MSComDlg.CommonDialog dlgCommonDialog 
  490.       Left            =   1740
  491.       Top             =   1350
  492.       _ExtentX        =   847
  493.       _ExtentY        =   847
  494.       _Version        =   393216
  495.    End
  496.    Begin MSComctlLib.ImageList imlToolbarIcons 
  497.       Left            =   1740
  498.       Top             =   1350
  499.       _ExtentX        =   1005
  500.       _ExtentY        =   1005
  501.       BackColor       =   -2147483643
  502.       ImageWidth      =   22
  503.       ImageHeight     =   20
  504.       MaskColor       =   16711935
  505.       _Version        =   393216
  506.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  507.          NumListImages   =   13
  508.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  509.             Picture         =   "frmMain.frx":C1E4
  510.             Key             =   ""
  511.          EndProperty
  512.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  513.             Picture         =   "frmMain.frx":C788
  514.             Key             =   ""
  515.          EndProperty
  516.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  517.             Picture         =   "frmMain.frx":CD2C
  518.             Key             =   ""
  519.          EndProperty
  520.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  521.             Picture         =   "frmMain.frx":D2D0
  522.             Key             =   ""
  523.          EndProperty
  524.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  525.             Picture         =   "frmMain.frx":D874
  526.             Key             =   ""
  527.          EndProperty
  528.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  529.             Picture         =   "frmMain.frx":DE18
  530.             Key             =   ""
  531.          EndProperty
  532.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  533.             Picture         =   "frmMain.frx":E3BC
  534.             Key             =   ""
  535.          EndProperty
  536.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  537.             Picture         =   "frmMain.frx":E960
  538.             Key             =   ""
  539.          EndProperty
  540.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  541.             Picture         =   "frmMain.frx":EF04
  542.             Key             =   ""
  543.          EndProperty
  544.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  545.             Picture         =   "frmMain.frx":F4A8
  546.             Key             =   ""
  547.          EndProperty
  548.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  549.             Picture         =   "frmMain.frx":FA4C
  550.             Key             =   ""
  551.          EndProperty
  552.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  553.             Picture         =   "frmMain.frx":FFF0
  554.             Key             =   ""
  555.          EndProperty
  556.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  557.             Picture         =   "frmMain.frx":10594
  558.             Key             =   ""
  559.          EndProperty
  560.       EndProperty
  561.    End
  562.    Begin VB.Image imgSplitter 
  563.       Height          =   4788
  564.       Left            =   1965
  565.       MouseIcon       =   "frmMain.frx":10B38
  566.       MousePointer    =   99  'Custom
  567.       Top             =   705
  568.       Width           =   150
  569.    End
  570.    Begin VB.Menu mnuFile 
  571.       Caption         =   "&File"
  572.       Begin VB.Menu mnuConnect 
  573.          Caption         =   "&Connect to ..."
  574.       End
  575.       Begin VB.Menu sep1 
  576.          Caption         =   "-"
  577.       End
  578.       Begin VB.Menu mnuDownload 
  579.          Caption         =   "&Download File ..."
  580.       End
  581.       Begin VB.Menu mnuUpload 
  582.          Caption         =   "&Upload File ..."
  583.       End
  584.       Begin VB.Menu sep2 
  585.          Caption         =   "-"
  586.       End
  587.       Begin VB.Menu mnuFileClose 
  588.          Caption         =   "&Close"
  589.       End
  590.    End
  591.    Begin VB.Menu mnuEdit 
  592.       Caption         =   "&Edit"
  593.       Begin VB.Menu mnuRename 
  594.          Caption         =   "&Rename File ..."
  595.       End
  596.       Begin VB.Menu mnuDelete 
  597.          Caption         =   "&Delete File ..."
  598.       End
  599.       Begin VB.Menu sep3 
  600.          Caption         =   "-"
  601.       End
  602.       Begin VB.Menu mnuCreateDir 
  603.          Caption         =   "&Create Directory ..."
  604.       End
  605.       Begin VB.Menu mnuRemoveDir 
  606.          Caption         =   "&Remove Directory"
  607.       End
  608.    End
  609.    Begin VB.Menu mnuView 
  610.       Caption         =   "&View"
  611.       Begin VB.Menu mnuViewToolbar 
  612.          Caption         =   "&Toolbar"
  613.          Checked         =   -1  'True
  614.       End
  615.       Begin VB.Menu mnuViewStatusBar 
  616.          Caption         =   "Status &Bar"
  617.          Checked         =   -1  'True
  618.       End
  619.       Begin VB.Menu sep4 
  620.          Caption         =   "-"
  621.       End
  622.       Begin VB.Menu mnuListViewMode 
  623.          Caption         =   "Lar&ge Icons"
  624.          Index           =   0
  625.       End
  626.       Begin VB.Menu mnuListViewMode 
  627.          Caption         =   "S&mall Icons"
  628.          Index           =   1
  629.       End
  630.       Begin VB.Menu mnuListViewMode 
  631.          Caption         =   "&List"
  632.          Index           =   2
  633.       End
  634.       Begin VB.Menu mnuListViewMode 
  635.          Caption         =   "&Details"
  636.          Index           =   3
  637.       End
  638.       Begin VB.Menu sep5 
  639.          Caption         =   "-"
  640.       End
  641.       Begin VB.Menu mnuOptions 
  642.          Caption         =   "&Options..."
  643.       End
  644.    End
  645.    Begin VB.Menu mnuHelp 
  646.       Caption         =   "&Help"
  647.       Begin VB.Menu mnuHelpAbout 
  648.          Caption         =   "&About "
  649.       End
  650.    End
  651. End
  652. Attribute VB_Name = "frmMain"
  653. Attribute VB_GlobalNameSpace = False
  654. Attribute VB_Creatable = False
  655. Attribute VB_PredeclaredId = True
  656. Attribute VB_Exposed = False
  657. Const NAME_COLUMN = 0
  658. Const TYPE_COLUMN = 1
  659. Const SIZE_COLUMN = 2
  660. Const DATE_COLUMN = 3
  662. Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
  663.   
  664. Dim mbMoving As Boolean
  665. Const sglSplitLimit = 500
  667. Private m_LastNode As Node
  668. Private WithEvents m_FtpConnection As CFtpConnection
  669. Attribute m_FtpConnection.VB_VarHelpID = -1
  670. Private m_strFile       As String
  671. Private m_lFileSize     As Long
  673. Private Sub Check1_Click()
  675.     If Check1.Value Then
  676.         m_FtpConnection.PassiveMode = True
  677.     Else
  678.         m_FtpConnection.PassiveMode = False
  679.     End If
  681. End Sub
  683. Private Sub CoolBar1_HeightChanged(ByVal NewHeight As Single)
  684.     SizeControls picSplitter.Left
  685. End Sub
  687. Private Sub Form_Load()
  689.     Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
  690.     Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
  691.     Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
  692.     Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
  693.     
  694.     Set m_FtpConnection = New CFtpConnection
  695.     m_FtpConnection.Timeout = 180
  696.     
  697. End Sub
  699. Private Sub Form_Unload(Cancel As Integer)
  700.     Dim i As Integer
  702.     Set m_FtpConnection = Nothing
  703.     
  704.     'close all sub forms
  705.     For i = Forms.Count - 1 To 1 Step -1
  706.         Unload Forms(i)
  707.     Next
  708.     If Me.WindowState <> vbMinimized Then
  709.         SaveSetting App.Title, "Settings", "MainLeft", Me.Left
  710.         SaveSetting App.Title, "Settings", "MainTop", Me.Top
  711.         SaveSetting App.Title, "Settings", "MainWidth", Me.Width
  712.         SaveSetting App.Title, "Settings", "MainHeight", Me.Height
  713.     End If
  714.     SaveSetting App.Title, "Settings", "ViewMode", lvListView.View
  715. End Sub
  717. Private Sub Form_Resize()
  718.     On Error Resume Next
  719.     If Me.Width < 3000 Then Me.Width = 3000
  720.     SizeControls imgSplitter.Left
  721. End Sub
  723. Private Sub imgSplitter_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  724.     With imgSplitter
  725.         picSplitter.Move .Left, .Top, .Width  2, .Height - 20
  726.     End With
  727.     picSplitter.Visible = True
  728.     mbMoving = True
  729.     LockWindowUpdate Me.hwnd
  730. End Sub
  733. Private Sub imgSplitter_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  734.     Dim sglPos As Single
  735.     
  737.     If mbMoving Then
  738.         sglPos = x + imgSplitter.Left
  739.         If sglPos < sglSplitLimit Then
  740.             picSplitter.Left = sglSplitLimit
  741.         ElseIf sglPos > Me.Width - sglSplitLimit Then
  742.             picSplitter.Left = Me.Width - sglSplitLimit
  743.         Else
  744.             picSplitter.Left = sglPos
  745.         End If
  746.     End If
  747. End Sub
  749. Private Sub imgSplitter_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  750.     SizeControls picSplitter.Left
  751.     picSplitter.Visible = False
  752.     mbMoving = False
  753. End Sub
  755. Sub SizeControls(x As Single)
  756.     
  757.     On Error Resume Next
  759.     'set the width
  760.     If x < 1500 Then x = 1500
  761.     If x > (Me.Width - 1500) Then x = Me.Width - 1500
  762.     tvTreeView.Width = x
  763.     imgSplitter.Left = x
  764.     lvListView.Left = x + 40
  765.     picTitle.Left = x + 40
  766.     lvListView.Width = Me.Width - (tvTreeView.Width + 140)
  767.     picTitle.Width = lvListView.Width - 20
  768.     imgIcon.Left = picTitle.Width - imgIcon.Width - 40
  769.     ProgressBar1.Width = picTitle.Width - ProgressBar1.Left - imgIcon.Width - 120
  770.     Picture1.Left = ProgressBar1.Left + (ProgressBar1.Width - Picture1.Width)
  772.     'set the top
  773.   
  774.     If CoolBar1.Visible Then
  775.         tvTreeView.Top = CoolBar1.Height + 40
  776.     Else
  777.         tvTreeView.Top = 0
  778.     End If
  779.     
  780.     picTitle.Top = tvTreeView.Top
  781.     lvListView.Top = picTitle.Top + picTitle.Height
  782.     
  783.     'set the height
  784.     If sbStatusBar.Visible Then
  785.         tvTreeView.Height = Me.ScaleHeight - (IIf(CoolBar1.Visible, CoolBar1.Height, 0) + sbStatusBar.Height) - 40
  786.     Else
  787.         tvTreeView.Height = Me.ScaleHeight - IIf(CoolBar1.Visible, CoolBar1.Height, 0) - 40
  788.     End If
  790.     lvListView.Height = tvTreeView.Height - picTitle.Height
  791.     imgSplitter.Top = tvTreeView.Top
  792.     imgSplitter.Height = tvTreeView.Height
  793.     
  794.     LockWindowUpdate 0
  795.     
  796. End Sub
  798. Private Sub m_FtpConnection_DownloadProgress(lBytes As Long)
  800.     On Error Resume Next
  802.     sbStatusBar.Panels(1).Text = "Downloading " & m_strFile & " (" & lBytes & " bytes)"
  803.     ProgressBar1.Value = lBytes / (m_lFileSize / 100)
  805. End Sub
  807. Private Sub m_FtpConnection_StateChanged(State As FTP_CONNECTION_STATES)
  808.     
  809.     Dim strStatus As String
  810.     
  811.     Select Case State
  812.         Case FTP_CONNECTION_RESOLVING_HOST
  813.             strStatus = "Resolving host..."
  814.         Case FTP_CONNECTION_HOST_RESOLVED
  815.             strStatus = "Host resolved"
  816.         Case FTP_CONNECTION_CONNECTED
  817.             strStatus = "Connected"
  818.         Case FTP_CONNECTION_AUTHENTICATION
  819.             strStatus = "Authentication..."
  820.         Case FTP_USER_LOGGED
  821.             strStatus = "You are logged in. Connection ready."
  822.         Case FTP_ESTABLISHING_DATA_CONNECTION
  823.             strStatus = "Establishing data connection..."
  824.         Case FTP_DATA_CONNECTION_ESTABLISHED
  825.             strStatus = "Data connection established."
  826.         Case FTP_RETRIEVING_DIRECTORY_INFO
  827.             strStatus = "Retrieving directory info..."
  828.         Case FTP_DIRECTORY_INFO_COMPLETED
  829.             strStatus = "Directory listing completed."
  830.         Case State = FTP_TRANSFER_STARTING
  831.             strStatus = "Transfer in progress..."
  832.         Case FTP_TRANSFER_COMLETED
  833.             strStatus = "Transfer completed."
  834.             ProgressBar1.Value = 0.01
  835.             m_lFileSize = 0
  836.     End Select
  837.     
  838.     sbStatusBar.Panels(1).Text = strStatus
  839.     
  840. End Sub
  842. Private Sub m_FtpConnection_UploadProgress(lBytes As Long)
  844.     On Error Resume Next
  846.     sbStatusBar.Panels(1).Text = "Uploading " & m_strFile & " (" & lBytes & " bytes)"
  847.     ProgressBar1.Value = lBytes / (m_lFileSize / 100)
  849. End Sub
  851. Private Sub mnuConnect_Click()
  852.     Call EstablishConnection
  853. End Sub
  855. Private Sub mnuCreateDir_Click()
  857.     Dim strDirName As String
  858.     
  859.     strDirName = InputBox("Enter directory name, please.", "Create new directory")
  860.     If Len(strDirName) > 0 Then
  861.         If m_FtpConnection.CreateDirectory(strDirName) Then
  862.             ListFiles tvTreeView.SelectedItem
  863.         Else
  864.             MsgBox "Can't create new directory." & vbCrLf & vbCrLf & _
  865.                     "Server response: " & _
  866.                     m_FtpConnection.GetLastServerResponse, , _
  867.                     "Can't create directory"
  868.         End If
  869.     End If
  870.     
  871. End Sub
  873. Private Sub mnuDelete_Click()
  874.     '
  875.     Dim intRetVal   As Integer
  876.     Dim strFileName As String
  877.     '
  878.     On Error GoTo ERROR_HANDLER
  879.     '
  880.     strFileName = tvTreeView.SelectedItem.Key & lvListView.SelectedItem.Text
  881.     '
  882.     intRetVal = MsgBox("Do you really want to delete file " & strFileName & "?", vbYesNoCancel, "Delete file")
  883.     '
  884.     If intRetVal = vbYes Then
  885.         If m_FtpConnection.DeleteFile(strFileName) Then
  886.             ListFiles tvTreeView.SelectedItem
  887.         Else
  888.             MsgBox "Can't delete file." & vbCrLf & vbCrLf & _
  889.                     "Server response: " & _
  890.                     m_FtpConnection.GetLastServerResponse, , _
  891.                     "Can't delete file"
  892.         End If
  893.     End If
  894.     '
  895.     Exit Sub
  896.     '
  897. ERROR_HANDLER:
  898.     If Err = 91 Then
  899.         MsgBox "Select file to rename, please.", vbInformation, "Rename File"
  900.     Else
  901.         MsgBox "Error occured!" & vbCrLf & "#" & Err.Number & ": " & Err.Description, _
  902.                 vbInformation, "Rename File"
  903.     End If
  904.     
  905. End Sub
  907. Private Sub mnuDownload_Click()
  908.     Call DownloadFile
  909. End Sub
  911. Private Sub mnuEdit_Click()
  913.     With m_FtpConnection
  914.         mnuRename.Enabled = Not .Busy
  915.         mnuRemoveDir.Enabled = Not .Busy
  916.         mnuCreateDir.Enabled = Not .Busy
  917.         mnuDelete.Enabled = Not .Busy
  918.     End With
  919.     
  920. End Sub
  922. Private Sub mnuFile_Click()
  924.     With m_FtpConnection
  925.         mnuDownload.Enabled = Not .Busy
  926.         mnuUpload.Enabled = Not .Busy
  927.     End With
  928.     
  929. End Sub
  931. Private Sub mnuHelp_Click()
  933.     mnuHelpAbout.Enabled = Not m_FtpConnection.Busy
  935. End Sub
  937. Private Sub mnuListViewMode_Click(Index As Integer)
  938.         
  939.     Select Case Index
  940.         Case 0
  941.             lvListView.View = lvwIcon
  942.         Case 1
  943.             lvListView.View = lvwSmallIcon
  944.         Case 2
  945.             lvListView.View = lvwList
  946.         Case 3
  947.             lvListView.View = lvwReport
  948.     End Select
  949.     
  950.     tbToolBar.Buttons(15 + Index).Value = tbrPressed
  951.     
  952. End Sub
  954. Private Sub mnuRemoveDir_Click()
  956.     Dim intAnswer As Integer
  957.     Dim CurNode As Node
  958.     Dim i As Integer
  959.     Dim intChildren As Integer
  960.     
  961.     On Error GoTo ERROR_HANDLER
  962.     
  963.     If Not tvTreeView.SelectedItem.Key = tvTreeView.SelectedItem.Root.Key Then
  964.         intAnswer = MsgBox("Do you really want to remove directory: " & tvTreeView.SelectedItem.Text, vbQuestion + vbYesNo, "Remove Directory")
  965.         If intAnswer = vbYes Then
  966.             If m_FtpConnection.RemoveDirectory(tvTreeView.SelectedItem.Key) Then
  967.                 Set CurNode = tvTreeView.SelectedItem.Parent
  968.                 Set tvTreeView.SelectedItem = CurNode
  969.                 '
  970.                 'remove all children nodes of new selected node
  971.                 intChildren = CurNode.Children
  972.                 For i = 1 To intChildren
  973.                     tvTreeView.Nodes.Remove CurNode.Child.Index
  974.                 Next i
  975.                 '
  976.                 ListFiles tvTreeView.SelectedItem
  977.             Else
  978.                 MsgBox "Can't remove directory." & vbCrLf & vbCrLf & _
  979.                         "Server response: " & _
  980.                         m_FtpConnection.GetLastServerResponse, , _
  981.                         "Can't remove directory"
  982.             End If
  983.         End If
  984.     End If
  985.     
  986.     Exit Sub
  987.     
  988. ERROR_HANDLER:
  989.     If Err = 91 Then
  990.         MsgBox "Select file to rename, please.", vbInformation, "Rename File"
  991.     Else
  992.         MsgBox "Error occured!" & vbCrLf & "#" & Err.Number & ": " & Err.Description, _
  993.                 vbInformation, "Rename File"
  994.     End If
  995.     
  996.     
  997. End Sub
  999. Private Sub mnuRename_Click()
  1001.     Dim strFileName     As String
  1002.     Dim strNewFileName  As String
  1003.     Dim intAnswer       As Integer
  1004.     '
  1005.     On Error GoTo ERROR_HANDLER
  1006.     '
  1007.     strFileName = lvListView.SelectedItem.Text
  1008.     '
  1009.     strNewFileName = InputBox("Enter new file name for " & strFileName, "Rename File")
  1010.     '
  1011.     If Len(strNewFileName) > 0 Then
  1012.         '
  1013.         intAnswer = MsgBox("Do you really want to rename file " & strFileName & " to " & strNewFileName & "?", _
  1014.                 vbYesNo + vbQuestion, "Rename File")
  1015.         '
  1016.         If intAnswer = vbYes Then
  1017.             If m_FtpConnection.RenameFile(strFileName, strNewFileName) Then
  1018.                 ListFiles tvTreeView.SelectedItem
  1019.             Else
  1020.                 MsgBox "Can't rename file." & vbCrLf & vbCrLf & _
  1021.                         "Server response: " & _
  1022.                         m_FtpConnection.GetLastServerResponse, , _
  1023.                         "Can't rename file"
  1024.             End If
  1025.         End If
  1026.         '
  1027.     End If
  1028.     '
  1029.     Exit Sub
  1030.     '
  1031. ERROR_HANDLER:
  1032.     If Err = 91 Then
  1033.         MsgBox "Select file to rename, please.", vbInformation, "Rename File"
  1034.     Else
  1035.         MsgBox "Error occured!" & vbCrLf & "#" & Err.Number & ": " & Err.Description, _
  1036.                 vbInformation, "Rename File"
  1037.     End If
  1038.     
  1039. End Sub
  1041. Private Sub mnuUpload_Click()
  1042.     
  1043.     Dim sFile       As String
  1044.     Dim bFileExists As Boolean
  1045.     Dim strFileName As String
  1046.     Dim lvItem      As ListItem
  1047.     Dim intRetVal   As Integer
  1048.     Dim lStartPoint As Long
  1049.     
  1050.     On Error Resume Next
  1051.         
  1052.     With dlgCommonDialog
  1053.         .DialogTitle = "Select file to upload"
  1054.         .CancelError = True
  1055.         .Filter = "All Files (*.*)|*.*"
  1056.         .ShowSave
  1057.         If Err = 0 Then
  1058.             If Len(.FileName) = 0 Then
  1059.                 Exit Sub
  1060.             End If
  1061.             
  1062.             strFileName = Mid$(.FileName, InStrRev(.FileName, "") + 1)
  1063.                     
  1064.             For Each lvItem In lvListView.ListItems
  1065.                 If lvItem.Text = strFileName Then
  1066.                     bFileExists = True
  1067.                     Exit For
  1068.                 End If
  1069.             Next
  1070.             
  1071.             m_lFileSize = FileLen(.FileName)
  1072.             
  1073.             If bFileExists Then
  1074.                 If m_lFileSize > CLng(lvItem.SubItems(1)) Then
  1075.                     retVal = MsgBox("File " & strFileName & " already exists!" & vbCrLf & _
  1076.                                   "Size of remote file - " & lvItem.SubItems(1) & " bytes" & vbCrLf & _
  1077.                                   "Size of local file  - " & m_lFileSize & " bytes" & vbCrLf & vbCrLf & _
  1078.                                   "Do you want to append lost data to existing file?" & vbclf & vbCrLf & _
  1079.                                   "Note: If you choose No new file will be created.", _
  1080.                                   vbYesNoCancel + vbQuestion, "File already exists")
  1081.                     If retVal = vbYes Then
  1082.                         lStartPoint = CLng(lvItem.SubItems(1))
  1083.                     ElseIf retVal = vbCancel Then
  1084.                         Exit Sub
  1085.                     End If
  1086.                 Else
  1087.                     retVal = MsgBox("File " & strFileName & " already exists!" & vbCrLf & _
  1088.                                   "Size of remote file - " & lvItem.SubItems(1) & " bytes" & vbCrLf & _
  1089.                                   "Size of local file  - " & m_lFileSize & " bytes" & vbCrLf & vbCrLf & _
  1090.                                   "Do you want to cancel upload?" & vbclf & vbCrLf & _
  1091.                                   "Note: If you choose No new file will be created.", _
  1092.                                   vbYesNo + vbQuestion, "File already exists")
  1093.                     If retVal = vbYes Then
  1094.                         Exit Sub
  1095.                     End If
  1096.                 End If
  1097.             End If
  1098.             
  1099.             m_strFile = strFileName
  1100.             If m_FtpConnection.UploadFile(.FileName, strFileName, lStartPoint) Then
  1101.                 ListFiles tvTreeView.SelectedItem
  1102.             Else
  1103.                 MsgBox "Can't upload file." & vbCrLf & vbCrLf & _
  1104.                         "Server response: " & m_FtpConnection.GetLastServerResponse, , "Can't upload file"
  1105.             End If
  1106.         End If
  1107.     End With
  1109. End Sub
  1111. Private Sub mnuView_Click()
  1113.     With m_FtpConnection
  1114.         mnuOptions.Enabled = Not .Busy
  1115.     End With
  1116.     
  1117. End Sub
  1119. Private Sub Option1_Click(Index As Integer)
  1121.     'm_FtpConnection.TransferMode = IIf(Index = 0, FTP_TYPE_ASCII, FTP_TYPE_IMAGE)
  1123. End Sub
  1125. Private Sub tbToolBar_ButtonClick(ByVal Button As MSComctlLib.Button)
  1126.     
  1127.     Dim strTemp As String
  1128.     
  1129.     On Error Resume Next
  1130.     Select Case Button.Key
  1131.         Case "Connect"
  1132.             Call EstablishConnection
  1133.         Case "UpLevel"
  1134.             Set tvTreeView.SelectedItem = tvTreeView.SelectedItem.Parent
  1135.             strTemp = tvTreeView.SelectedItem.FullPath
  1136.             strTemp = Mid$(strTemp, InStr(1, strTemp, "/"))
  1137.             If m_FtpConnection.SetCurrentDirectory(strTemp) Then
  1138.                 ListFiles tvTreeView.SelectedItem
  1139.             End If
  1140.         Case "Stop"
  1141.             If Not m_FtpConnection.CloseConnection Then
  1142.                 If m_FtpConnection.FtpGetLastError = ERROR_FTP_USER_TRANSFER_IN_PROGRESS Then
  1143.                     Dim intRetVal As Integer
  1144.                     intRetVal = MsgBox("Data transfer in progress. Do you want to cancel the data transfer?", vbYesNo + vbQuestion)
  1145.                     If intRetVal = vbYes Then
  1146.                         m_FtpConnection.CancelTransfer
  1147.                     End If
  1148.                 End If
  1149.             End If
  1150.         Case "Refresh"
  1151.             Call RefreshDirectory
  1152.         Case "Download"
  1153.             mnuDownload_Click
  1154.         Case "Upload"
  1155.             mnuUpload_Click
  1156.         Case "CreateDirectory"
  1157.             mnuCreateDir_Click
  1158.         Case "Delete"
  1159.             mnuDelete_Click
  1160.         Case "Rename"
  1161.             mnuRename_Click
  1162.         Case "View Large Icons"
  1163.             lvListView.View = lvwIcon
  1164.         Case "View Small Icons"
  1165.             lvListView.View = lvwSmallIcon
  1166.         Case "View List"
  1167.             lvListView.View = lvwList
  1168.         Case "View Details"
  1169.             lvListView.View = lvwReport
  1170.     End Select
  1171. End Sub
  1173. Private Sub mnuHelpAbout_Click()
  1174.     frmAbout.Show vbModal
  1175. End Sub
  1177. Private Sub mnuViewStatusBar_Click()
  1178.     mnuViewStatusBar.Checked = Not mnuViewStatusBar.Checked
  1179.     sbStatusBar.Visible = mnuViewStatusBar.Checked
  1180.     SizeControls imgSplitter.Left
  1181. End Sub
  1183. Private Sub mnuViewToolbar_Click()
  1184.     mnuViewToolbar.Checked = Not mnuViewToolbar.Checked
  1185.     CoolBar1.Visible = mnuViewToolbar.Checked
  1186.     SizeControls imgSplitter.Left
  1187. End Sub
  1189. Private Sub mnuFileClose_Click()
  1190.     'unload the form
  1191.     Unload Me
  1192. End Sub
  1194. Public Function GetImageNumber(strFileName As String) As Integer
  1196.     Dim iPos As Integer
  1197.     Dim strExt As String
  1198.     
  1199.     strExt = Mid$(strFileName, InStrRev(strFileName, ".") + 1)
  1200.     
  1201.     On Error Resume Next
  1202.     
  1203.     Select Case LCase(strExt)
  1204.         Case "txt", "htm", "html", "lst", "log", "ini", "inf", ""
  1205.             GetImageNumber = 1
  1206.         Case Else
  1207.             GetImageNumber = 2
  1208.     End Select
  1209.         
  1210. End Function
  1212. Public Function FormatFileSize(lFileSize As Long) As String
  1213.     
  1214.     On Error GoTo ERROR_HANDLER
  1215.     
  1216.     If lFileSize >= 1024 Then
  1217.         FormatFileSize = Format$(CStr(lFileSize / 1024), "### ### ### KB")
  1218.     Else
  1219.         FormatFileSize = CStr(lFileSize) & " " & "bytes"
  1220.     End If
  1222.     Exit Function
  1223.     
  1224. ERROR_HANDLER:
  1225.     Debug.Print Err.Number & " " & Err.Description
  1226.     
  1227. End Function
  1229. Private Sub tvTreeView_DragDrop(Source As Control, x As Single, y As Single)
  1230.     If Source = imgSplitter Then
  1231.         SizeControls x
  1232.     End If
  1233. End Sub
  1235. Private Sub tvTreeView_NodeClick(ByVal Node As MSComctlLib.Node)
  1236.     
  1237. With m_FtpConnection
  1238.     If .Busy Then
  1239.         Set tvTreeView.SelectedItem = m_LastNode
  1240.         Exit Sub
  1241.     End If
  1242.     
  1243.     Set m_LastNode = Node
  1244.     
  1245. TryAgain:
  1246.     If .SetCurrentDirectory(Replace$(Mid$(Node.FullPath, InStr(1, Node.FullPath, "/")), "//", "/")) Then
  1247.         ListFiles Node
  1248.     Else
  1249.         If .FtpGetLastError = ERROR_FTP_WINSOCK_BadState Then
  1250.             If .Connect Then
  1251.                 GoTo TryAgain
  1252.             End If
  1253.         Else
  1254.         
  1255.         End If
  1256.     End If
  1257.     
  1258. End With
  1259.     
  1260. End Sub
  1262. Private Sub AddFileToListView(oFtpFile As CFtpFile)
  1263.     
  1264.     Dim intIcon     As Integer
  1265.     Dim strFileName As String
  1266.     
  1267.     strFileName = oFtpFile.FileName
  1268.     
  1269.     intIcon = GetImageNumber(strFileName)
  1270.     Set lvItem = lvListView.ListItems.Add(, strFileName, strFileName, intIcon, intIcon)
  1271.     lvItem.SubItems(1) = oFtpFile.FileSize
  1272.     lvItem.SubItems(2) = oFtpFile.LastWriteTime
  1273.     
  1274. End Sub
  1276. Private Sub DownloadFile()
  1277.     
  1278.     On Error Resume Next
  1279.     
  1280.     Dim lStartPoint         As Long
  1281.     Dim bForceDownload      As Boolean
  1282.     Dim vTransferMode       As FtpTransferModes
  1283.     
  1284.     With dlgCommonDialog
  1285.         'show to the user the dialog to choose file name to save
  1286.         .DialogTitle = "Download file and save as..."
  1287.         .CancelError = True
  1288.         .Filter = "All Files (*.*)|*.*"
  1289.         .FileName = lvListView.SelectedItem.Text
  1290.         .ShowSave
  1291.         If Err = 0 Then
  1292.             If Len(.FileName) = 0 Then
  1293.                 'user has clicked Cancel button
  1294.                 Exit Sub
  1295.             End If
  1296.             'get remote file name
  1297.             m_strFile = lvListView.SelectedItem.Text
  1298.             'get size of remote file
  1299.             m_lFileSize = CLng(lvListView.SelectedItem.SubItems(1))
  1300.             '
  1301.             'get transfer mode
  1302.             If CBool(Option1(0).Value) Then
  1303.                 vTransferMode = FTP_ASCII_MODE
  1304.             Else
  1305.                 vTransferMode = FTP_IMAGE_MODE
  1306.             End If
  1307.                         
  1308.             If FileExists(.FileName) Then
  1309.                 '
  1310.                 Dim strQuestion As String
  1311.                 Dim intRetVal   As Integer
  1312.                 '
  1313.                 If FileLen(.FileName) < m_lFileSize Then
  1314.                     intRetVal = MsgBox("File " & .FileName & " already exists!" & vbCrLf & _
  1315.                                   "Size of remote file - " & m_lFileSize & " bytes" & vbCrLf & _
  1316.                                   "Size of local file  - " & FileLen(.FileName) & " bytes" & vbCrLf & vbCrLf & _
  1317.                                   "Do you want to append lost data to existing file?" & vbclf & vbCrLf & _
  1318.                                   "Note: If you choose No new file will be created.", _
  1319.                                   vbYesNoCancel + vbQuestion, "File already exists")
  1320.                     If intRetVal = vbYes Then
  1321.                         lStartPoint = FileLen(.FileName)
  1322.                     ElseIf intRetVal = vbCancel Then
  1323.                         Exit Sub
  1324.                     End If
  1325.                 Else    'FileLen(.FileName) < m_lFileSize
  1326.                     intRetVal = MsgBox("File " & .FileName & " already exists!" & vbCrLf & _
  1327.                                   "Size of remote file - " & m_lFileSize & " bytes" & vbCrLf & _
  1328.                                   "Size of local file  - " & FileLen(.FileName) & " bytes" & vbCrLf & vbCrLf & _
  1329.                                   "Do you want to cancel download?" & vbclf & vbCrLf & _
  1330.                                   "Note: If you choose No new file will be created.", _
  1331.                                   vbYesNo + vbQuestion, "File already exists")
  1332.                     If intRetVal = vbYes Then
  1333.                         Exit Sub
  1334.                     End If
  1335.                 End If  'FileLen(.FileName) < m_lFileSize
  1336.             End If  'FileExists(.FileName)
  1337.             'download file
  1338. TryAgain:
  1339.             If Not m_FtpConnection.DownloadFile(m_strFile, .FileName, _
  1340.                         vTransferMode, lStartPoint) Then
  1341.                 If m_FtpConnection.FtpGetLastError = ERROR_FTP_WINSOCK_BadState Then
  1342.                     'we have lost control connection
  1343.                     intRetVal = MsgBox("The connection is broken. Do you wish to establish the connect again?", vbQuestion + vbYesNo)
  1344.                     If intRetVal = vbYes Then
  1345.                         If m_FtpConnection.Connect Then
  1346.                             If m_FtpConnection.SetCurrentDirectory(tvTreeView.SelectedItem.FullPath) Then
  1347.                                 GoTo TryAgain
  1348.                             End If
  1349.                         Else
  1350.                             MsgBox "The connection cannot be established.", vbExclamation
  1351.                         End If
  1352.                     Else
  1353.                         Call ResetProgress
  1354.                     End If
  1355.                 ElseIf m_FtpConnection.FtpGetLastError = ERROR_FTP_USER_TIMEOUT Then
  1356.                     intRetVal = MsgBox("Server doesn't response. Do you like to try again?", vbYesNo + vbQuestion)
  1357.                     If intRetVal = vbYes Then
  1358.                         GoTo TryAgain
  1359.                     Else
  1360.                         Call ResetProgress
  1361.                     End If
  1362.                 Else
  1363.                     MsgBox "Error #" & m_FtpConnection.FtpGetLastError & vbCrLf & vbCrLf & _
  1364.                             m_FtpConnection.GetFtpErrorDescription, vbExclamation
  1365.                 End If
  1366.             End If
  1367.         End If
  1368.     End With
  1370. End Sub
  1372. Private Function FileExists(strFileName As String) As Boolean
  1373.     
  1374.     On Error GoTo ERROR_HANDLER
  1375.     
  1376.     FileExists = (GetAttr(strFileName) And vbDirectory) = 0
  1378. ERROR_HANDLER:
  1379.     
  1380. End Function
  1382. Private Sub RefreshDirectory()
  1383.     
  1384.     With tvTreeView.SelectedItem
  1385.         '
  1386.         'remove all subfolders from treeview
  1387.         '
  1388.         If .Children > 0 Then
  1389.             For i = 1 To .Children
  1390.                 tvTreeView.Nodes.Remove (.Child.Index)
  1391.             Next i
  1392.         End If
  1393.         '
  1394.         lvListView.ListItems.Clear
  1395.         '
  1396.         ListFiles tvTreeView.SelectedItem
  1397.         '
  1398.     End With
  1399.     
  1400. End Sub
  1402. Private Sub EstablishConnection()
  1404. Dim tvNode As Node
  1405. 'Dim CurNode As Node
  1406. 'create instance of frmConnect form
  1407. Dim f As New frmConnect
  1408. 'show the form
  1409. f.Show vbModal
  1410. 'if OK button was clicked
  1411. If f.Action = comdOK Then
  1412.     'clear the treeview and the listview
  1413.     tvTreeView.Nodes.Clear
  1414.     lvListView.ListItems.Clear
  1415.     '
  1416.     With m_FtpConnection
  1417.         'init object properties
  1418.         .FtpServer = f.URL
  1419.         .UserName = f.UserName
  1420.         .Password = f.Password
  1421.         .PassiveMode = CBool(Check1.Value)
  1422.         'call Connect method
  1423.         If .Connect Then
  1424.             Label1 = f.URL
  1425.             'add root node to the treeview
  1426.             Set tvNode = tvTreeView.Nodes.Add(, , , .CurrentDirectory, 1)
  1427.             tvNode.Key = .CurrentDirectory
  1428.             Set tvTreeView.SelectedItem = tvNode
  1429.             ListFiles tvNode, True
  1430.         End If '.Connect
  1431.     End With 'm_FtpConnection
  1432. End If 'f.Action = comdOK
  1434. End Sub
  1436. Private Sub ListFiles(Optional oNode As Node, Optional bRoot As Boolean = False)
  1438.     Dim CurNode As Node
  1439.     Dim tvNode As Node
  1440.     Dim strNewKey As String
  1441.     
  1442.     On Error Resume Next
  1444.     lvListView.ListItems.Clear
  1446.     With m_FtpConnection
  1447.         .PassiveMode = CBool(Check1.Value)
  1448.         'if connection established
  1449.         Dim oFiles As New CFtpFiles
  1450.         Dim oFile As CFtpFile
  1451.         'enumerate files in root dir
  1452.         If .EnumFiles(oFiles) Then
  1453.             Set oFiles = oFiles
  1454.             'if quantity is 1 or more
  1455.             If oFiles.Count > 0 Then
  1456.                 'walk thru all files in the collection
  1457.                 For Each oFile In oFiles
  1458.                     If oFile.IsDirectory Then
  1459.                         'if found item is directory
  1460.                         'add new child node
  1461.                         If oNode.Key = oNode.Root.Key Then
  1462.                             If Not oNode.Key = "/" Then
  1463.                                 strNewKey = oNode.Key & "/" & oFile.FileName & "/"
  1464.                             Else
  1465.                                 strNewKey = oNode.Key & oFile.FileName & "/"
  1466.                             End If
  1467.                         Else
  1468.                             strNewKey = oNode.Key & oFile.FileName & "/"
  1469.                         End If
  1470.     
  1471.                         Set tvNode = tvTreeView.Nodes.Add(oNode.Key, tvwChild, strNewKey, oFile.FileName, 2)
  1472.                         'tvNode.Key = Mid$(tvNode.FullPath, InStr(1, tvNode.FullPath, "/"))
  1473.                         tvNode.ExpandedImage = 3
  1474.                     Else
  1475.                         'if found item is file
  1476.                         'add new item to the listview
  1477.                         If tvTreeView.SelectedItem.Key = oNode.Key Then
  1478.                             AddFileToListView oFile
  1479.                         End If
  1480.                     End If 'oFile.IsDirectory
  1481.                 Next
  1482.             End If 'oFiles.Count > 0
  1483.         Else
  1484.             MsgBox "Error #" & m_FtpConnection.FtpGetLastError & vbCrLf & vbCrLf & _
  1485.             m_FtpConnection.GetFtpErrorDescription, vbExclamation
  1486.         End If
  1487.     End With 'm_FtpConnection
  1488.     
  1489.     oNode.Expanded = True
  1491. End Sub
  1493. Private Sub ResetProgress()
  1495.     ProgressBar1.Value = 0
  1496.     sbStatusBar.Panels(1).Text = ""
  1497.     
  1498. End Sub