steven991 (Normal User)
Newbie
Messaggi: 20
Iscritto: 08/11/2009
|
Sul sito http://msdn.microsoft.com/it-it/library/w3kksch7.aspx ho trovato un comando interessante per scaricare e uppare i file senza bisogno di ocx esterne.
Quello per uppare è:
Codice sorgente - presumibilmente Plain Text |
My.Computer.Network.UploadFile( _
"C:\My Documents\Order.txt", _
"http://www.cohowinery.com/upload.aspx")
|
Ma...dove inserisco l'id la pass e l'indirizzo del server ftp???
Quello per l'id e la pass credo siano questi:
Codice sorgente - presumibilmente Plain Text |
My.Computer.Network.UploadFile( _
"C:\My Documents\Order.txt", _
"http://www.cohowinery.com/upload.aspx", "id", "pass")
|
ma non c'è l'indirizzo del server ftp. |
|
Gianluca87 (Ex-Member)
Expert
Messaggi: 300
Iscritto: 16/11/2008
|
|
|
steven991 (Normal User)
Newbie
Messaggi: 20
Iscritto: 08/11/2009
|
Si nel tuo link parla di C# ...
|
|
Gianluca87 (Ex-Member)
Expert
Messaggi: 300
Iscritto: 16/11/2008
|
e quindi? sempre .net è...
|
|
Gianluca87 (Ex-Member)
Expert
Messaggi: 300
Iscritto: 16/11/2008
|
Codice sorgente - presumibilmente VB.NET |
Imports System Imports System.IO Imports System.Net Imports System.Text Namespace Examples.System.Net Public Class WebRequestGetExample Public Shared Sub Main() ' Get the object used to communicate with the server. Dim request As FtpWebRequest = DirectCast(WebRequest.Create("ftp://www.contoso.com/test.htm"), FtpWebRequest) request.Method = WebRequestMethods.Ftp.UploadFile ' This example assumes the FTP site uses anonymous logon. request.Credentials = New NetworkCredential("anonymous", "janeDoe@contoso.com") ' Copy the contents of the file to the request stream. Dim sourceStream As New StreamReader("testfile.txt") Dim fileContents As Byte() = Encoding.UTF8.GetBytes(sourceStream.ReadToEnd()) sourceStream.Close() request.ContentLength = fileContents.Length Dim requestStream As Stream = request.GetRequestStream() requestStream.Write(fileContents, 0, fileContents.Length) requestStream.Close() Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse) Console.WriteLine("Upload File Complete, status {0}", response.StatusDescription) response.Close() End Sub End Class End Namespace
|
eccotelo convertito...
|
|
steven991 (Normal User)
Newbie
Messaggi: 20
Iscritto: 08/11/2009
|
errore mio mi sono spiegato male, mi serviva per Visual Basic 2008, quello convertito non credo sia per VB
|
|
Gianluca87 (Ex-Member)
Expert
Messaggi: 300
Iscritto: 16/11/2008
|
mmm non so l'ho convertito con il converter di telerik cos'ha di strano?
|
|
steven991 (Normal User)
Newbie
Messaggi: 20
Iscritto: 08/11/2009
|
Imports e Namespace me li da come errore sintassi
|
|
Gianluca87 (Ex-Member)
Expert
Messaggi: 300
Iscritto: 16/11/2008
|
perforza... se fai copia e incolla...
|
|