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
Printable View
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
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
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