📄 ftp.frm
字号:
VERSION 4.00
Begin VB.Form Main
BorderStyle = 3 'Fixed Dialog
Caption = "Easy FTP OLE Control Demo"
ClientHeight = 4920
ClientLeft = 2250
ClientTop = 1650
ClientWidth = 6990
Height = 5325
Icon = "FTP.frx":0000
Left = 2190
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4920
ScaleWidth = 6990
ShowInTaskbar = 0 'False
Top = 1305
Width = 7110
Begin VB.CommandButton Exit
Caption = "E&xit"
Height = 375
Left = 5880
TabIndex = 21
Top = 4500
Width = 1035
End
Begin VB.CommandButton About
Caption = "&About"
Height = 375
Left = 60
TabIndex = 20
Top = 4500
Width = 1035
End
Begin VB.OptionButton ASCIIMode
Caption = "ASCII"
Height = 195
Left = 3540
TabIndex = 19
Top = 4560
Width = 855
End
Begin VB.OptionButton BinaryMode
Caption = "Binary"
Height = 195
Left = 2520
TabIndex = 18
Top = 4560
Value = -1 'True
Width = 855
End
Begin VB.CommandButton ToRemote
Caption = "-->"
Height = 375
Left = 3240
TabIndex = 3
Top = 1980
Width = 495
End
Begin VB.CommandButton ToLocal
Caption = "<--"
Height = 375
Left = 3240
TabIndex = 2
Top = 1320
Width = 495
End
Begin VB.Frame Remote
Caption = "Remote System"
Height = 4335
Left = 3840
TabIndex = 1
Top = 60
Width = 3075
Begin VB.CommandButton RemoteDEL
Caption = "DEL"
Height = 315
Left = 2460
TabIndex = 17
Top = 1800
Width = 495
End
Begin VB.CommandButton RemoteMD
Caption = "MD"
Height = 315
Left = 2460
TabIndex = 15
Top = 1380
Width = 495
End
Begin VB.CommandButton RemoteRD
Caption = "RD"
Height = 315
Left = 2460
TabIndex = 14
Top = 1020
Width = 495
End
Begin VB.CommandButton RemoteCD
Caption = "CD"
Height = 315
Left = 2460
TabIndex = 13
Top = 660
Width = 495
End
Begin VB.ListBox RemoteFiles
Height = 2400
Left = 180
TabIndex = 12
Top = 1800
Width = 2235
End
Begin VB.ListBox RemoteDirectories
Height = 1035
Left = 180
TabIndex = 11
Top = 660
Width = 2235
End
Begin VB.Label RemotePWD
BorderStyle = 1 'Fixed Single
Height = 255
Left = 180
TabIndex = 5
Top = 300
Width = 2715
End
End
Begin VB.Frame Local
Caption = "Local System"
Height = 4335
Left = 60
TabIndex = 0
Top = 60
Width = 3075
Begin VB.CommandButton LocalDEL
Caption = "DEL"
Height = 315
Left = 2460
TabIndex = 16
Top = 1800
Width = 495
End
Begin VB.CommandButton LocalMD
Caption = "MD"
Height = 315
Left = 2460
TabIndex = 10
Top = 1380
Width = 495
End
Begin VB.CommandButton LocalRD
Caption = "RD"
Height = 315
Left = 2460
TabIndex = 9
Top = 1020
Width = 495
End
Begin VB.CommandButton LocalCD
Caption = "CD"
Height = 315
Left = 2460
TabIndex = 8
Top = 660
Width = 495
End
Begin VB.ListBox LocalFiles
Height = 2400
Left = 180
TabIndex = 7
Top = 1800
Width = 2235
End
Begin VB.ListBox LocalDirectories
Height = 1035
Left = 180
TabIndex = 6
Top = 660
Width = 2235
End
Begin VB.Label LocalPWD
BorderStyle = 1 'Fixed Single
Height = 255
Left = 180
TabIndex = 4
Top = 300
Width = 2715
End
End
Begin ComctlLib.ProgressBar ProgressBar
Height = 195
Left = 1380
TabIndex = 22
Top = 4560
Visible = 0 'False
Width = 4395
_Version = 65536
_ExtentX = 7752
_ExtentY = 344
_StockProps = 192
Appearance = 1
End
Begin EZFTPLib.EZFTP FTP
Left = 3300
Top = 2520
_Version = 65536
_ExtentX = 800
_ExtentY = 800
_StockProps = 0
LocalFile = ""
RemoteFile = ""
RemoteAddres = ""
UserName = ""
Password = ""
Binary = -1 'True
UseCache = -1 'True
End
End
Attribute VB_Name = "Main"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Dim FirstTime As Boolean
Dim CancelFlag As Boolean
Sub RefreshAll()
RefreshLocal
RefreshRemote
End Sub
Sub RefreshLocal()
Screen.MousePointer = vbHourglass
'Local Directories and Files
Dim NextLocal As String
Dim FullSpec As String
LocalPWD.Caption = CurDir()
LocalDirectories.Clear
LocalFiles.Clear
' LocalDirectories.Sorted = False
' LocalFiles.Sorted = False
If Len(CurDir()) = 3 Then
FullSpec = CurDir() & "*.*"
Else
FullSpec = CurDir() & "\*.*"
End If
NextLocal = Dir(FullSpec, vbDirectory + vbNormal)
Do While NextLocal <> ""
If Len(CurDir()) = 3 Then
FullSpec = CurDir() & NextLocal
Else
FullSpec = CurDir() & "\" & NextLocal
End If
On Error Resume Next
If (GetAttr(FullSpec) And vbDirectory) = vbDirectory Then
LocalDirectories.AddItem NextLocal
Else
LocalFiles.AddItem NextLocal
End If
NextLocal = Dir
Loop
' LocalDirectories.Sorted = True
' LocalFiles.Sorted = True
Screen.MousePointer = vbDefault
End Sub
Sub RefreshRemote()
Screen.MousePointer = vbHourglass
'Remote Directories and Files (done in the FTP NextDirectoryEntry event)
RemotePWD.Caption = FTP.RemoteDirectory
RemoteDirectories.Clear
RemoteFiles.Clear
FTP.GetDirectory ("*.*")
Screen.MousePointer = vbDefault
End Sub
Private Sub About_Click()
If About.Caption = "&About" Then
AboutBox.Show vbModal
Else
CancelFlag = True
End If
End Sub
Private Sub ASCIIMode_Click()
If ASCIIMode.Value = True Then
FTP.Binary = False
End If
End Sub
Private Sub BinaryMode_Click()
If BinaryMode.Value = True Then
FTP.Binary = True
End If
End Sub
Private Sub Exit_Click()
Unload Me
End Sub
Private Sub Form_Activate()
If FirstTime = False Then
FirstTime = True
DoEvents ' give the form a chance to paint
RefreshAll
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -