[VB.net] FTP Upload - Fehler

[Sveiven]

Ja, ich bins wieder :D
Den Code habe ich schon, aber wenn ich auf den Button klicke,
kommt immer 'ne Fehlermeldung...

Code:


Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
'Hier k”nnen Sie die Datei festlegen, welche Hochgeladen werden soll:
Dim SourceFile As New IO.FileInfo("C:\bilder\msn.jpg")
'Geben Sie hier die Zugangsdaten zu Ihrem Server ein, sofern erforderlich:
Dim Username As String = "xxx"
Dim Password As String = "xxx"
'Die Serveradresse Plus Zieldateiname
Dim Server As String = "ftp://ftp.xxx.xx.ohost.de" & SourceFile.Name
'Der Upload:
My.Computer.Network.UploadFile("C:\bilder\msn.jpg", "ftp://ftp.xxx.xx.ohost.de", "xxx", "xxx")
'Gleiche Funktion, nur das ein Fenster des Upload-Status' eingeblendet wird und der TimeOut-Wert angepasst ist.
My.Computer.Network.UploadFile("C:\bilder\msn.jpg", "ftp://ftp.xxx.xx.ohost.de", "xxx", "xxx", True, 150)
'Falls der Server keine Benutzerdaten ben”tigt:
My.Computer.Network.UploadFile("C:\bilder\msn.jpg", "ftp://ftp.xxx.xx.ohost.de")
Catch ex As Exception
Throw ex
End Try
End Sub
End Class


Da kommt immer die Fehlermeldung, wenn ich Debugge und den Button1 klicke!



Throw ex


Fehlermeldung:


Die Adresse für UploadFile muss einen Dateinamen enthalten.


Vlt. steh ich ja gerade auf dem Schlauch..
Bin jetzt eh schon zu lange vorm PC xD

Mfg Sveiven!

[xPx]

Existiert c:\bilder\msn.jpg ? wenn nein.. dann weisste bescheid.

[Sveiven]

Existiert c:\bilder\msn.jpg ? wenn nein.. dann weisste bescheid.

Aber warum kommt dann da keine Fehlermeldung ?

[xPx]

Das war keine Antwort auf die Frage :D Also wenn es c:\bilder\msn.jpg nicht gibt, dann wird es warscheinlich daran liegen.

Ich würde es aber sowieso so machen, das du die Datei die geuppt werden soll in eine Textbox eingibst.. ansonsten musst du ja für jede datei das programm umschreiben


Edit: Und die zugangsdaten für den FTP am besten auch.

Idee: Vllt. meckert das prog. auch weil die zugangsdaten zum FTP falsch sind :)

[Sveiven]

also,
das mit dem Pfad, da hast du Recht :D
Aber es klappt immer noch nicht ^^
(gleiche Fehlermeldung!)



Ich würde es aber sowieso so machen, das du die Datei die geuppt werden soll in eine Textbox eingibst.. ansonsten musst du ja für jede datei das programm umschreiben


Das ist klar :D
Wollte es nur als Beispiel/Test machen ^^

[xPx]

Sind die zugangsdaten für den FTP korrekt ?

[Sveiven]

Sind die zugangsdaten für den FTP korrekt ?
Jap, habe ich getestet :D
Das kann doch nicht sein :D

[inmate]

dim pass, user , server,pfad ,name as string
pass = textbox3.text
user = textbox2.text
pfad = textbox4.text
server = textbox1.text
name = textbox5.text 'wie die datei auf dem server heissen soll

My.Computer.network.uploadfile(pfad,"ftp://" & server & "/" & name & ".txt",user,pass)

mfG

[Sveiven]

dim pass, user , server,pfad ,name as string
pass = textbox3.text
user = textbox2.text
pfad = textbox4.text
server = textbox1.text
name = textbox5.text 'wie die datei auf dem server heissen soll

My.Computer.network.uploadfile(pfad,"ftp://" & server & "/" & name & ".txt",user,pass)

mfG

Ich will das doch so haben so wie es jetzt ist^^
Nicht meine Daten in 'ne Textbox eingeben ^^

Brauche hilfe!! Ahhh

[xPx]

Wie schon gefragt, sind die Zugangsdaten Korrekt ? Ansonsten wüsste ich auch nix mehr, sorry :(

[Sveiven]

Wie schon gefragt, sind die Zugangsdaten Korrekt ? Ansonsten wüsste ich auch nix mehr, sorry :(

Ja, sind die^^
Aber wieso kommt dann Fehlermeldung bei "Throw ex" -.-

[xPx]

Hab mal gegooglet.. unter Throw ex gibts keine Suchvorschläge, aber bei Throw Exception gibts tausende.. v

Ersetz Throw ex mal mit Throw exception ( achtung, nur ne vermutung! )

[Sveiven]

Hab mal gegooglet.. unter Throw ex gibts keine Suchvorschläge, aber bei Throw Exception gibts tausende.. v

Ersetz Throw ex mal mit Throw exception ( achtung, nur ne vermutung! )

Vielen Dank, aber es geht nicht :D

[xPx]

Haste den code von irgendner seite ? wenn ja, schau doch mal ob du da mehr hilfe bekommst. Wenn nicht. Dann nicht ^^

[Kaspersky]

Edit:

Dim sLocalPath As String = "c:\ordner\"
Dim sLocalFile As String = "MeineDatei.mdb"
Dim sFTPHost As String = "ftp://meine-domain.de/"
Dim sUserName As String = "MeinBenutzername"
Dim sPassword As String = "MeinPasswort"
My.Computer.Network.UploadFile(sLocalPath & sLocalFile, sFTPHost & My.Computer.Clock.LocalTime.DayOfWeek & "_" & sLocalFile, sUserName, sPassword, True, 500, FileIO.UICancelOption.DoNothing)

Mach das Try mal weg und debugge, dann grigst du auch mal ne vernünftige fehlermeldung.

[Sveiven]

Edit:

Dim sLocalPath As String = "c:\ordner\"
Dim sLocalFile As String = "MeineDatei.mdb"
Dim sFTPHost As String = "ftp://meine-domain.de/"
Dim sUserName As String = "MeinBenutzername"
Dim sPassword As String = "MeinPasswort"
My.Computer.Network.UploadFile(sLocalPath & sLocalFile, sFTPHost & My.Computer.Clock.LocalTime.DayOfWeek & "_" & sLocalFile, sUserName, sPassword, True, 500, FileIO.UICancelOption.DoNothing)

Was soll ich jetzt damit machen ?
Das löst doch nicht das Problem, oder ?

[xPx]

Das löst doch nicht das Problem, oder ?

Naja.. du kriegst ne bessere Fehlermedlung.. daraus lässt sich das prob dann besser erschließen ;)

[Sveiven]

Habe mal ein neuen Code:


Dim clsRequest As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://ftp.visualbasic.kilu.de/www/Test.txt"), System.Net.FtpWebRequest)clsRequest.Credentials = New System.Net.NetworkCredential("visualbasic@1", "visualbasic")clsRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFileDim bFile() As Byte = System.IO.File.ReadAllBytes("C:\Test.txt")Dim clsStream As System.IO.Stream = clsRequest.GetRequestStream()clsStream.Write(bFile , 0, bFile.Length)clsStream.Close()clsStream.Dispose()M sgBox("FTP-Upload Sucess. Server: http://visualbasic.kilu.de", MsgBoxStyle.Information, "FTP Upload Information")Bei dem Pfad bekomm ich aber immer eine Fehlermeldung!
C:\Benutzer\xxx\bilder\xyz.jpgDa ist doch nix falsch oder ? ^^

[Kaspersky]

nimm mal meine methode.

[Sveiven]

nimm mal meine methode.

Ka, wohin ^^
Mach ma bitte xD
Bin echt schon am Ende
Nonstop vor dem PC!

[Kaspersky]

Na mit dem element wo du was hochladen willst.
Button oder so, lösch deinen kram raus, nimm meine methode und trag deine einlogg daten etc ein.

Dim sLocalPath As String = "c:\ordner\" 'Hier der ordner indem die datei ist
Dim sLocalFile As String = "MeineDatei.mdb" 'Hier die datei wo in diesem ordner ist und du hochladen möchtest
Dim sFTPHost As String = "ftp://meine-domain.de/" 'Hier die adresse
Dim sUserName As String = "MeinBenutzername" 'Hier login name
Dim sPassword As String = "MeinPasswort" 'Hier login passwort
My.Computer.Network.UploadFile(sLocalPath & sLocalFile, sFTPHost & My.Computer.Clock.LocalTime.DayOfWeek & "_" & sLocalFile, sUserName, sPassword, True, 500, FileIO.UICancelOption.DoNothing)

[Sveiven]

@ Kaspersky:
Ich glaube deine Methode geht, aber der findet meinen Pfad nicht ^^

Pfad:


C:\benutzer\xxxx\bilder\circle.gif


Ist da was falsch dran ?

[Kaspersky]

Du musst in der ersten zeile nur den ordner angeben und in der zweiten die datei, also so zb:

Dim sLocalPath As String = "C:\Users\Kaspersky\Pictures"
Dim sLocalFile As String = "Kaspersky.jpg"

[Sveiven]

Du musst in der ersten zeile nur den ordner angeben und in der zweiten die datei, also so zb:

Dim sLocalPath As String = "C:\Users\Kaspersky\Pictures"
Dim sLocalFile As String = "Kaspersky.jpg"

Es geht!!!!!!!!einssss!!!!!!

Vielen Dank!!!

Kasper, hast du vlt. MSN ?

[Kaspersky]

Gut, kein problem.
Ja hab ich, aber das is privat.
Aber wenn du willst kannst du mich icq adden 335079066

[Sveiven]

ICQ habe ich nicht ;(

[Sirect]

"ftp://ftp.xxx.xx.ohost.de"

Wird zu:


"ftp://ftp.xxx.xx.ohost.de/msn.jpg"

Dann geht es.

[Kaspersky]

Problem ist doch schon gelöst sirect^^

[Sveiven]

Problem ist doch schon gelöst sirect^^

Jap!
Vielen Dank nochmal ^^

[Sirect]

Ist aber arm gelöst, wenn man den Dateinamen seperat eintragen muss...
Ist doch in einem Tool völlig Schwachsinnig, lass den per FileInfo den Dateinamen auslesen oO