ProtectedSub cmdUpload_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles cmdUpload.Click
' al click chiama la funzione e passa i parametri (forse vanno invertiti ma ho provato e non va)
uploadFileUsingFTP("pagina.htm", "ftp:\\ftp.hostingremoto.com\pagina.htm")
lblMsg.Text = "File caricati con successo"
EndSub
 
PublicSub uploadFileUsingFTP(ByVal CompleteFTPPath AsString, ByVal CompleteLocalPath AsString, OptionalByVal UName AsString = "", OptionalByVal PWD AsString = "")
UName = Session("Utente")
Dim nomesito AsString = tbsito.Text
'UName è la cartella personale dell'utente sul mio sito
CompleteLocalPath = "d:\inetpub\webs\miosotoit\utenti\" & UName & "\pagina.htm"
'Questo è l'url in locale
'CompleteLocalPath = "c:\siti\utenti\" & UName & "\pagina.htm"
 
'Ovviamente, hostingremoto.com è il suo sito:
CompleteFTPPath = "ftp://ftp.hostingremoto.com/" & nomesito & "/pagina.htm"

 
Dim reqObj As FtpWebRequest = WebRequest.Create(CompleteFTPPath)
 
reqObj.Method = WebRequestMethods.Ftp.UploadFile
reqObj.Credentials = New NetworkCredential(UName, PWD)
Dim streamObj As FileStream = File.OpenRead(CompleteLocalPath)
Dim buffer(streamObj.Length) AsByte
streamObj.Read(buffer, 0, buffer.Length)
streamObj.Close()
 
streamObj = Nothing

reqObj.GetRequestStream().Write(buffer, 0, buffer.Length)
reqObj = Nothing
End sub