ENVIANDO ARQUIVO VIA FTP X PROGRESSBAR

HUBER.FABIO 07/08/2009 11:11:51
#319189
Caros amigos,

Desenvolvi uma rotina para enviar uma arquivo(s) via FTP, alguém sabe se existe a possibilidade de colocar um progressbar enquanto está subindo o arquivo(s), considerando o tempo inicial e final corretamente da transmissão.
X16X 07/08/2009 13:36:58
#319213
De uma olhada se é essa a ideia.

  
Dim Time As String

Private Sub Command1_Click()

[ô] 1Mb = 1024Kb

[ô] 6MB = 6144 KB

[ô] A ideia é que voce pegue o tamanho do arquivo na hora da transacao com o FTP

[ô] é apenas uma ideia, nao é nada creio que funcional =D

Timer1.Enabled = True
[ô] Considerando que 1KB chegue a voce com 1 Segundo
Timer1.Interval = 1

Progress.Value = 0
Progress.Min = 0
Progress.Max = 6144 [ô]KB

Time = Progress.Max

End Sub

Private Sub Timer1_Timer()
Time = Time - 1
label1.Caption = Time
Progress.Value = Progress.Value + 1
End Sub


FLW's.
HUBER.FABIO 07/08/2009 14:33:03
#319224
Certo não ! preciso de algo funcional
X16X 07/08/2009 15:10:06
#319227
lol , que prontinho mesmo velhow.. nao quer pensa nem um pouco ?

Dae é complicado heim.

SUGIRO QUE PROCURE O GOOGLE.

[Ô] Respondendo a pergunta se é possivel criar um progressbar junto para calcular o tempo de transferencia de um arquivo FTP, sim é possivel [Ô]

BOA SORTE !!!!!!!!!!!!!!
Tópico encerrado , respostas não são mais permitidas
Voltar