I've tried to run the putfile in XP box, and it working fine.

                ' --------------------
                ' Transfer via standard FTP
                ServerName = strLocation.ToUpper
                FTPLogin = txtUserID.Text
                FTPPassword = txtPassword.Text

                ' Instantiate a new FTP object
                Dim INet, INetConn As Integer
                Dim RC As Boolean
                ' FTP_TRANSFER_TYPE_ASCII
                ' FTP_TRANSFER_TYPE_BINARY
                INet = InternetOpen("CTM_SMS_FTP_Control", 1, vbNullString, vbNullString, 0)
                INetConn = InternetConnect(INet, ServerName, 0, FTPLogin, FTPPassword, 1, 0, 0)
                RC = FtpPutFile(INetConn, strFileName, "\a\upload.txt", 0, 0)

                If RC Then
                    MsgBox("Transfer succesfull!")
                End If
                InternetCloseHandle(INetConn)
                InternetCloseHandle(INet)

                '------------------

Keung

I attempted to use fig000's solution, and have another problem altogether. I can't figure out where the references in the code are called from. I receive the following errors:

Name 'InternetOpen' is not declared
Name 'InternetConnect' is not declared
Name 'FTPGetFile' is not declared
Name 'InternetCloseHandle' is not declared

Do I need to add a reference for these objects to be recognized? I'm rather new to VB, and any assistance would be appreciated.

Did you use the declarations at the top of the code snippet? That should take care of declarations. And I kind of doubt those dlls wouldn't be on your hard drive.

Fig000

Thanks, Fig! I'm rokken like Don Dokken!

My apologies for not reading your original code snippet more closely. I actually did an FTPPutFile, so I'll post that sample for diversity's sake:

        Dim INet, INetConn As Integer
        Dim RC As Boolean
        INet = InternetOpen("blah", 1, vbNullString, vbNullString, 0)
        INetConn = InternetConnect(INet, "remoteIPAddresshere", 0, "myUserId", "myPassword", 1, 0, 0)
        RC = FtpPutFile (INetConn, "C:\LDir1localfile.txt", "/RDir1/RDir2/remotefile.txt", 0, 0)
        If RC Then MessageBox.Show("Transfer successful!")
        InternetCloseHandle(INetConn)
        InternetCloseHandle(INet)

I've successfully ftp within a LAN using the codes here. Thanks a lot.

But now I need to ftp from my LAN to a remote server in another LAN. There are gateways for both LANs. Not sure how to set the proxyName and proxyPassby parameters for the InternetOpen function. I've changed the AccessType to 0, presumably representing access_by_proxy. Also tried to use the ip addresses of the gateways as the proxy. but havn't been successful. Any experiences on that? Thanks.

Hi ppl,

I am Having the same problem as mikeymac,

Name 'InternetOpen' is not declared
Name 'InternetConnect' is not declared
Name 'FTPGetFile' is not declared
Name 'InternetCloseHandle' is not declared

What exactly do i have to do to solve this problem?
I tried to put these code below right under the iherits... Where exactly do i have to put the code..

Dim INet, INetConn As Integer
Dim RC As Boolean


Thanks alot.

Dave

I run the code in my XP. It works well.

I am wondering how to download file in the BACKGROUND so I can still use my foreground to do other things. Any suggestion or comments?

Thank in advance,
Rebecca

Hi,

My code works fine too. However, is there a way to make file name NOT case-sensitive? For example, when getting file "FOO.txt" from the server and on the server name is "foo.txt" the program could not find it.

Any ideas?

Thanks

Here ya go people...

http://support.microsoft.com/default...b;en-us;832679

TDOT,

  Thanks for the link. I started this thread over a year ago and it seems like there was no formal description of how to do this. I think the MS version is more compicated than mine but probably has more features.

  This thread has had a long life :-).

Fig