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
⑵ ftp 怎样上传
FTP上传是通过ftp协议把文件从本地电脑和远程服务器传输的过程，包括上传和下载的过程。
文件类型很多了，任何文件都可以上传下载。
你可以在服务器端部署ftp服务端程序，给对方开一个新的ftp账号，把ip和账号信息告诉对方，他就可以用来上传文件了。
和别人共用服务器时采用这种方法，可以把对方的权限限制在某个文件夹里面，他只能在这里上传下载文件，对于服务器安全、权限都有保障。
⑶ 如何使用ftp上传文件
可直接在浏览器地址栏输入ftp://跟FTP服务器IP
，打开以后直接把文件复制进去就OK一般用FTP上传文件用FlashFXP软件上传，打开后左边窗口显示本地文件，上传是点击站点，站点管理器，新建站点，给站点取名字，然后把你要上传的FTP服务器，密码填入右边相应位置，连接上以后会回到软件主窗口，先在在右边窗口显示的就是你所要上传的FTP站点的服务器，把你要上传的文件拖过去就OK乐。
⑷ FTP怎么上传文件
方法1：
双击我的电脑，在地址栏里输入你的ftp地址回车（比如： ftp://220.103.86.96），然后会弹出一个输入登录账号和密码的对话框，输入你的ftp账号和密码回车便进入ftp目录，把你想要上传的文件或文件夹直接往里拖就行了。
方法2：去下载一个ftp上传软件进行上传。
⑸ FTP 服务器怎么上传文件
1、你先在网上下载一个FTP工具，如果没有 请下载附件；
2、打开FTP工具，点击右上边的快速连接:
2、点击后会出现快速连接界面，再填入相应的FTP地址（可以是服务器的IP地址或域名）与登录名与密码，点击连接即可
3、先选择要上传的文件或文件夹所在的位置，在左边显示后直接将要上传的文件或文件夹拖到右边（可同时多选择）
⑹ 使用因特网的FTP功能，可以实现文件的上传和下载
能。
ftp的主要功能是连接到FTP服务器并操纵数据和数据的上传下载以及备份，还有就是可以访问物理远程服务器。
用户将文件从FTP服务器中拷贝并传输到终端机的过程就是下载（download）。上传和下载过程是所能用到的再常见不过的操作过程。由于FTP服务器承担有文件存储和传播的重任，所以其与用户的连接也有着三重限制。FTP服务器在使用前必须要先登录获取远程连接后，用户才能接触到所需文件。
(6)ftp实现文件上传扩展阅读：
注意事项：
避免出现零字节文件。在上传时，不要随意中途停止操作，最好不要中途下线。
上传文件要附上说明的文本文件，说明文件名应与文件名称相同，如文件名称为note.zip，说明文件名就应为note.txt，以方便别人了解你的文件内容，来进行取舍。
因为FTP站是多用户系统，因此对于同一个目录或文件，不同的用户拥有不同的权限。如果不能上传或下载某些文件，或者抓下来的文件是零字节，一般是因为用户的权限不够。
⑺ 如何通过FTP上传文件
1、你必须知道ftp服务器的域名orip地址2、知道用户名和密码3、在ie地址栏中输入 地址(域名)@用户名:密码也好像是ftp://用户名:密码@ip地址(域名)---我记不清了,你都试试。4、如果登录成功,就能看到ftp服务的文件目录,和本地目录差不多5,将你本地的文件直接拖到远端目录即可。还有专门的软件:cutftp可以上传或下载。
⑻ FTP 服务器怎么上传文件
ftp服务器上传文件，用到的工具：8uftp，步骤如下：
打开8uftp。
注意事项：压缩文件以加快上传速度，上传的时候选择二进制防止丢包。
⑼ ftp命令怎么上传文件夹
1、输入命令行:-->FTP10.1.61.212如果对方没有开启FTP服务，那么这个命令就不会有效果。
2、-->用户名称：这个主要是FTP服务器配置的用户名和密码
-->用户密码：
3、主要是使用二进制来传输文件，-->bin
-->quotetpyec1381这个意思是指定服务器端的代码页，如果传输的是IFS流文件，不用做转换，直接用BINARY的模式传输文件。不会出现编码错误。
4、-->lcdD:Documentdataupload这个命令主要是进去本地文件夹目录用来上传文件的本地路径目录。
5、进入主机的目录，也就是FTP服务器的路径cdCBSDOTHDTA
-->put"D:/Document/data/upload/UPFW90.FRZN160919"，使用put命令上传文件。
6、put"D:/Document/data/upload/UPFW90.FRZN160919"命令执行成功之后，会在后面出来三个交易码主要是200、150、226这都是成功的交易码。完成效果图。