|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Internet)
|
|
 |
Título da Dica: Transferência de arquivos via FTP
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
'Crie o controle no seu forms e um botão de
'comando com o seguinte:
'*****************************
Dim strURL As String
Dim bData() As Byte
Dim intFile As Integer
strURL = "ftp://aaaaa:zzzzzz@ftp.mercur.com.br" & _
"/home/user/mercur/usuario.txt"
intFile = FreeFile()
bData() = Inet1.OpenURL(strURL, icByteArray)
Open "C:\usuario.txt" For Binary Access Write As #intFile
Put #intFile, , bData()
Close #intFile
'*****************************
'Além disso, crie no inet1:
'(Esse procedimento faz com que o arquivo
'seja copiado integralmente.)
'*****************************
Private Sub Inet1_StateChanged(ByVal State As Integer)
On Error GoTo fim_anormal2
Select Case State
Case icError, icDisconnected
MsgBox "Erro na comunicação --> " & Err.Description
GoTo Fim_a
Case icResponseReceived ' 12
Dim vtData As Variant ' Data variable.
Dim strData As String: strData = ""
Dim bDone As Boolean: bDone = False
vtData = Inet1.GetChunk(1024, icString)
Do While Not bDone
strData = Data & vtData
vtData = Inet1.GetChunk(1024, icString)
If Len(vtData) = 0 Then
bDone = True
End If
Me.Text1 = Me.Text1 + 1
If Me.Text1 > 100 Then
Me.Text1 = 1
End If
ProgressBar1.Value = Me.Text1
Dim TempoDePausa, Início, Fim, TempoTotal
TempoDePausa = 1 ' Define a duração.
Início = Timer ' Define a hora inicial.
Do While Timer < Início + TempoDePausa
DoEvents ' Submete-se a outros processos.
Loop
Fim = Timer ' Define a hora final.
TempoTotal = Fim - Início ' Calcula o tempo total.
Loop
End Select
GoTo Fim_a
fim_anormal2:
Dim a
a = MsgBox("Erro de copia! " & Err.Description, vbCritical, "Erro")
Fim_a:
End sub
|
|
|
|
|
