Using FTP through VB 6 2

[VisualBasicHelp]

Can anybody tell me the code Using VB, how can I connect to unix server or any other server and trasfer files using FTP.
e.g from unix server to windows server

Thanks

 

[BobRodes]

thread708-970319 may provide some help.

Bob

 

[VisualBasicHelp]

I have added the wininet.bas as a module. But I don't have any idea about inet1 object, can you please suggest. I am using the FTP for the first time.

Thanks

 

[dglienna]

Its the Microsoft Internet Transfer Control. Add it to your project, and place it on a form. The default name is Inet1

David

 

[VisualBasicHelp]

Thanks a lot. I got the Microsoft Internet Transfer Control.
Now, let me try with the ftp thread which Bob has specified.

 

[VisualBasicHelp]

As I am a starter in FTP,I am trying to understand the code which Bob has posted. In that during Form_Load() , we are calling GetSettings (), I couldn't understand what that function is actually doing.
If you don't mind, can you please explain me the code. So that I can understand it in a better way.

Thanks a lot

 

[VisualBasicHelp]

It would be really great of you, if you could explain me the code
Thanks

 

[johnwm]

GetSettings gets application info from the registry. Highlight in your code and press F1

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first.
'If we're supposed to work in Hex, why have we only got A fingers?'
Drive a Steam Roller

 

[RikHess]

I recently had to do FTP fron VB6 and found the easiest way was to use the "SimpleFTP" example from the MS Knowledge Base.

Calls include:
Function FTP_Open(txtSiteName As String, txtUserName As String, txtUserPwd As String) ' Opens an FTP connection to a site
Function FTP_SetDir(txtSiteDir As String) ' Changes the FTP site to the given directory
Function FTP_Get(txtLocalFileName As String, txtSiteFileName As String) ' Binary get a file from the site
Function FTP_GetA(txtLocalFileName As String, txtSiteFileName As String) ' ASCII get a file from the site
FTP_Del(strFileName as String) ' Deletes the file from the active FTP directory
FTP_Put(txtLocalFileName As String, txtSiteFileName As String) ' Binary upload of a file
FTP_PutA(txtLocalFileName As String, txtSiteFileName As String) ' ASCII upload of a file
FTP_Close() ' Closes an FTP connection
ShowErr(ByRef szFunc As String, ByVal dwError As Long) ' Internal error reporting

Hope this helps.
I had tried the Microsoft Internet Transfer Control but was having trouble finding documentation for its use in my context.

 

[VisualBasicHelp]

Thanks a lot Bob. I was messing up with the code which you have specified, and I can't believe, it worked for me. I could do FTP and connect to unix server and other servers and extract files from it. Thanks a lot Bob.

 

[BobRodes]

<I was messing up with the code which you have specified, and I can't believe, it worked for me.

I get the feeling your first language is German rather than English, so you might want me to clarify an idiom you're using. "Messing up" means failing. I assume you mean you were "messing around" with the code, which means you were experimenting with it. It took me a minute to understand what you were saying: if you're messing up (screwing up, blowing it, etc.) with the code, it isn't working for you.

Anyway, you're very welcome. I should point out here as well that it is not my code. I was a little surprised that it worked for me, too, since I was under a short deadline and we all know how well borrowed code works when we're under short deadlines.

Bob

 

[strongm]

I still find the Inet control works fine. Eg:

[blue]Private Sub Command1_Click()
    Inet1.RemoteHost = "ftp.nai.com"
    Inet1.Execute , "GET usage.txt c:\naitest.txt"

    Do Until Not Inet1.StillExecuting
        DoEvents
    Loop
    If Not Inet1.ResponseCode Then MsgBox Inet1.ResponseCode & ": " & Inet1.ResponseInfo
End Sub[/blue]

 

[BobRodes]

Yeah, it ought to, but I had some problems with it when I opened that whole thread. I still wonder if AOL did something to mess it up.

 

[strongm]

Yep, the Inet code presented in that thread doesn't appear to work reliably. I suspect the StateChanged event - which is why I don't use it in my version

 

[BobRodes]

Thanks for checking, strongm. Next time I run into the need, I'll try it again.