MSINET (ftp problem) 1

[ASPVBNerd]

I am just triying to send a file with ftp using msinet The file is never being sent!
If I try doing it with msdos like this put c:\xmlocx\test.xml test.xml then it works.

Private Sub mnuskickaxml_Click()

    On Error GoTo ErrH
    
    With Inet
        .Cancel
        .AccessType = icUseDefault
        .Protocol = icFTP
        .url = "SUPPORT"
        .UserName = "anonymous"
        .Password = "jaghatardig@nerd.com"
        .RemotePort = 21
        .RequestTimeout = 50
        .Execute , "put c:\xmlocx\test.xml", "test.xml"
        WaitForResponse
        .Execute , "QUIT"
        WaitForResponse
    End With
    Exit Sub
ErrH:
    MsgBox "Error " & Err.Number
End Sub

Private Sub WaitForResponse()
    Do While Inet.StillExecuting
        DoEvents
    Loop
End Sub

Private Sub EndApp()
    Inet.Cancel
    End
End Sub

What could be the problem?

 

[hererxnl]

.AccessType = icDirect
.URL = "ftp://xxx.xxx.xxx.xxx"

 

[hererxnl]

...also,

.Execute , "put c:\xmlocx\test.xml", "test.xml"
I think should be:
.Execute , "PUT c:\xmlocx\test.xml /test.xml"

------------
You should search the forum first as these types of questions have been answered a ton of times.

 

[RonRepp]

Check this out:


thread222-1126722

I hope this helps.



Ron Repp

 

[ASPVBNerd]

hererxnl, thanx it works now.