oh, mi sono dimenticato pure dell'Import System.IO e System.Text.
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
oh, mi sono dimenticato pure dell'Import System.IO e System.Text.
Il codice dovrebbe stampare il percorso del file, se tu lo scazzi senza sapere quello che fai credo sia plausibile che non vada .Non mi da nessun errore,il codice è giusto, ma non funziona.
il file "file.exe" è un txt.
C: \User\Nome utente\Desktop\file.txt
Dim path As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
Process.Start("notepad.exe", path & "\file.txt")
Dim path As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
Console.WriteLine(path & "\file.exe")
Il codice dovrebbe stampare il percorso del file, se tu lo scazzi senza sapere quello che fai credo sia plausibile che non vada .
Cosa stai cercando di fare? Aprire con il blocco note quel file di testo?
Codice:Dim path As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) Process.Start("notepad.exe", path & "\file.txt")
Non scrivo in vb.net da anni ormai, (spero) funzioni:No,sto cercando di prendere il file.txt che sta sul desktop per esempio e tutto quello che c'è scritto uploadarlo su ftp.
Sub Main()
Dim path As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
UploadToFtp("www.example.org", "credenziale ftp username", "credenziale ftp password", path & "/file.txt")
End Sub
Public Sub UploadToFtp(ByVal uri As String, ByVal username As String, ByVal password As String, ByVal filePath As String)
Dim request = CType(WebRequest.Create("ftp://" & uri), FtpWebRequest)
request.Method = WebRequestMethods.Ftp.UploadFile
request.Credentials = New NetworkCredential(username, password)
Dim sourceStream = New StreamReader(filePath)
Dim fileContents = Encoding.UTF8.GetBytes(sourceStream.ReadToEnd())
sourceStream.Close()
request.ContentLength = fileContents.Length
Dim requestStream = request.GetRequestStream()
requestStream.Write(fileContents, 0, fileContents.Length)
requestStream.Close()
Dim response = CType(request.GetResponse(), FtpWebResponse)
' upload completato
response.Close()
End Sub
Non scrivo in vb.net da anni ormai, (spero) funzioni:
Codice:Sub Main() Dim path As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) UploadToFtp("www.example.org", "credenziale ftp username", "credenziale ftp password", path & "/file.txt") End Sub Public Sub UploadToFtp(ByVal uri As String, ByVal username As String, ByVal password As String, ByVal filePath As String) Dim request = CType(WebRequest.Create("ftp://" & uri), FtpWebRequest) request.Method = WebRequestMethods.Ftp.UploadFile request.Credentials = New NetworkCredential(username, password) Dim sourceStream = New StreamReader(filePath) Dim fileContents = Encoding.UTF8.GetBytes(sourceStream.ReadToEnd()) sourceStream.Close() request.ContentLength = fileContents.Length Dim requestStream = request.GetRequestStream() requestStream.Write(fileContents, 0, fileContents.Length) requestStream.Close() Dim response = CType(request.GetResponse(), FtpWebResponse) ' upload completato response.Close() End Sub
Sicuro di sapere le basi? Leva "Sub Main()", stai già scrivendo il codice nell'evento di Button1_Click(), e ricordati di importare System.Net all'inizio del codice con Import System.Net.Ho mancato qualcosa lo so.
Sicuro di sapere le basi? Leva "Sub Main()", stai già scrivendo il codice nell'evento di Button1_Click(), e ricordati di importare System.Net all'inizio del codice con Import System.Net.
oh, mi sono dimenticato pure dell'Import System.IO e System.Text.
@.Міха™ penso che utilizzare codici già fatti non possa sfamare le tue conoscenze. Dovresti iniziare a provare a fare qualcosa, e poi ne riparliamo. Dai un'occhiata alla classe System.Net.WebClient() e al suo metodo UploadString().
Le idee sono due: usi direttamente il metodo UploadString() e la classe WebClient, oppure ti scrivi uno script in PHP uppato nel server FTP che ti permette di passargli il testo che verrà aggiunto al file di testo (che verrà passato attraverso il metodo GET), poi con una WebRequest fai il tutto.Si, ma tu mostrandomi quel codice, cerco di capire cosa significa e quando dovrà esser utilizzato.
dicendomi di dare un occhiate a quei metodi cercherò qualcosa su google/youtube ma non capirò il funzionamento e quando dovrà esser utilizzato
Sono principiante
Le idee sono due: usi direttamente il metodo UploadString() e la classe WebClient, oppure ti scrivi uno script in PHP uppato nel server FTP che ti permette di passargli il testo che verrà aggiunto al file di testo (che verrà passato attraverso il metodo GET), poi con una WebRequest fai il tutto.
Finchè non scrivi una riga di codice, credo non ti possa aiutare per ovvi motivi.
Dim sw As StreamWriter = File.AppendText("C:\testo.txt")
sw.WriteLine(testo)
sw.Close()
Catch ex As Exception
EndTry
Public Sub AppendTextViaFtp(ByVal uri As String,
ByVal username As String, ByVal password As String,
ByVal data() As Byte)
Dim request As FtpWebRequest = DirectCast(WebRequest.Create("ftp://" & uri), FtpWebRequest)
request.Method = WebRequestMethods.Ftp.AppendFile
request.ContentLength = data.Length
request.Credentials = New NetworkCredential(username, password)
Dim requestStream As Stream = request.GetRequestStream()
requestStream.Write(data, 0, data.Length)
requestStream.Close()
Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse)
response.Close()
End Sub
Dim filePath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "/file.txt"
Dim sourceStream = New StreamReader(filePath)
Dim fileContents = Encoding.UTF8.GetBytes(sourceStream.ReadToEnd())
sourceStream.Close()
AppendTextViaFtp("example.org",
"credenziale 1", "credenziale 2",
fileContents)
adesso che ci ripenso, è preferibile utilizzare qualcosa di meno astratto anzichè WebClient.Codice:Public Sub AppendTextViaFtp(ByVal uri As String, ByVal username As String, ByVal password As String, ByVal data() As Byte) Dim request As FtpWebRequest = DirectCast(WebRequest.Create("ftp://" & uri), FtpWebRequest) request.Method = WebRequestMethods.Ftp.AppendFile request.ContentLength = data.Length request.Credentials = New NetworkCredential(username, password) Dim requestStream As Stream = request.GetRequestStream() requestStream.Write(data, 0, data.Length) requestStream.Close() Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse) response.Close() End Sub
In Button1_Click inserisci questo:
Come sempre, testa - non l'ho provato.Codice:Dim filePath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "/file.txt" Dim sourceStream = New StreamReader(filePath) Dim fileContents = Encoding.UTF8.GetBytes(sourceStream.ReadToEnd()) sourceStream.Close() AppendTextViaFtp("example.org", "credenziale 1", "credenziale 2", fileContents)
Hai ricontrollato le credenziali?Testato ma mi da questo errore non capisco il motivo.
Ci mancava un End Sub solamente
L'ultimo errore può dipendere dalla connessione con il server o dal server stesso, utilizza un blocco try-catch per gestire e capire l'errore.
Ti suggerisco vivamente di accantonare questo progettino e iniziare dalle basi del .net, impari poco e niente e/o con molte lacune scopiazzando codice e cercando di capirlo; te lo dice uno che ha iniziato come te fin che non ha scoperto i manuali e i libri.