Salve ragazzi, ho un problema con l'upload di un file via Ftp:
visto l'esigenza ho pensato di fare questo:
Private Sub Command1_Click()
Inet1.Protocol = icFTP
nomeDir = "c:\"
nomeFile = "prova.zip"
Inet1.URL = "FTP://151.xx.xx.xx"
Inet1.UserName = "miaUser"
Inet1.Password = "miaPassword"
Inet1.Execute Inet1.URL, "GET prova.zip " & " " & nomeDir & "\" & nomeFile & " " & nomeFile
Do Until Inet1.StillExecuting = False
DoEvents
Loop
MsgBox "Fine"
End Sub
__________________________
Ma lo scarico non funge.
Sul server è installato il "cerburus ftp server"
ed ho creato una CARTELLA VIRTUALE ==> "File_Scaricati".
Non è che devo aggiungere del codice per indicare all'applicazione
che esiste una cartella virtuale ?? se si come devo fare?
vi posto il log del server FTP ...
grazie in anticipo.
Horus
Log SERVER FTP
Mon Nov 10 00:14:49 2003 0 Incoming connection request on interface 151.xx.xx.xx
Mon Nov 10 00:14:49 2003 0 Connection request accepted from 151.26.21.76
Mon Nov 10 00:14:49 2003 0 USER miaUser
Mon Nov 10 00:14:49 2003 0 PASS ***********
Mon Nov 10 00:14:49 2003 0 TYPE I
Mon Nov 10 00:14:50 2003 0 PORT 151,26,21,76,7,229
Mon Nov 10 00:14:50 2003 0 STOR prova.zip
Mon Nov 10 00:14:59 2003 0 The connection was closed by the remote socket.
Mon Nov 10 00:14:59 2003 0 Connection terminated.
Rispondi quotando
