-
Why does the folowing code not connect. (heeh besides the fake ip address, of course I put a real IP in there) but it will not connect to any ftp site. I was trying on mine, any other ftp client will. It won't even conect the varialbe is never populatd. any ideas
Private Sub Command1_Click()
Dim tstr As Variant
tstr = Inet1.OpenURL("ftp://9.9.9.9")
Text1.Text = tstr
End Sub
-
Ok here's something that you may have missed, set the protocol to icFtp or you can just add the code in the function and make it look like this for example:
Private Sub Form_Load()
Dim tstr As Variant
Inet1.Protocol = icFTP
tstr = Inet1.OpenURL("ftp://ftp.cdrom.com")
Text1.Text = tstr
End Sub
and that should work, try it, I did it and it worked and gave me the message on how many users are on the server out of how many and blah blah blah...
HOpe that helps...
-
Thanks that was the problem. All of the ftp sites I connected to have been an anonymous connection. How can I include a username and password.
Thanks again
-
Within the inet1 control you can specify username and password...
forexample:
Inet1.UserName = "Blah"
Inet1.Password = "BlahPass"
I hope that helps...