我的這個 Inet1 為什麼連不上,急死我也!!! HELP ME!

Dim i As Long
Dim ftp As String
Dim file1 As String
ftp = "ftp://192.168.1.215"
file1 = "D:\lakerworkspace\Terraillon\Program\upload\test_chr.asp"
Inet1.URL = ftp
Inet1.RemoteHost = "192.168.1.215"
Inet1.UserName = "lakerliu"
Inet1.Password = "laker"
Inet1.Execute "FTP://192.168.1.215", _
"PUT 06540.doc D:\lakerworkspace\Terraillon\Program\upload\06540.doc"runtime-error "35754"
unable to connect to remote host

解决方案 »

  1.   

    Dim i As Long
    Dim ftp As String
    Dim file1 As String
    ftp = "192.168.1.215"
    file1 = "D:\lakerworkspace\Terraillon\Program\upload\test_chr.asp"
    'Inet1.URL = ftp 這里出錯
    Inet1.RemoteHost = "192.168.1.215"
    Inet1.UserName = "lakerliu"
    Inet1.Password = "laker"
    Inet1.Execute "FTP://192.168.1.215", _
    "PUT 06540.doc D:\lakerworkspace\Terraillon\Program\upload\06540.doc"還是不行!!!
      

  2.   

    我用ie 能 ftp 上,但用程序就是ftp不上,還是那個老錯誤!!!
      

  3.   

    Dim i As Long
    Dim file1 As Stringfile1 = "D:\lakerworkspace\Terraillon\Program\upload\test_chr.asp"
    Inet1.URL = "ftp://192.168.1.215"
    Inet1.UserName = "lakerliu"
    Inet1.Password = "laker"
    Inet1.Execute , "PUT 06540.doc "& file1
    然后在state_change里捕获完成事件即可。
      

  4.   

    to   keking(未来我是盖茨)
    錯誤是這樣的
    State=11(icError)
      

  5.   

    应该是这样的：Inet1.Execute , "send "& file1 & "06540.doc"
    '前提是06540.doc在ftp的根目录，否则还要先cd一下呢
      

  6.   

    到网上下载一个EZFTP控件试试，很好用，不会有上述问题。
      

  7.   

    to   keking(未来我是盖茨):現在對了,謝謝!!!
      

  8.   

    你用的是ftp方式。
    http的试过没有? 我现在还搞不定呢。put不成功阿，郁闷中...
      

  9.   

    你用的是ftp方式。
    http的试过吗？我还没搞定呢，put不成功。郁闷中...
      

  10.   

    Dim i As Long
    Dim file1 As Stringfile1 = "D:\lakerworkspace\Terraillon\Program\upload\test_chr.asp"
    Inet1.URL = "ftp://192.168.1.215"
    Inet1.UserName = "lakerliu"
    Inet1.Password = "laker"
    Inet1.Execute , "send "& file1 & "06540.doc"(原來是這樣Inet1.Execute , "PUT 06540.doc "& file1)我樣沒有分什麼 ftp/http格式吧,是黵認的!
      

  11.   

    inet1.URL = "ftp://ftp.webba.com"  '放在各属性的第一位,而且要加协议
    inet1.Protocol = icFTP             ‘设协议
    inet1.AccessType = icUseDefault
    inet1.UserName = "laker"
    inet1.password = "lakerliu"
    inet1.RequestTimeout = 20
    inet1.RemotePort = 21      ’不要加引号