Progress Bar using Inet fot FTP transfer

[unknown-ghost]

I'm using the inet control that comes with VB6 and i am uploading files to an FTP site, i want to know how i can get enough infomation so i can make a progress bar.

Thanks

[ramdasv]

I tried the same thing while I worked with Inet control around 10 months back.
This featuere is not available with the Inet control at that time.
Instead I used the MabryFTP control which is much flexible and has a lot of useful methods and events.

check out at http://www.mabry.com

Ramdas

[dj4]

Try this example:

Public Sub GetFtpFile()

Inet1.Execute , "GET Text.txt C:\Temp\Text.txt"

FileTransfer

End Sub

Public Sub FileTransfer()

'ProgressBar1.Max = 35000
ProgressBar1.Value = 0.05

Do While Inet1.StillExecuting

If ProgressBar1.Value < ProgressBar1.Max - 1 Then
ProgressBar1.Value = ProgressBar1.Value + 0.05
End If

DoEvents

Loop

ProgressBar1.Value = ProgressBar1.Max

End Sub

- Dj4