📄 frmtest.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{19B73C7C-C76C-11D2-849E-840A94D4800A}#1.2#0"; "FTP.OCX"
Begin VB.Form frmTest
BorderStyle = 1 'Fixed Single
Caption = "FTP"
ClientHeight = 7290
ClientLeft = 45
ClientTop = 330
ClientWidth = 8580
Icon = "frmTest.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
ScaleHeight = 7290
ScaleWidth = 8580
StartUpPosition = 2 '屏幕中心
Begin MSComctlLib.ProgressBar ProgressBar1
Height = 300
Left = 15
TabIndex = 26
Top = 7005
Visible = 0 'False
Width = 8550
_ExtentX = 15081
_ExtentY = 529
_Version = 393216
Appearance = 1
End
Begin VB.CheckBox chkAlwaysIncludeDirs
Caption = "总是包括 Dirs"
Enabled = 0 'False
Height = 255
Left = 4290
TabIndex = 14
TabStop = 0 'False
ToolTipText = "Stipulates that directories always appear when using the wild card"
Top = 1230
Value = 1 'Checked
Width = 1890
End
Begin VB.CommandButton cmdApplyWildCard
Caption = "&A申请"
Enabled = 0 'False
Height = 315
Left = 3240
TabIndex = 5
Top = 1215
Width = 945
End
Begin VB.TextBox txtWildCard
Height = 315
IMEMode = 3 'DISABLE
Left = 2280
TabIndex = 4
Text = "*.*"
Top = 1200
Width = 930
End
Begin VB.TextBox txtPort
Height = 300
Left = 3840
TabIndex = 1
Text = "21"
Top = 45
Width = 345
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 330
Left = 0
TabIndex = 23
Top = 6960
Width = 8580
_ExtentX = 15134
_ExtentY = 582
Style = 1
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 1
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
End
Begin VB.CheckBox chkUseListStr
Caption = "&U使用List"
Enabled = 0 'False
Height = 255
Left = 6960
TabIndex = 15
TabStop = 0 'False
ToolTipText = "Demonstrates usage of the new ListStr() method that eases use within IE and other Script Environments"
Top = 1230
Width = 1470
End
Begin MSComctlLib.ListView ListView1
Height = 5220
Left = 45
TabIndex = 16
Top = 1710
Width = 4515
_ExtentX = 7964
_ExtentY = 9208
View = 3
Arrange = 1
MultiSelect = -1 'True
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 393217
Icons = "ImageList1"
SmallIcons = "ImageList1"
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
Enabled = 0 'False
NumItems = 3
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "文件名"
Object.Width = 3175
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 1
Text = "尺寸"
Object.Width = 1411
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "时间"
Object.Width = 2822
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 60
Top = 600
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 128
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 2
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmTest.frx":030A
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmTest.frx":041E
Key = ""
EndProperty
EndProperty
End
Begin VB.CommandButton cmdRenameFile
Caption = "&e更改文件名"
Enabled = 0 'False
Height = 495
Left = 7275
TabIndex = 12
Top = 45
Width = 1200
End
Begin VB.CommandButton cmdDeleteFile
Caption = "&l删除文件"
Enabled = 0 'False
Height = 495
Left = 7275
TabIndex = 13
Top = 645
Width = 1200
End
Begin VB.CommandButton cmdPut
Caption = "&P上传"
Enabled = 0 'False
Height = 495
Left = 6465
TabIndex = 11
Top = 645
Width = 705
End
Begin VB.CommandButton cmdGet
Caption = "&G下载"
Enabled = 0 'False
Height = 495
Left = 6465
TabIndex = 10
Top = 45
Width = 705
End
Begin VB.DriveListBox Drive1
Enabled = 0 'False
Height = 315
Left = 4635
TabIndex = 17
Top = 1710
Width = 3825
End
Begin VB.DirListBox Dir1
Enabled = 0 'False
Height = 4815
Left = 4635
TabIndex = 18
Top = 2100
Width = 1695
End
Begin VB.FileListBox File1
Enabled = 0 'False
Height = 4770
Left = 6375
MultiSelect = 2 'Extended
TabIndex = 19
Top = 2100
Width = 2070
End
Begin VB.CommandButton cmdRmDir
Caption = "&R删除目录"
Enabled = 0 'False
Height = 495
Left = 5370
TabIndex = 9
Top = 645
Width = 1020
End
Begin VB.CommandButton cmdMkDir
Caption = "&k创建目录"
Enabled = 0 'False
Height = 495
Left = 5370
TabIndex = 8
Top = 45
Width = 1020
End
Begin VB.TextBox txtServer
Height = 315
Left = 2280
TabIndex = 0
Text = "ftp.microsoft.com"
Top = 30
Width = 1470
End
Begin VB.TextBox txtUser
Height = 315
Left = 2280
TabIndex = 2
Text = "ftp"
Top = 435
Width = 1905
End
Begin VB.TextBox txtPassword
Height = 315
IMEMode = 3 'DISABLE
Left = 2280
PasswordChar = "*"
TabIndex = 3
Text = "ftp"
Top = 840
Width = 1905
End
Begin VB.CommandButton cmdConnect
Caption = "&C拨号连接"
Height = 495
Left = 4275
TabIndex = 6
Top = 45
Width = 1020
End
Begin VB.CommandButton cmdDisconnect
Caption = "&D断开连接"
Enabled = 0 'False
Height = 495
Left = 4275
TabIndex = 7
Top = 645
Width = 1020
End
Begin VB.Label Label5
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "文件通配符："
Height = 180
Left = 1080
TabIndex = 25
Top = 1230
Width = 1080
End
Begin VB.Label Label1
Caption = ":"
Height = 285
Left = 3780
TabIndex = 24
Top = 60
Width = 150
End
Begin DevPowerFTP.FTP FTP1
Left = 90
Top = 45
_ExtentX = 847
_ExtentY = 847
End
Begin VB.Line Line1
BorderColor = &H80000014&
Index = 1
X1 = -60
X2 = 11940
Y1 = 1650
Y2 = 1650
End
Begin VB.Line Line1
BorderColor = &H80000010&
Index = 0
X1 = -60
X2 = 11940
Y1 = 1635
Y2 = 1635
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Caption = "服务器IP地址："
Height = 255
Left = 810
TabIndex = 22
Top = 60
Width = 1335
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
Caption = "用户名："
Height = 255
Left = 1170
TabIndex = 21
Top = 465
Width = 975
End
Begin VB.Label label4
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "登录密码："
Height = 180
Left = 1260
TabIndex = 20
Top = 870
Width = 900
End
End
Attribute VB_Name = "frmTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub doDir()
Dim sNames() As String
Dim bFiles() As Boolean
Dim dtDateTimes() As String
Dim lSizes() As Long
Dim lLoop As Long
Dim lvItem As ListItem
Dim sDirList As String
Dim lNumLines As Long, lNumDetails As Long
Dim sLines() As String, sDetails() As String
If Not FTP1.Connected Then Exit Sub
Screen.MousePointer = vbHourglass
ListView1.ListItems.Clear
StatusBar1.SimpleText = "正在取文件列表..."
If chkUseListStr.Value And vbChecked Then
sDirList = FTP1.ListStr
If Len(sDirList) > 0 Then
lNumLines = Tokenise(sDirList, "|", sLines())
For lLoop = 1 To lNumLines
lNumDetails = Tokenise(sLines(lLoop), ";", sDetails())
If Left$(sDetails(1), 4) = "DIR:" Then
Set lvItem = ListView1.ListItems.Add(, , Mid$(sDetails(1), 5), 1, 1)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -