📄 fmvbftpjr.frm
字号:
Top = 510
Width = 345
_ExtentX = 609
_ExtentY = 582
ButtonWidth = 609
ButtonHeight = 582
Style = 1
ImageList = "ImageList3"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 1
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Up"
Object.ToolTipText = "向上一级"
ImageKey = "Up"
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Height = 330
Left = 5190
TabIndex = 5
Top = 510
Width = 345
_ExtentX = 609
_ExtentY = 582
ButtonWidth = 609
ButtonHeight = 582
Style = 1
ImageList = "ImageList3"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 1
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Up"
Object.ToolTipText = "向上一级"
ImageKey = "Up"
EndProperty
EndProperty
End
Begin VB.TextBox txtPathLocal
BackColor = &H00FF0000&
ForeColor = &H00FFFFFF&
Height = 270
Left = 30
Locked = -1 'True
TabIndex = 7
Text = "Text1"
Top = 900
Width = 5505
End
Begin MSComctlLib.Toolbar Toolbar3
Align = 1 'Align Top
Height = 360
Left = 0
TabIndex = 6
Top = 0
Width = 11280
_ExtentX = 19897
_ExtentY = 635
ButtonWidth = 609
ButtonHeight = 582
Appearance = 1
Style = 1
ImageList = "ImageList2"
DisabledImageList= "ImageList2"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 10
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Connect"
Object.ToolTipText = "连接"
ImageKey = "Connect"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "DisConnect"
Object.ToolTipText = "断开"
ImageKey = "DisConnect"
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Up"
Object.ToolTipText = "上传"
ImageKey = "Up"
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Down"
Object.ToolTipText = "下载"
ImageKey = "Down"
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "List"
Object.ToolTipText = "列表"
ImageKey = "List"
Style = 2
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Dtls"
Object.ToolTipText = "详细资料"
ImageKey = "Dtls"
Style = 2
Value = 1
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Grid"
Object.ToolTipText = "显示网格"
ImageKey = "Grid"
Style = 1
Value = 1
EndProperty
EndProperty
Begin VB.CheckBox chkPassive
Caption = "Passive FTP syntax"
Height = 255
Left = 4560
TabIndex = 20
Top = 60
Visible = 0 'False
Width = 2175
End
Begin VB.OptionButton optAscii
Caption = "Ascii"
Height = 195
Left = 7830
TabIndex = 19
Top = 90
Visible = 0 'False
Width = 975
End
Begin VB.OptionButton optBin
Caption = "Binary"
Height = 195
Left = 6750
TabIndex = 18
Top = 90
Visible = 0 'False
Width = 975
End
End
Begin VB.DriveListBox Drive1
Height = 300
Left = 30
TabIndex = 1
Top = 525
Width = 5115
End
Begin VB.FileListBox File1
Height = 630
Left = 930
MultiSelect = 2 'Extended
TabIndex = 2
Top = 6900
Visible = 0 'False
Width = 765
End
Begin VB.DirListBox Dir1
Height = 720
Left = 120
TabIndex = 3
Top = 6900
Visible = 0 'False
Width = 765
End
Begin VB.DirListBox Dir2
Height = 720
Left = 1890
TabIndex = 11
Top = 6900
Visible = 0 'False
Width = 765
End
Begin VB.FileListBox File2
Height = 630
Left = 2820
TabIndex = 12
Top = 6900
Visible = 0 'False
Width = 765
End
Begin VB.TextBox txtProxy
Height = 315
Left = 5490
TabIndex = 0
Top = 6000
Visible = 0 'False
Width = 1215
End
Begin VB.Label Label1
Caption = "TIS Compatible Proxy (No CERN):"
Height = 180
Left = 4800
TabIndex = 4
Top = 5760
Visible = 0 'False
Width = 2790
End
Begin VB.Menu mnuResourceManage
Caption = "资源管理"
Visible = 0 'False
Begin VB.Menu mnuResource
Caption = "资源..."
Shortcut = ^E
End
Begin VB.Menu mnuFtp
Caption = "FTP..."
Shortcut = ^R
End
Begin VB.Menu mnuForum
Caption = "论坛..."
Shortcut = ^F
End
Begin VB.Menu mnuSep8
Caption = "-"
End
Begin VB.Menu mnuTelphone
Caption = "电话资源"
Shortcut = {F3}
End
Begin VB.Menu mnuSep9
Caption = "-"
End
Begin VB.Menu mnuExit
Caption = "退出"
Shortcut = ^Q
End
End
Begin VB.Menu mnuPopupLocal
Caption = "本地管理"
Enabled = 0 'False
Visible = 0 'False
Begin VB.Menu mnuNews
Caption = "新建文件夹"
End
Begin VB.Menu mnuSep6
Caption = "-"
End
Begin VB.Menu mnuRenames
Caption = "重命名 F2"
End
Begin VB.Menu mnuDeletes
Caption = "删除 Del"
End
Begin VB.Menu mnuMoveDir
Caption = "移动到..."
End
Begin VB.Menu mnuSep2
Caption = "-"
End
Begin VB.Menu mnuResreshs
Caption = "刷新 F5"
End
Begin VB.Menu mnuSep3
Caption = "-"
End
Begin VB.Menu mnuProperty
Caption = "属性"
End
End
Begin VB.Menu mnuPopupSrv
Caption = "服务器管理"
Enabled = 0 'False
Visible = 0 'False
Begin VB.Menu mnuNew
Caption = "新建文件夹"
End
Begin VB.Menu mnuSep5
Caption = "-"
Visible = 0 'False
End
Begin VB.Menu mnuCuts
Caption = "剪切"
Visible = 0 'False
End
Begin VB.Menu mnuPaste
Caption = "粘贴"
Visible = 0 'False
End
Begin VB.Menu mnuSep4
Caption = "-"
End
Begin VB.Menu mnuDelete
Caption = "删除 Del"
End
Begin VB.Menu mnuRename
Caption = "重命名 F2"
End
Begin VB.Menu mnuSep1
Caption = "-"
End
Begin VB.Menu mnuRefresh
Caption = "刷新 F5"
End
Begin VB.Menu mnuSep7
Caption = "-"
End
Begin VB.Menu mnuComment
Caption = "属性"
End
End
Begin VB.Menu mnuWindow
Caption = "窗口"
Visible = 0 'False
WindowList = -1 'True
Begin VB.Menu mnuH
Caption = "水平平铺"
End
Begin VB.Menu mnuV
Caption = "垂直平铺"
End
Begin VB.Menu mnuC
Caption = "层叠排列"
End
End
Begin VB.Menu mnuSystem
Caption = "系统管理"
Visible = 0 'False
Begin VB.Menu mnuResSet
Caption = "资源设置..."
Shortcut = ^T
End
Begin VB.Menu mnuUserManage
Caption = "用户管理..."
Shortcut = ^U
End
Begin VB.Menu mnuCode
Caption = "代码维护..."
Shortcut = ^D
End
Begin VB.Menu mnuSep10
Caption = "-"
End
Begin VB.Menu mnuAbout
Caption = "关于..."
End
End
End
Attribute VB_Name = "frmFtp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'┏━━━━━━━━━━━━━━━━━━━━━━━┓
'┃ 模块名称:FTP主窗口 ┃
'┣━━━━━━━━━━━━━━━━━━━━━━━┫
'┃ 大连奥远电子有限公司 ┃
'┣━━━━━━━━━━━━━━━━━━━━━━━┫
'┃ 作者：崔占民 ┃
'┣━━━━━━━━━━━━━━━━━━━━━━━┫
'┃ 2002.10.14 ┃
'┗━━━━━━━━━━━━━━━━━━━━━━━┛
Dim ls_Path As String, ls_PathOld As String, ls_PathSrv As String, ls_PathSrvOld As String
Dim bActiveSession As Boolean
Dim hOpen As Long, hConnection As Long, dwType As Long
Dim fPath As String, shinfo As SHFILEINFO, DOSExeIconLoaded As Boolean
Dim EnumItemNameBag As New Collection
Dim EnumItemAttributeBag As New Collection
Dim EnumItemSize As New Collection
Dim EnumItemDate As New Collection
Dim EnumUpFile(1 To 2) As New Collection
'递归遍历服务器路径，删除目录里面的所有文件，包括子目录
Public Sub ShowFloderSrvDelete(strDirectory As String)
On Error Resume Next
Dim hFind As Long, i As Long
Dim nLastError As Long
Dim dError As Long
Dim ptr As Long
Dim pData As WIN32_FIND_DATA
Dim bRet As Boolean
Dim strItemName As String
Dim EnumFilePath As New Collection
Dim szFileRemote As String, szFileLocal As String
pData.cFileName = String(MAX_PATH, 0)
hFind = FtpFindFirstFile(hConnection, strDirectory & "\*.*", pData, 0, 0)
nLastError = Err.LastDllError
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -