电脑上如何用FTP传输文件

A. 怎么通过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

B. 怎么把文件上传至ftp上

• 双击我的电脑，在地址栏里输入你的ftp地址回车（比如：ftp://220.103.86.96），然后会弹出一个输入登录账号和密码的对话框，输入你的ftp账号和密码回车便进入ftp目录，把你想要上传的文件或文件夹直接往里拖就行了。

• 去下载一个ftp上传软件进行上传。