Ciao raga
riferendomi la post di LucaMs ho creato un area ftp su altervista dove potete fare delle prove ftp per chi non avesse un proprio spazio web
dati per collegarsi con filezilla
host: testb4a.altervista.org
Username: testb4a
Password: nepfubamre31
porta 21
Magari createvi le cartelle utilizzando il nikname del forum per evitare di cancelalre dati di altri
ciaoo
Mamo
Anzi, visto che una prova è stata sufficiente, scrivo in un nuovo post, così ti avvisa
Ha funzionato tutto.
Mi ha creato una cartella ("LucaMsDir")
caricato un file (FileToSend.txt)
ed elencato il file.
Il punto è che io ho usato "/LucaMsDir" per creare la cartella, il che significa che l'ho creata nella Home (radice) che non so quale sia nel tuo caso e se questo possa essere stato un problema nelle prove che hai potuto vedere nel mio thread.
Ciao,
avrei bisogno di un esempio su come postare un file via ftp..
Visto che non riesco perchè mi da questo errore:
"org.apache.commons.net.ftp.FTPConnectionClosedException: Connection closed without indication."
sub invia_file
dim Ftp1 as ftp
FTP1.Initialize("FTP", "indirizzo ftp", 21, "utente", "password")
FTP1.UploadFile(percorso origine, "nome file", True, "percorso destinazione e nome file")
end sub
Sub FTP_UploadCompleted (ServerPath As String, Success As Boolean)
If Success = False Then Log("errore") else log("OK)
sub invia_file
dim Ftp1 as ftp
FTP1.Initialize("FTP", "indirizzo ftp", 21, "utente", "password")
FTP1.UploadFile(percorso origine, "nome file", True, "percorso destinazione e nome file")
end sub
Sub FTP_UploadCompleted (ServerPath As String, Success As Boolean)
If Success = False Then Log("errore") else log("OK)
Appena provato e testato
Sub invia_file
'librerie net versione 1.37
Dim ftp1 As FTP
ftp1.Initialize("FTPTest", "testb4a.altervista.org", 21, "testb4a", "nepfubamre31")
ftp1.UploadFile(File.DirAssets , "test.docx", True, "test.docx")
End Sub
Sub FTPTest_UploadCompleted (ServerPath As String, Success As Boolean)
If Success = False Then Log("errore upload ") Else Log("upload OK")
End Sub
Appena provato e testato
Sub invia_file
'librerie net versione 1.37
Dim ftp1 As FTP
ftp1.Initialize("FTPTest", "testb4a.altervista.org", 21, "testb4a", "nepfubamre31")
ftp1.UploadFile(File.DirAssets , "test.docx", True, "test.docx")
End Sub
Sub FTPTest_UploadCompleted (ServerPath As String, Success As Boolean)
If Success = False Then Log("errore upload ") Else Log("upload OK")
End Sub