[VB5] Download di un file via FTP

[Albertorrr]

Ciao a tutti,
ho un problema con questo programmino ftp un pò preso da una guida, un pò cambiato e semplificato dato che voglio solamente downloadare un file solo.
La connessione funziona, quando clicko sul bottone download(Command2) ,sul desktop in cui ho messo l'eseguibile vedo per un attimo il file index.php e poi scompare.
Come mai?
Un'ultima cosa...a che serve il controllo Timer nel download o upload che sia?
Grazie mille
Ciao
Alby

Option Explicit
Public ID As String


 Private Sub Command1_Click()
     Dim URLACCESSO As String
     Dim txtHost As String
     txtHost = "host"
     Dim txtUserID As String
     txtUserID = "nick"
     Dim txtPassword As String
     txtPassword = "pwd"
     Dim file1
     
     
     On Error GoTo ERRORE
     URLACCESSO = "ftp://" & txtUserID & ":" & txtPassword & "@" & txtHost
     Form1.ID = "DIR"
     Form1.Inet1.Execute URLACCESSO
     MsgBox "Connesso"
     Exit Sub
ERRORE:
     MsgBox "ERRORE: " & Err.Description, vbCritical + vbOKOnly
 End Sub



Private Sub Command2_Click()
    On Error GoTo ERRORE
    Dim file1
    file1 = "index.php"
    
    Inet1.Execute "", "GET " & file1 & " " & file1
  ' Devo mettere:  Timer1.Enabled = True ?????????
    Exit Sub
ERRORE:
    MsgBox "ERRORE: " & Err.Description, vbCritical + vbOKOnly

End Sub


Private Sub Timer1_Timer()

     ID = "DIR"
     Inet1.Execute "", "DIR"
     Timer1.Enabled = False

End Sub

[Albertorrr]

uppetto

[oregon]

Mi sembra che il codice che hai mostrato sia commentato in

http://www.vbsimple.net/index.htm?/cliserv/clser_03.htm

... compresa la funzionalita' del timer ...

[Albertorrr]

Si, però volevo un pò semplificarlo dato che mi serve solamente il download di un determinato file e imparando da 2 giorni sicuramente mi sono perso qualche passaggio, però sto tool mi serve cm il pane .

Secondo te perchè fa cosi?

Grazie oregon

Ciao

Alby

[Napster]

[Visual Basic .NET] (errore mio ma cmq è una spiegazione valida )

allora per uppare un file in una cartella ftp ci sono 3 strade:

La prima un pò + complessa che attraverso le socket usi il protocollo di comunicazione per accedere ad una casella FTP alla porta 21

La seconda un pò + facile. Basta usare la classe del WebClient e cercare Upload File. Riuscirai a gestire l'upload direttamente dalla tua form aggiungendo anche una progress bar facilmente fatta funzionare dalla classe stessa.

La terza è proprio la + facile dove però l'upload è gestito da Windows. ti posto il codice dato che è solo una riga

My.Computer.Network.UploadFile("Percorso del file da uppare", "server", "nome user", "password", True, 500)

spero d essere stato abbastanza chiaro

[oregon]

Veramente si parla di VB5 ...

[Napster]

ke gaff!!!
cmq per vb5 penso vadi sempre bene il primo metodo però si possono utilizzare facilmente le Winsock O WinInet.
Alla fine è facilissimo

[Albertorrr]

Napster il metodo che sto usando fa uso dell'oggetto Inet, però non capisco una cosa:
ho scaricato il progetto per intero e ho creato l'eseguibile, anche con quello mi fa comparire il file scaricato e poi lo fa scomparire, non so proprio che fare, alla fine mi basta scaricare solamente un file e qualsiasi modo va bene, basta che sia fatto(con VB) da programma locale e che funzioni con un .txt (il mio index.php era una prova).

Grazie ancora ragazzi, aspetto ancora vostri consigli.

Ciao

Alby

[Albertorrr]

uppo