如何上传文件到ftp服务器？

Question

我听说internet transfer也可达到功能，有谁用过？

Answer 1

'本模块是为了执行openftp命令
Public Sub openftp(index As Integer)
On Error GoTo error
  
With Frmmain.Inet1
   .URL = ftp
   .username = username
   .password = password
   .Execute , "send " & App.Path & "\temp\" & outfilename & ".txt " & outfilename & ".txt"
End WithExit Suberror:
    
    Select Case Frmmain.Inet1.ResponseCode
           Case 12002
                strlog = "Connect overtime!"
           Case 12014
                strlog = "Keyword is error!(username , password )"
           Case 12029
                strlog = "Cann't connect post computer!"
           Case Else
                strlog = "Unknown error!(send txt)"
    End Select
End Sub

Answer 2

用internet transfer很简单的
可以上传到服务器，也可以下载到本地，用不了100行代码可以解决

Answer 3

MSDN里查 INTERNET TRANSFER，绝对没问题，只是状态比较少，没有字节数，不过上传绝对没问题。
-----------------------------------
上班了~

Answer 4

感谢您使用微软产品。除了Internet Transfer Control外，您也可以利用WinInet APIs以ftp方式上传文件，您可以选择用函数FtpPutFile()的方法，或用函数FtpOpenFile和InternetWriteFile的方法。详细信息和例子请参考：Q195653 SAMPLE: Using FTP WinInet APIs in Visual Basic with SimpleFtp
http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q195653Q175179 SAMPLE: VBFTP.EXE: Implementing FTP Using WinInet API from VB
http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q175179
-      微软全球技术中心 VB技术支持本贴子以“现状”提供且没有任何担保，同时也没有授予任何权利。具体事项可参见使用条款
(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。为了为您创建更好的讨论环境，请参加我们的用户满意度调查
(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。