trovato su vbitalia.it utilizzando FTP

'prima di tutto inserire il controllo
'MSINET nel form. Per controllare se si dispone
'di tale controllo verificare la presenza del file
'MSINET.ocx nella directory System32 di Windows
Dim Inet1 As New InetCtlsObjects.Inet

'inserire un command, un textbox txtURL,
'un textbox txtURL un textbox txtServer e un textbox
'txtDestinazione dove indicare dove mettere il file scaricato nell'
'hard disk
Private Sub Command1_Click()
URLfile = txtURL.Text
strServer = txtServer.Text
strDestinazione = txtDestinazione.Text
Inet1.Execute URLfile, "GET " & strServer & " " & strDestinazione
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)



'controlla lo stato del trasferimento
Select Case State
Case icError
'i casi possono essere tanti:
'1) il file esiste già nell'HD
If Inet1.ResponseCode = 80 Then
MsgBox "Il file esiste già"
Else
'altrimenti c'è un errore generico
MsgBox Inet1.ResponseInfo, , "Errore nel trasferimento"
End If
'caso successo del trasferimento
Case icResponseCompleted
MsgBox "Trasferimento completato a " & strDestinazione, , _ strDestinazione
End Select
End Sub