TELNET环境下，向FTP服务器上传（发送）文件的命令是什么

Question

在TELNET环境下，向FTP服务器上传（发送）文件的命令是什么？（命令的格式和内容）

Answer 1

在TELNET环境下，向FTP服务器上传（发送）文件？
不能吧？

Answer 2

我自己写了一个ftp上传文件的程序，没有用控件，发觉很难做，请问有使用控件的例程吗？时间很急，如果分数不够可以再加`

Answer 3

inet控件可以实现上传文件功能.
在"部件"中添加  microsoft Internet Transfer Control 6.0

Answer 4

我搜索了一下以前的帖子，找到这个，但是运行还是有问题，好象是少了一个在INTT控件下触发发送事件的一段代码：
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _
    (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, _
    ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" _
    (ByVal hInternetSession As Long, ByVal sServerName As String, _
    ByVal nServerPort As Integer, ByVal sUsername As String, _
    ByVal sPassword As String, ByVal lService As Long, _
    ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" _
    (ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _
    ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, _
    ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, _
    ByVal dwContext As Long) As Boolean
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Private Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" _
    (ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _
    ByVal lpszRemoteFile As String, ByVal dwFlags As Long, _
    ByVal dwContext As Long) As Boolean
Private Declare Function FtpDeleteFile Lib "wininet.dll" Alias "FtpDeleteFileA" _
    (ByVal hFtpSession As Long, ByVal lpszFileName As String) As Boolean
Private Declare Function FtpRenameFile Lib "wininet.dll" Alias "FtpRenameFileA" _
    (ByVal hFtpSession As Long, ByVal lpszExsiting As String, ByVal lpszNew As String) As Boolean
Private Sub Form_Load()
lngINet = InternetOpen(vbNullString, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0&)
lngINetConn = InternetConnect(lngINet, "192.168.0.1", 0, "", "", 1, 0, 0)
If lngINetConn Then
  MsgBox "ok!!!"
Else
  MsgBox "error!!!"
End If
blnRC = FtpPutFile(lngINetConn, "c:\log.jpg", "/xxx/log.jpg", 1, 0)
If blnRC Then
    MsgBox "upload ok!!!"
Else
    MsgBox "upload error!!!"
End If
InternetCloseHandle lngINetConn
InternetCloseHandle lngINet
End Sub

Answer 5

楼上的这个是利用api来做的，不用inet控件的，
另外楼主如果你想要这方面的代码，给我发短信好了，我发给你

Answer 6

其实无论用api来做的，还是用inet控件都无所谓，关键是我现在急着要完成一个上传的程序，谢谢了。

Answer 7

Private Sub 上传_Click()
Inet1.URL = IP.Text          ' "ftp://61.129.102.38/"
Inet1.Protocol = 2
Inet1.UserName = USER.Text   ' "username"
Inet1.Password = ID.Text     ' "password"
'*********************************************************
'Inet1.Execute , "PUT " & "c:11.jpg" & " pathname\22.jpg"
'如果你的ftp服务器是windows 就是下面的
'上面那句有问题
Inet1.Execute , "PUT " & "c:\11.jpg" & " pathname\22.jpg"
'如果是unix则要写成下面的
Inet1.Execute , "PUT " & "c:\11.jpg" & " pathname/22.jpg"
'*********************************************************
Do While Inet1.StillExecuting
    '在.net才这样写在vb6应该写成DoEvents
    'application.DoEvents
    DoEvents
Loop
MsgBox "上传完毕!", vbInformation, "提示"
End Sub
'另外如果你想详细了解ftp情况，应该写上inet的Inet1_StateChanged
'Inet控件的StateChanged事件
'返回与主机连接的状态
End SubPrivate Sub Inet1_StateChanged(ByVal State As Integer)
Dim Tstr As String
Tstr = ""
Select Case State
Case 0:
 Tstr = "无状态可报告IcHostResolvingHost"
Case 1:
 Tstr = " 该控件正在查询所指定的主机的 IP 地址。icHostResolved  "
Case 2:
 Tstr = " 该控件已成功地找到所指定的主机的 IP 地址。icConnecting"
Case 3:
 Tstr = " 该控件正在与主机连接?icConnected"
 Case 4:
 Tstr = " 该控件已与主机连接成功?icRequesting"
Case 5:
 Tstr = " 该控件正在向主机发送请求?icRequestSent"
Case 6:
  Tstr = "该控件发送请求已成功?icReceivingResponse"
Case 7:
  Tstr = "该控件正在接收主机的响应?icResponseReceived"
Case 8:
  Tstr = "该控件已成功地接收到主机的响应?icDisconnecting"
Case 9:
  Tstr = "该控件正在解除与主机的连接?icDisconnected"
Case 10:
 Tstr = "该控件已成功地与主机解除了连接?icError"
Case 11:
  Tstr = "与主机通讯时出现了错误?icResponseCompleted"
Case 12:
  Tstr = "该请求已经完成，并且所有数据均已接收到。"
End Select
End Sub

Answer 8

Inet1.Execute 运行前不需要connect到服务器吗？

Answer 9

在IIS中可以看到程序已经连接上去，但是上传文件就是不成功。

Answer 10

我使用 creazyfish(梳分头的鱼)的代码，ftp服务器那边可以看到连接已经建立，但Tstr好象没变化，而且文件无法传送上去。