① 怎么把文件上传到ftp服务器 WIN7系统如何上传文件到FTP服务器中
1、先打开“计算机”，在最上方输入栏中输入登陆FTP服务器命令（ftp://ip地址），然后按回车。 2、弹出“登陆界面”后输入登答录账户和密码，点击“登录”。 3、账号密码核对成功，就会进入FTP服务器回上目录列表，如果该账号权限足答够大就可以上传文件到FTP服务器中了。
② 如何将本地文件传到ftp服务器上
一般你可以下载一个ftp工具然后输入服务器的地址和用户名密码就可以进行上传了。
③ 怎么用FTP传输文件
这个问题说大有点大了，我说的简单一点希望你满意1.下载一个FTP软件，例如cuteFTP,地址是:http://www.onlinedown.net/soft/7249.htm这是一个老牌的FTP软件2.安装完毕后，打开，在地址栏中输入你要传输文件的FTP地址，例如是ftp://www.sina.com.cn(我只是举例)有端口的填好端口,例如ftp://www.sina.com.cn:80或者在软件中填好然后会提示你填写帐号密码(如果无帐号密码就不填)服务器正常的话就正常登陆了登陆后界面跟你看电脑硬盘是一样的了(打比方你打开D盘是什么样子，这个软件里也会这样，很简单)之后你复制粘贴文件什么的都可以做了(删除文件等操作,如果服务器给你的帐号没设置这个功能就不能用)基本就这么简单..我的回答对你有帮助吗
④ 如何用ftp传输文件
首先必须要保证来对方的自服务器必须配置了 FTP 服务供大家进行资源共享（无论是 WINDOWS 服务器也好、还是各种版本的 Linux系统服务器也好），且进行了相关登录帐号的设置（匿名登录名称为：anonymous）、以及文件、子目录的读写权限的设置。然后在别的机器上若需要进行 FTP 传输文件，可以在本机上面安装一个 FTP 客户端程序（通常是 CutpFtp、wsftp_pro等），然后在 FTP 客户端软件中输入 FTP 服务器的 IP 地址，再输入 FTP 服务器需要你提供的用户名及密码，然后就可以进行文件的传输了（当然了，至于说 FTP服务器是否允许用户上传文件、以及允许用户将文件上传到哪一个子目录中，这些都是由 FTP 系统管理员进行设置的）。
⑤ 怎么通过ftp传送文本文件
不知道你的winsock是udp还是tcpip协议
这里给你一个我写的实例我是用的udp这个发送了一段数据不一定接收就正确所以我做了校验
'以下是接收文件的
OptionExplicit
DimFOKAsBoolean,FsAsLong,FileNumberAsInteger,LenFileAsLong '文件的长度
PrivateSubCommand1_Click()
UnloadMe
EndSub
PrivateSubCommand2_Click()
OnErrorResumeNext
DimAAsString
Me.Caption="开始下载"
IfDir(Text2.Text)<>""AndChV.Value=0Then
IfMsgBox("文件已经存在,覆盖吗?",vbCritical+vbYesNo)=vbYesThenKillText2.TextElseExitSub
Else
KillText2.Text
EndIf
IfText2.Text=""ThenText2.Text=Text1.Text
'Command2.Enabled=False
IfCh.Value=0ThenA="#DOW#"ElseA="#DOV#"
FMain.Wsk.SendDataA&Text1.Text
Wt1
FMain.Wsk.SendData"#DOE#"&Text2.Text
EndSub
PrivateSubForm_Load()
DimAAsString
'FMain.Ts.Enabled=True
OnErrorResumeNext
IfFMain.Cb.Text="本地组"OrFMain.Cb.Text="全部组"Then
Me.Caption="请重选下载用户[“组”不能正确下载]"
Else
Command1.Top=-2000
Winsock0.LocalPort=FilePort
Winsock0.Bind
EndIf
EndSub
PrivateSubForm_Unload(CancelAsInteger)
OnErrorResumeNext
Winsock0.Close
Err.Clear
EndSub
PrivateSubLa_Click()
CDL.FileName=""
CDL.ShowOpen
Text2.Text=CDL.FileName
EndSub
PrivateSubWinsock0_DataArrival(ByValbytesTotalAsLong)
OnErrorResumeNext
DimFileByte()AsByte,AAsString,MendByte()AsByte,IAsLong,JAsLong,TempAsString,WAsString
Winsock0.GetDataFileByte,vbArray+vbByte'接收类型为:字节数组
J=UBound(FileByte)'获得包长
ForI=0To7Step2'合并包头
Temp=Temp&Chr(FileByte(I))
Next
ForI=0To9'文件发送结束标记
A=A&Chr(FileByte(I))
Next
IfA="#ERR#"ThenWinsock0.SendData"no"
IfA="#END#"Then
ForI=0ToLen(FMain.TIn.Text)
IfI<100Then
W=Left(Right(FMain.TIn.Text,I),1)
IfW="!"Then
W=Left(Right(FMain.TIn.Text,I+4),5)
ExitFor
EndIf
Else
ExitFor
EndIf
NextI
IfW<>"下载完成!"Then
FOK=False
Me.Caption="下载完成!["&Text2.Text&"]"
FMain.TIn.Text=FMain.TIn.Text&"["&Now&"]"&"下载完成!("&Fs&"<="&LenFile&")"&vbCrLf
Command2.Enabled=True
EndIf
Else
IfVal(Temp)=JThen'比较长度看丢包没有
ReDimMendByte(J-8)
ForI=0ToJ-8'提出包头
MendByte(I)=FileByte(I+7)
Next
Fs=Fs+UBound(FileByte)-7
Put#FileNumber,,MendByte'写文件
Winsock0.SendData"ok"'发送继续发送的请求
Me.Caption="文件下载完成:["&Left(Fs/LenFile*100,4)&"%]"
Else
IfLeft(A,10)="#SENDSTA#"Then
A=""
ForI=10ToUBound(FileByte)'文件发送结束标记
A=A&Chr(FileByte(I))
Next
LenFile=Val(Left(A,InStr(A,"//")-1))
ForI=0ToLen(Text2.Text)
A=Left(Right(Text2.Text,I),1)
IfA=""ThenExitFor
Next
IfDir(Left(Text2.Text,Len(Text2.Text)-I+1),vbDirectory)=""ThenMkDirLeft(Text2.Text,Len(Text2.Text)-I+1)
'"#SENDSTA#"&FileLen(Text1.Text)&"//"&Text2.Text
FileNumber=FreeFile'取得未使用的文件号
Fs=0
OpenText2.TextForBinaryAs#FileNumber'打开文件
Else
IfA<>"#SENDEND#"Then
Winsock0.SendData"no"'出现丢包，请求重发
Else
Winsock0.SendData"#END#"'发送继续发送的请求
Close#FileNumber
Reset
IfFOK=FalseThen
FOK=True
Me.Caption="下载完成!["&Text2.Text&"]"
FMain.TIn.Text=FMain.TIn.Text&"["&Now&"]"&"下载完成!("&Fs&"<="&LenFile&")"&vbCrLf
Command2.Enabled=True
Else
FOK=False
EndIf
EndIf
EndIf
EndIf
EndIf
EndSub
