ftp怎么把文件放进去(怎么传文件到FTP里面)

下载个ftp工具，点击连接输入服务器ip，用户名和密码连接成功后点开文件要放置的文件夹位置，然后点传输文件选择要上传的文件就行了。
一般你可以下载一个ftp工具然后输入服务器的地址和用户名密码就可以进行上传了。
下载FTP工具，然后输入服务器IP地址，FTP用户名和密码可以登陆上传。

如果ftp服务器设置为匿名用户没有上传权限的话，你是没有权限上传文件的，如果你是ftp的管理员，你可以设置允许用户写入的权限，也就是用户可以将文件上传到服务器上，然后在ie中输入，ftp地址，将要上传的文件直接拖进去就可以了。
首先你需要FTP服务器的用户名和密码。然后通过IE浏览器或其他浏览器，输入FTP的IP地址或域名，输入账号和密码后，将你要上传的文件复制到服务器的目录下就可以了。 也可以通过专业的上传下载软件，实现快速和方便的上传下载。
可以用工具，方法很简单，安装下载了，一看就明白！也可以打开你要上传文件的目录，然后拖拽文件到其窗口就行了！
通过ftp客户端就可以上传了。不过ftp远没有爱米云共享网盘好用。爱米云就像装个QQ一样，一键安装就能用了。公司普通员工，看看就都用了，内网、外网还都能用
你可以直接在资源管理器中的地址栏中输入 ftp://用户名:密码@服务器:端口这种形式打开FTP，打开后就和操作本地文件一样了。如果是匿名用户的话，就不要输入用户名和密码就行了，格式：ftp://服务器:端口; 当然也可以采用专用的FTP工具，如：flashfxp。

ftp是文件传输协议，利用此协议可以在网络上传输文件。 把文件上传到服务器，一般都是使用ftp的方法，因为往往服务器都会提供ftp功能。具体操作需要安装一个方便操作的ftp客户端，例如TotalCommander就很好，在客户端里面建议一个会话，输入服务器的地址、用户名、密码，然后就可以连接服务器，连接成功后可以看见服务器上的文件，可以和本地的进行双向传输（可以上传和下载）。 如果只上传个别文件，可以使用浏览器或者DOS进行传输，浏览器的方法是打开地址：ftp://用户名:密码@服务器地址/，DOS命令是ftp 服务器地址，然后输入用户名和密码。
用软件上传，如，CuteFTP Pro，也可以用电脑直接上传，
独怜幽草涧边生,上有黄鹂深树鸣.

不知道你的winsock 是udp还是tcpip协议这里给你一个我写的实例 我是用的udp 这个发送了一段数据不一定接收就正确 所以我做了校验'以下是发送文件的Option ExplicitDim GetFileNum As Integer, LenFile As Long, SendByte() As Byte '发送的包Private Sub Command1_Click()On Error Resume NextCommand1.Enabled = FalseGetFileNum = FreeFile '取得未使用的文件号LenFile = FileLen(Text1.Text) '获得需传送的文件的长度If Text2.Text = "" Or Right(Left(Text2.Text, 2), 1) <> ":" Then Text2.Text = Text1.TextWinsock0.SendData "#SEND STA#" & LenFile & "//" & Text2.TextWt 0.5Open Text1.Text For Binary As #GetFileNum '打开需传送的文件Call TCPSendFile(Winsock0, GetFileNum, SplitFile) '传送文件Me.Caption = NowTi.Enabled = TrueEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim A As StringOn Error Resume NextCommand2.Top = -2000Winsock0.RemoteHost = IPX '服务器ipWinsock0.RemotePort = FilePortEnd SubPrivate Function SplitFile() As Long '拆包'为了清晰,下面分别用两个子过程来完成计算这次还可以传多少个字节的数据和传送数据On Error Resume NextDim GetCount As LongIf LenFile >= 4000 Then '计算出这次可发送的字节数GetCount = 4000LenFile = LenFile - GetCountElseGetCount = LenFileLenFile = LenFile - GetCountEnd IfSplitFile = GetCountEnd FunctionPrivate Sub TCPSendFile(objWinSock As Winsock, FileNumber As Integer, SendLen As Long)On Error Resume NextDim FileByte() As Byte, I As Long, j As Long, Temp As String * 4ReDim SendByte(0)ReDim FileByte(SendLen - 1)Temp = SendLen + 7SendByte = Temp '把长度负值给包头Get #FileNumber, , FileByte '读取文件ReDim Preserve SendByte(SendLen + 7) '把包头+到文件头For I = 0 To UBound(FileByte)SendByte(I + 7) = FileByte(I)'DoEventsNextWinsock0.SendData SendByteEnd SubPrivate Sub Form_Unload(Cancel As Integer)On Error Resume NextWinsock0.CloseErr.ClearEnd SubPrivate Sub TEnd_Timer()On Error Resume NextWinsock0.SendData "#END#"Err.ClearEnd SubPrivate Sub Ti_Timer()On Error Resume NextWinsock0.SendData "#ERR#"End SubPrivate Sub Winsock0_DataArrival(ByVal bytesTotal As Long)On Error Resume NextDim S As StringWinsock0.GetData SSelect Case SCase "ok" '成功继续发送If LenFile = 0 Then '发送完成If S <> "#SEND END#" Then Winsock0.SendData "#SEND END#"Me.Caption = "文件上传成功!"Command1.Enabled = TrueTi.Enabled = FalseTEnd.Enabled = TrueExit SubElseMe.Caption = "文件上传完成:[" & Left((FileLen(Text1.Text) - LenFile) / FileLen(Text1.Text) * 100, 4) & "%]"End IfCall TCPSendFile(Winsock0, GetFileNum, SplitFile)Case "#END#"TEnd.Enabled = FalseFMain.TiF.Enabled = TrueCase "no" '不成功重发上一个包Winsock0.SendData SendByteEnd SelectEnd Sub'以下是接收文件的Option ExplicitDim FOK As Boolean, Fs As Long, FileNumber As Integer, LenFile As Long  '文件的长度Private Sub Command1_Click()Unload MeEnd SubPrivate Sub Command2_Click()On Error Resume NextDim A As StringMe.Caption = "开始下载"If Dir(Text2.Text) <> "" And ChV.Value = 0 ThenIf MsgBox("文件已经存在,覆盖吗?", vbCritical + vbYesNo) = vbYes Then Kill Text2.Text Else Exit SubElseKill Text2.TextEnd IfIf Text2.Text = "" Then Text2.Text = Text1.Text'Command2.Enabled = FalseIf Ch.Value = 0 Then A = "#DOW#" Else A = "#DOV#"FMain.Wsk.SendData A & Text1.TextWt 1FMain.Wsk.SendData "#DOE#" & Text2.TextEnd SubPrivate Sub Form_Load()Dim A As String'FMain.Ts.Enabled = TrueOn Error Resume NextIf FMain.Cb.Text = "本地组" Or FMain.Cb.Text = "全部组" ThenMe.Caption = "请重选下载用户[“组”不能正确下载]"ElseCommand1.Top = -2000Winsock0.LocalPort = FilePortWinsock0.BindEnd IfEnd SubPrivate Sub Form_Unload(Cancel As Integer)On Error Resume NextWinsock0.CloseErr.ClearEnd SubPrivate Sub La_Click()CDL.FileName = ""CDL.ShowOpenText2.Text = CDL.FileNameEnd SubPrivate Sub Winsock0_DataArrival(ByVal bytesTotal As Long)On Error Resume NextDim FileByte() As Byte, A As String, MendByte() As Byte, I As Long, J As Long, Temp As String, W As StringWinsock0.GetData FileByte, vbArray + vbByte '接收类型为:字节数组J = UBound(FileByte) '获得包长For I = 0 To 7 Step 2 '合并包头Temp = Temp & Chr(FileByte(I))NextFor I = 0 To 9 '文件发送结束标记A = A & Chr(FileByte(I))NextIf A = "#ERR#" Then Winsock0.SendData "no"If A = "#END#" ThenFor I = 0 To Len(FMain.TIn.Text)If I < 100 ThenW = Left(Right(FMain.TIn.Text, I), 1)If W = "!" ThenW = Left(Right(FMain.TIn.Text, I + 4), 5)Exit ForEnd IfElseExit ForEnd IfNext IIf W <> "下载完成!" ThenFOK = FalseMe.Caption = "下载完成![" & Text2.Text & "]"FMain.TIn.Text = FMain.TIn.Text & "[" & Now & "]" & "下载完成!(" & Fs & "<=" & LenFile & ")" & vbCrLfCommand2.Enabled = TrueEnd IfElseIf Val(Temp) = J Then '比较长度看丢包没有ReDim MendByte(J - 8)For I = 0 To J - 8 '提出包头MendByte(I) = FileByte(I + 7)NextFs = Fs + UBound(FileByte) - 7Put #FileNumber, , MendByte '写文件Winsock0.SendData "ok" '发送继续发送的请求Me.Caption = "文件下载完成:[" & Left(Fs / LenFile * 100, 4) & "%]"ElseIf Left(A, 10) = "#SEND STA#" ThenA = ""For I = 10 To UBound(FileByte) '文件发送结束标记A = A & Chr(FileByte(I))NextLenFile = Val(Left(A, InStr(A, "//") - 1))For I = 0 To Len(Text2.Text)A = Left(Right(Text2.Text, I), 1)If A = "" Then Exit ForNextIf Dir(Left(Text2.Text, Len(Text2.Text) - I + 1), vbDirectory) = "" Then MkDir Left(Text2.Text, Len(Text2.Text) - I + 1)'"#SEND STA#" & FileLen(Text1.Text) & "//" & Text2.TextFileNumber = FreeFile '取得未使用的文件号Fs = 0Open Text2.Text For Binary As #FileNumber '打开文件ElseIf A <> "#SEND END#" ThenWinsock0.SendData "no" '出现丢包，请求重发ElseWinsock0.SendData "#END#" '发送继续发送的请求Close #FileNumberResetIf FOK = False ThenFOK = TrueMe.Caption = "下载完成![" & Text2.Text & "]"FMain.TIn.Text = FMain.TIn.Text & "[" & Now & "]" & "下载完成!(" & Fs & "<=" & LenFile & ")" & vbCrLfCommand2.Enabled = TrueElseFOK = FalseEnd IfEnd IfEnd IfEnd IfEnd IfEnd Sub

用ftp命令登录服务器，使用cd命令将指定目录改变当前目录，上传文件就存放指定目录了。