文件传输互发代码.docx

VB6文件传输互发代码
大|中1小酹匕
［2006/03/04 10:56 | 分类：.Net | by NetFetch ］
Visual Basic 文件发送端
,******************** 版权信息 ********************
'*隶属工程:FileTran1
'*模块名称:frmMain
’*模块描述：发送文件
'*成员个数：11
'*代码行数:101
'*声明行数：16
'* 创建时间：2006-02-21 14:22:29（ 创建人：MysticBoy）
'* 修改时间：2006-02-21 14:22:29（ 修改人：MysticBoy）
’*代码说明：该模块负责发送文件。
'* 您需要向窗体内添加一个名为 ws的winsock控件
'*版权说明:版权所有（c） ?-2006 Mysticsoft.
'* 保留所有权
I***********************************************
Dim cState As String '当前状态
Dim cmd As String '传输协议的命令
********************
Dim e As ErrObject ' 错误对象
成员［Command2_Click］说明彳g息********************
代码编辑：2006-02-21 14:49:04
成员类型:对象［Command2］的［Click］事件
*1
HelpCtID: 0
成员描述：
*功能说明：测试发送一个文件。
********************************************************************
Private Sub Command2_Click()
SendFile \"E:影视 &音乐韩国辣妹 4th WhyKiller(boby vox).mpg\", \"\"
‘发送文件'E:影视&音乐韩国辣妹 4th WhyKiller(boby vox).mpg'
MsgBox \"OK\"
********************
End Sub
成员［SendFile］说明彳g息 ********************
*代码编辑:2006-02-21 14:49:04
*成员类型：公有方法
*HelpCtID: 0
*成员描述：发送文件
*输入参数：参数名称说明
FileName 要发送的完整文件名及其路径
RemoteHost 接受文件的主机
RemotePort ［ 此参数可选］接受文件的主机侦听的端口
'*功能说明： < 在此键入说明> ,**************************************************************
Public Function SendFile(FileName As String, RemoteHost As String, Optional RemotePort As Long = 1123)
As Boolean
If <> 0 Then '