how can I FTP files within my app that I have just created ?

[locutus]

Hi
My application creates 5 files , now after they are created I want to FTP them to an other machine which does not have a shared drive on the network so I can't filecopy them.
Sooooooo how can I ftp the files from within the app ? I want to create the files and as soon as they are made FTP them to the other machine , I know the account and password of the machine they are going to.

Any help or ideas would be great

Many thanks
locutus

[Gaffer]

Yup, use the Inet control. Play around with it, and if you have any more problems, bump the post again...

I think there is a tutorial on VBSquare under Internet....

[chenko]

You can also use the Winsock, a bit messy thou.

Have a search on VBforums, there are ways of doing it with out controls, using a standard windows DLL.

[Gaffer]

mmm, yeah, I seem to rememebr an API that had the facility to grab files via FTP, but not Put files. I find that although Inet is chunky, it was good for providing status messages during FTP actions....

[chenko]

iNET seamed good, but It never worked for me!?!? and neither did all these 3rd party FTP componets for some reason

I hate FTP

[chenko]

...BTW, I recall it being able to upload.

[Gaffer]

Originally posted by chenko
I hate FTP

Only coz you can't use those 3rd party components properly

Locutus, one thing to look out for if you are FTPing large files is determining when the transfer has occurred. When a file hits a UNIX environment, for example, you'll see an image of the file as soon as the FTP process has started. This doesn't mean the whole file has transferred...

[shragel]

I use this code to upload files that i wrote

Open App.Path & "\" & UsrNme & ".txt" For Output As #3
    Print #3, Now; App.EXEName; App.Revision
    Close #3
    upld = FtpPutFile(hConnection, App.Path & "\" & UsrNme & ".txt", UsrNme & ".txt", 0, FTP_TRANSFER_TYPE_UNKNOWN)
 
    If upld = 0 Then
        Txt_Info.Text = Txt_Info.Text & vbNewLine & "Error Uploading, Will Continue Live Update - Restarting Program."
        DoEvents
    Else
        Txt_Info.Text = Txt_Info.Text & vbNewLine & "Finished Uploading. Restarting Program."
        DoEvents
    End If

If you need the complete usage of the FTPPutFile API please post