Archiv verlassen und diese Seite im Standarddesign anzeigen : [VB.net] FTP Upload - Fehler
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!
Existiert c:\bilder\msn.jpg ? wenn nein.. dann weisste bescheid.
Existiert c:\bilder\msn.jpg ? wenn nein.. dann weisste bescheid.
Aber warum kommt dann da keine Fehlermeldung ?
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 :)
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 ^^
Sind die zugangsdaten für den FTP korrekt ?
Sind die zugangsdaten für den FTP korrekt ?
Jap, habe ich getestet :D
Das kann doch nicht sein :D
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
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
Wie schon gefragt, sind die Zugangsdaten Korrekt ? Ansonsten wüsste ich auch nix mehr, sorry :(
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" -.-
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! )
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
Haste den code von irgendner seite ? wenn ja, schau doch mal ob du da mehr hilfe bekommst. Wenn nicht. Dann nicht ^^
Kaspersky
27.06.2009, 15:06
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.
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 ?
Das löst doch nicht das Problem, oder ?
Naja.. du kriegst ne bessere Fehlermedlung.. daraus lässt sich das prob dann besser erschließen ;)
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
27.06.2009, 15:16
nimm mal meine methode.
nimm mal meine methode.
Ka, wohin ^^
Mach ma bitte xD
Bin echt schon am Ende
Nonstop vor dem PC!
Kaspersky
27.06.2009, 15:23
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)
@ 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
27.06.2009, 15:34
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"
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
27.06.2009, 15:43
Gut, kein problem.
Ja hab ich, aber das is privat.
Aber wenn du willst kannst du mich icq adden 335079066
"ftp://ftp.xxx.xx.ohost.de"
Wird zu:
"ftp://ftp.xxx.xx.ohost.de/msn.jpg"
Dann geht es.
Kaspersky
27.06.2009, 16:00
Problem ist doch schon gelöst sirect^^
Problem ist doch schon gelöst sirect^^
Jap!
Vielen Dank nochmal ^^
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
Powered by vBulletin® Copyright ©2024 Adduco Digital e.K. und vBulletin Solutions, Inc. Alle Rechte vorbehalten.