Is there a way when using the Internet transfer control that I can monitor how much of the file has been sent because I want to use a progress bar with my program telling me how much of the file has been sent so far??
Printable View
Is there a way when using the Internet transfer control that I can monitor how much of the file has been sent because I want to use a progress bar with my program telling me how much of the file has been sent so far??
I'm using Progressbar this way, this is not the best way.
Public Sub SendFile()
Inet1.Execute , "SEND C:\Temp\Text.txt Text.txt"
FileTransfer
End Sub
Public Sub FileTransfer()
'ProgressBar.Max = 32000
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