?? ftp.frm
字號(hào):
Begin VB.Label LocalPWD
BorderStyle = 1 'Fixed Single
Height = 255
Left = 120
TabIndex = 29
Top = 7680
Width = 2715
End
Begin VB.Label RemotePWD
BorderStyle = 1 'Fixed Single
Height = 255
Left = 3120
TabIndex = 27
Top = 7680
Width = 2715
End
Begin VB.Label XsWz
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "狀態(tài)"
ForeColor = &H00FF0000&
Height = 180
Left = 120
TabIndex = 19
Top = 6960
Width = 360
End
End
Attribute VB_Name = "Main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim XsZ As String
Dim CancelFlag As Boolean
Sub RefreshAll()
RefreshLocal
RefreshRemote
End Sub
Sub RefreshLocal()
LocalDirectories.Refresh
LocalFiles.Refresh
LocalPWD.Caption = LocalDirectories.Path
End Sub
Sub RefreshRemote()
RemotePWD.Caption = FTP.RemoteDirectory
RemoteDirectories.Clear
RemoteFiles.Clear
FTP.GetDirectory ("*.*")
End Sub
Private Sub DriveXz_Change()
LocalDirectories.Path = DriveXz.Drive
End Sub
Private Sub Exit_Click()
Unload Me
End Sub
Private Sub Form_Load()
FTP.Binary = True
DriveXz.Drive = "D:\"
LocalDirectories.Path = "D:\交換文件"
Host.AddItem "www.bacocis.com"
Host.AddItem "www.changhong.com"
Host.AddItem "www.ex-tre.com"
UserName.AddItem "mqkng"
UserName.AddItem "baco"
UserName.AddItem "audio"
XsZ = "系統(tǒng)準(zhǔn)備就緒，孟慶康于2004年12月24日開發(fā)設(shè)計(jì) 013608129686"
End Sub
Private Sub FTP_NextDirectoryEntry(ByVal FileName As String, ByVal Attributes As Long, ByVal Length As Double)
If (Attributes And 16) = 16 Or Attributes = 0 Then
RemoteDirectories.AddItem FileName
Else
RemoteFiles.AddItem FileName
End If
End Sub
Private Sub FTP_TransferProgress(ByVal BytesTransferred As Long, ByVal TotalBytes As Long)
XsZ = BytesTransferred & "/" & TotalBytes
If CancelFlag = True Then FTP.CancelTransfer = True
DoEvents
End Sub
Private Sub GyCommand_Click()
XsZ = "孟慶康于2004年12月24日開發(fā)設(shè)計(jì) 013608129686 版權(quán)所有 1996-2004"
End Sub
Private Sub LocalDEL_Click()
If LocalFiles.ListIndex = -1 Then Exit Sub
On Error Resume Next
Kill LocalFiles.FileName
If Err <> 0 Then
XsZ = "本機(jī)文件保護(hù)，不能刪除！"
Else
RefreshLocal
XsZ = "本機(jī)文件刪除成功！"
End If
End Sub
Private Sub LocalDirectories_DblClick()
If LocalDirectories.ListIndex = -1 Then Exit Sub
ChDir LocalDirectories.Path
RefreshLocal
End Sub
Private Sub LocalDirectories_Change()
LocalFiles.Path = LocalDirectories.Path
LocalPWD.Caption = LocalDirectories.Path
End Sub
Private Sub LocalFiles_DblClick()
ToRemote.Value = True
End Sub
Private Sub LocalMD_Click()
Dim NewDirectory As String
NewDirectory = InputBox$("請(qǐng)輸入本機(jī)文件夾名稱！")
If NewDirectory = "" Then Exit Sub
On Error Resume Next
MkDir NewDirectory
If Err <> 0 Then
XsZ = "本機(jī)不允許建立或修改文件夾！"
Else
RefreshLocal
XsZ = "本機(jī)新建文件夾成功！"
End If
End Sub
Private Sub LocalRD_Click()
If LocalDirectories.ListIndex = -1 Then Exit Sub
On Error Resume Next
RmDir LocalDirectories.Path
If Err <> 0 Then
XsZ = "本機(jī)不允許刪除這個(gè)文件！"
Else
RefreshLocal
XsZ = "本機(jī)刪除文件成功！"
End If
End Sub
Private Sub RemoteDEL_Click()
If RemoteFiles.ListIndex = -1 Then Exit Sub
On Error Resume Next
FTP.DeleteFile RemoteFiles.Text
If Err <> 0 Then
XsZ = "服務(wù)器文件保護(hù)，不能刪除！"
Else
RefreshRemote
XsZ = "服務(wù)器文件刪除成功！"
End If
End Sub
Private Sub RemoteDirectories_DblClick()
On Error Resume Next
FTP.RemoteDirectory = RemoteDirectories.Text
If Err <> 0 Then
XsZ = "文件保護(hù)，不能更改！"
Else
RefreshRemote
End If
End Sub
Private Sub RemoteFiles_DblClick()
ToLocal.Value = True
End Sub
Private Sub RemoteMD_Click()
Dim NewDirectory As String
NewDirectory = InputBox$("請(qǐng)輸入服務(wù)器新建文件夾名稱！")
If NewDirectory = "" Then Exit Sub
On Error Resume Next
FTP.MkDir NewDirectory
If Err <> 0 Then
XsZ = "服務(wù)器不允許建立或修改文件夾！"
Else
RefreshRemote
XsZ = "服務(wù)器新建文件夾成功！"
End If
End Sub
Private Sub RemoteRD_Click()
If RemoteDirectories.ListIndex = -1 Then Exit Sub
On Error Resume Next
FTP.RmDir RemoteDirectories.Text
If Err <> 0 Then
XsZ = "服務(wù)器文件夾保護(hù)，不能刪除！"
Else
RefreshRemote
XsZ = "服務(wù)器文件夾目錄刪除成功！"
End If
End Sub
Private Sub ToLocal_Click()
If RemoteFiles.ListIndex = -1 Then Exit Sub
FTP.RemoteFile = RemoteFiles.Text
FTP.LocalFile = RemoteFiles.Text
If FTP.ProfessionalEdition = True Then CancelFlag = False: DoEvents
On Error Resume Next
FTP.GetFile
If Err <> 0 Then
XsZ = "不允許傳送文件系統(tǒng)！"
Else
If CancelFlag = True Then
On Error GoTo 0
FTP.Disconnect
FTP.Connect
FTP.RemoteDirectory = RemotePWD.Caption
CancelFlag = False
End If
RefreshLocal
XsZ = "服務(wù)器文件成功下載到本機(jī)！"
End If
End Sub
Private Sub ToRemote_Click()
DoEvents
If LocalFiles.ListIndex = -1 Then Exit Sub
FTP.LocalFile = LocalFiles.FileName
FTP.RemoteFile = LocalFiles.FileName
If FTP.ProfessionalEdition = True Then CancelFlag = False: DoEvents
On Error Resume Next
FTP.PutFile
If Err <> 0 Then
XsZ = "服務(wù)器不允許傳送文件系統(tǒng)！"
Else
If CancelFlag = True Then
On Error GoTo 0
FTP.Disconnect
FTP.Connect
FTP.RemoteDirectory = RemotePWD.Caption
CancelFlag = False
End If
RefreshRemote
End If
XsZ = "本機(jī)文件成功上傳到服務(wù)器！"
End Sub
Private Sub OK_Click()
XsZ = "正在與服務(wù)器連接中......"
XsWz.Caption = Time & " " & XsZ
FTP.RemoteAddress = Host.Text
FTP.UserName = UserName.Text
FTP.Password = Password.Text
On Error Resume Next
FTP.Connect
If Err <> 0 Then
XsZ = "服務(wù)器不能連接成功，請(qǐng)檢查服務(wù)器之用戶名、密碼等設(shè)置！"
Exit Sub
Else
XsZ = "服務(wù)器連接成功！"
FTP.Binary = True
FTP.UseCache = False
RefreshAll
OK.Enabled = False
ZzCommand.Enabled = True
ToRemote.Enabled = True
RemoteMD.Enabled = True
RemoteRD.Enabled = True
RemoteDEL.Enabled = True
ToLocal.Enabled = True
End If
End Sub
Private Sub UserName_Click()
Password.Text = ""
Password.SetFocus
End Sub
Private Sub XsZt_Timer()
XsWz.Caption = Now & " " & XsZ
End Sub
Private Sub ZzCommand_Click()
CancelFlag = True
ZzCommand.Enabled = False
ToRemote.Enabled = False
RemoteMD.Enabled = False
RemoteRD.Enabled = False
RemoteDEL.Enabled = False
ToLocal.Enabled = False
OK.Enabled = True
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -