ftp.frm

一个简单实用的FTP上传工具

VERSION 5.00
Object = "{6580F760-7819-11CF-B86C-444553540000}#1.0#0"; "EZFTP.OCX"
Begin VB.Form Main 
   Caption         =   "巴可网络文件传送管理器"
   ClientHeight    =   8580
   ClientLeft      =   2265
   ClientTop       =   1665
   ClientWidth     =   8175
   Icon            =   "FTP.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   8580
   ScaleWidth      =   8175
   StartUpPosition =   1  '所有者中心
   Begin VB.Timer XsZt 
      Interval        =   1000
      Left            =   120
      Top             =   90000
   End
   Begin VB.Frame Frame1 
      Caption         =   "选择连接主机及用户名"
      Height          =   1575
      Left            =   120
      TabIndex        =   12
      Top             =   120
      Width           =   7815
      Begin VB.CommandButton ZzCommand 
         Caption         =   "中  止"
         Enabled         =   0   'False
         Height          =   440
         Left            =   5520
         MouseIcon       =   "FTP.frx":0442
         MousePointer    =   99  'Custom
         TabIndex        =   18
         Top             =   880
         Width           =   1035
      End
      Begin VB.CommandButton Exit 
         Caption         =   "退  出"
         Height          =   440
         Left            =   6600
         TabIndex        =   17
         Top             =   880
         Width           =   1035
      End
      Begin VB.CommandButton GyCommand 
         Caption         =   "关  于"
         Height          =   440
         Left            =   6600
         TabIndex        =   16
         Top             =   360
         Width           =   1035
      End
      Begin VB.ComboBox Host 
         Height          =   300
         Left            =   1080
         TabIndex        =   1
         Text            =   "www.bacocis.com"
         Top             =   360
         Width           =   3975
      End
      Begin VB.ComboBox UserName 
         Height          =   300
         Left            =   1080
         TabIndex        =   2
         Text            =   "mqkng"
         Top             =   720
         Width           =   3975
      End
      Begin VB.TextBox Password 
         Height          =   285
         IMEMode         =   3  'DISABLE
         Left            =   1080
         PasswordChar    =   "*"
         TabIndex        =   3
         Text            =   "720917"
         Top             =   1080
         Width           =   3975
      End
      Begin VB.CommandButton OK 
         Caption         =   "连  接"
         Height          =   440
         Left            =   5520
         MouseIcon       =   "FTP.frx":0594
         MousePointer    =   99  'Custom
         TabIndex        =   0
         Top             =   380
         Width           =   1035
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "服务器："
         Height          =   180
         Left            =   240
         TabIndex        =   15
         Top             =   420
         Width           =   720
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         Caption         =   "用户名："
         Height          =   180
         Left            =   240
         TabIndex        =   14
         Top             =   780
         Width           =   720
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "密  码："
         Height          =   180
         Left            =   240
         TabIndex        =   13
         Top             =   1140
         Width           =   720
      End
   End
   Begin EZFTPLib.EZFTP FTP 
      Left            =   120
      Top             =   90000
      _Version        =   65536
      _ExtentX        =   800
      _ExtentY        =   800
      _StockProps     =   0
      LocalFile       =   ""
      RemoteFile      =   ""
      RemoteAddres    =   ""
      UserName        =   ""
      Password        =   ""
      Binary          =   0   'False
   End
   Begin VB.Frame Remote 
      Caption         =   "服务器文件夹"
      Height          =   4935
      Left            =   4380
      TabIndex        =   5
      Top             =   1920
      Width           =   3555
      Begin VB.ListBox RemoteFiles 
         Height          =   2400
         Left            =   120
         TabIndex        =   26
         Top             =   2400
         Width           =   3315
      End
      Begin VB.ListBox RemoteDirectories 
         Height          =   1500
         Left            =   120
         TabIndex        =   25
         Top             =   720
         Width           =   2235
      End
      Begin VB.CommandButton ToLocal 
         Caption         =   "开始下载"
         Enabled         =   0   'False
         Height          =   400
         Left            =   2460
         MouseIcon       =   "FTP.frx":06E6
         MousePointer    =   99  'Custom
         TabIndex        =   20
         Top             =   1800
         Width           =   975
      End
      Begin VB.CommandButton RemoteDEL 
         Caption         =   "删除文件"
         Enabled         =   0   'False
         Height          =   315
         Left            =   2460
         TabIndex        =   11
         Top             =   1080
         Width           =   975
      End
      Begin VB.CommandButton RemoteMD 
         Caption         =   "新建目录"
         Enabled         =   0   'False
         Height          =   315
         Left            =   2460
         TabIndex        =   9
         Top             =   360
         Width           =   975
      End
      Begin VB.CommandButton RemoteRD 
         Caption         =   "目录删除"
         Enabled         =   0   'False
         Height          =   315
         Left            =   2460
         TabIndex        =   8
         Top             =   720
         Width           =   975
      End
      Begin VB.Label RWJN 
         Caption         =   "服务器目录列表："
         Height          =   255
         Left            =   120
         TabIndex        =   28
         Top             =   360
         Width           =   2175
      End
   End
   Begin VB.Frame Local 
      Caption         =   "本机文件夹"
      Height          =   4935
      Left            =   120
      TabIndex        =   4
      Top             =   1920
      Width           =   4155
      Begin VB.DriveListBox DriveXz 
         Height          =   300
         Left            =   120
         TabIndex        =   24
         Top             =   360
         Width           =   2775
      End
      Begin VB.DirListBox LocalDirectories 
         Height          =   1560
         Left            =   120
         TabIndex        =   23
         Top             =   720
         Width           =   2775
      End
      Begin VB.FileListBox LocalFiles 
         Height          =   2430
         Left            =   120
         MultiSelect     =   2  'Extended
         TabIndex        =   22
         Top             =   2400
         Width           =   3975
      End
      Begin VB.CommandButton ToRemote 
         Caption         =   "开始上传"
         Enabled         =   0   'False
         Height          =   400
         Left            =   3060
         MouseIcon       =   "FTP.frx":0838
         MousePointer    =   99  'Custom
         TabIndex        =   21
         Top             =   1800
         Width           =   975
      End
      Begin VB.CommandButton LocalDEL 
         Caption         =   "删除文件"
         Height          =   315
         Left            =   3060
         TabIndex        =   10
         Top             =   1080
         Width           =   975
      End
      Begin VB.CommandButton LocalMD 
         Caption         =   "新建目录"
         Height          =   315
         Left            =   3060
         TabIndex        =   7
         Top             =   360
         Width           =   975
      End
      Begin VB.CommandButton LocalRD 
         Caption         =   "目录删除"
         Height          =   315
         Left            =   3060
         TabIndex        =   6
         Top             =   720
         Width           =   975
      End
   End