kiasmo72 (Normal User)
Rookie
Messaggi: 44
Iscritto: 23/09/2007
|
ciao, ho fatto una semplice applicazione per inviare, via ftp, un file dal mio pc al mio spazio web.La connessione funziona ma il file non mi arriva, dov'è l'errore? (il codice è consigliato sul sito microsoft).
Private Sub Command1_Click()
nomeDir = "c:\miofile"
nomeFile = Dir(nomeDir, vbNormal)
While nomeFile <> ""
Inet1.URL = "FTP://ftp.webalice.it"
Inet1.UserName = "miouser"
Inet1.Password = "miapass"
Inet1.Execute Inet1.URL, "PUT " & " " & nomeDir & "\" & _
nomeFile & " " & nomeFile
Do Until Inet1.StillExecuting = False
DoEvents
Loop
nomeFile = Dir
Wend
End Sub
Grazie a tutti per l'aiuto
|
|
gantonio (Normal User)
Guru^2
Messaggi: 1532
Iscritto: 09/09/2007
|
Ma se NomeDir deve contenere la cartella locale in cui si trova il file, perche' ci scrivi
"C:\nomefile"
come se tu pensassi che ci deve stare il nome del file (che invece deve stare in NomeFile)?
|
|
kiasmo72 (Normal User)
Rookie
Messaggi: 44
Iscritto: 23/09/2007
|
Postato originariamente da gantonio:
Ma se NomeDir deve contenere la cartella locale in cui si trova il file, perche' ci scrivi
"C:\nomefile"
come se tu pensassi che ci deve stare il nome del file (che invece deve stare in NomeFile)? |
Grazie intanto della risposta (sempre presente)
Forse è proprio questo l'errore quindi? Ora provo a modificare il codice mettendo la cartella in nomedir.
Grazie nuovamente del consiglio. Scusa gli errori ma sono autodidatta al 100%.. |
|
kiasmo72 (Normal User)
Rookie
Messaggi: 44
Iscritto: 23/09/2007
|
Ciao Gantonio, ho provato a modificare ma mi da nuovamente errore, sicuramente sbaglio di nuovo.
Se non è di troppo disturbo riposto il codice modificato.
Private Sub Command1_Click()
nomeDir = "c:\miacartella"
nomeFile = Dir(nomeDir, vbNormal)
While nomeFile <> ""
Inet1.URL = "FTP://ftp.webalice.it"
Inet1.UserName = "miouser"
Inet1.Password = "miapass"
Inet1.Execute Inet1.URL, "PUT " & " " & nomeDir & "\" & _
nomeFile & " " & nomeFile
Do Until Inet1.StillExecuting = False
DoEvents
Loop
nomeFile = Dir
Wend
End Sub
Non ho capito se devo sostituire "dir" con il nome del file presente nella directory "nomedir".
Grazie 1000
|
|
gantonio (Normal User)
Guru^2
Messaggi: 1532
Iscritto: 09/09/2007
|
Ma tu quali file vuoi inviare?
Tutti quelli contenuti nella cartella ? Alcuni ?
Ultima modifica effettuata da gantonio il 01/10/2007 alle 21:28 |
|
kiasmo72 (Normal User)
Rookie
Messaggi: 44
Iscritto: 23/09/2007
|
Io dovrei inviare tutto il contenuto della cartella..
Grazie
|
|
gantonio (Normal User)
Guru^2
Messaggi: 1532
Iscritto: 09/09/2007
|
E allora devi scrivere
nomeFile = Dir(nomeDir & "\*.*", vbNormal)
|
|
kiasmo72 (Normal User)
Rookie
Messaggi: 44
Iscritto: 23/09/2007
|
Postato originariamente da gantonio:
E allora devi scrivere
nomeFile = Dir(nomeDir & "\*.*", vbNormal)
|
Grazie ancora, funziona perfettamente.Ho capito la sintassi ora.Quindi se io volessi spedire solo qualche file sarebbe:nomeFile = Dir(nomeDir & "\miofile" & "\altromiofile", vbNormal).
Di nuovo 1000 grazie Gantonio Ultima modifica effettuata da kiasmo72 il 01/10/2007 alle 22:15 |
|
kiasmo72 (Normal User)
Rookie
Messaggi: 44
Iscritto: 23/09/2007
|
Gantonio scusa, un'ultima domanda a proposito del codice sopra.Se io volessi che dopo tot minuti di inattività ( quindi pulsante non premuto) tutto il contenuto della cartella partisse in automatico, sarebbe possibile? Il tutto risulterebbe troppo complesso?
Grazie ancora
|
|