help ...

damn ... good thing I found this forrum ive been havin lots of probs lately, hopefully i can help some ppl t00 ... anyway ....

dll this so u can try it yourself its a Vb ftp app im gonna use in my visual basic application ..

http://freevbcode.com/code/FTPClient.zip


ok ... the address im trying to connect to is 68.59.83.170 8888 ... well only 1 problem , theres no port form on the program .... so please help me one of two ways , if its simple , please give me the code in VB6 so that i can add a port form (the zip file with the client has the visual basic prj file) ... the other way is tell me how i can use it to connect to a port:8888 ftp .... ive tried "68.59.83.170:8888" "68.59.83.170 8888" ... HELP

[omalleytrading]

Sorry, I can't help you with that.

I can recommend an alternative, however. I use Chilkat FTP for my VB programs. Works like a charm, and you can specify the port.

Good luck!

whcih dll link for vb6

http://www.chilkatsoft.com/downloads.asp

[vass0922]

I believe you want
FREE FTP ActiveX
http://www.chilkatsoft.com/ChilkatFtp.asp

Nice link, bookmarked for future reference if I should need it

call me an idiot i know but http://www.chilkatsoft.com/ChilkatFtp.exe .... when i install it on the start menu only a bunch of linx ...

[vass0922]

Look in the chillkat directory.. the DLL you need for the activex control and some sample vb projects are in there as well

C:\Program Files\Chilkat Software Inc\Chilkat FTP

thanks ... the ftp prj doesnt have a ports form though ..?

[omalleytrading]

Try this:

Dim oFTP as ChilkatFTP
Dim bResult as Boolean
Dim sPath as String
Dim sRemote as String
Dim sLocal as String
        
Set oFTP = New ChilkatFTP

oFTP.HostName = "68.59.83.170"
oFTP.Port = 8888
oFTP.Passive = 1
oFTP.Username = "yourID"
oFTP.Password = "yourPASS"

sPath = "/downloads"
sRemote = "myRemoteFile.txt"
sLocal = "myLocalFile.txt""

bResult = False
       
If oFTP.Connect = 1 Then
  If oFTP.ChangeRemoteDir(sPath) = 1 Then
    If oFTP.GetFile(sRemote, sLocal) = 1 Then
      bResult = True
    End If
  End If

  oFTP.Disconnect
End If

Set oFTP = Nothing