FTP Löschen
- VB.NET
Sie verwenden einen veralteten Browser (%browser%) mit Sicherheitsschwachstellen und können nicht alle Funktionen dieser Webseite nutzen.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Es gibt 33 Antworten in diesem Thema. Der letzte Beitrag () ist von Bernd.
-
-
MSDN schrieb:
VB.NET-Quellcode
- Public Shared Function DeleteFileOnServer(ByVal serverUri As Uri) As Boolean
- ' The serverUri parameter should use the ftp:// scheme.
- ' It contains the name of the server file that is to be deleted.
- ' Example: ftp://contoso.com/someFile.txt.
- '
- If serverUri.Scheme <> Uri.UriSchemeFtp Then
- Return False
- End If
- ' Get the object used to communicate with the server.
- Dim request As FtpWebRequest = CType(WebRequest.Create(serverUri), FtpWebRequest)
- request.Method = WebRequestMethods.Ftp.DeleteFile
- Dim response As FtpWebResponse = CType(request.GetResponse(), FtpWebResponse)
- Console.WriteLine("Delete status: {0}", response.StatusDescription)
- response.Close()
- Return True
- End Function
-
-
VB.NET-Quellcode
- Try
- Dim request As Net.FtpWebRequest = Net.FtpWebRequest.Create("Link zur datei")
- request.Method = Net.WebRequestMethods.Ftp.DeleteFile
- request.Credentials = New Net.NetworkCredential("Benutzername", "Passwort")
- Dim response As Net.FtpWebResponse = request.GetResponse()
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
Muss ich bei Zeile 1 auch den Server mitangeben? also vb.123.de/datei.html
ja oder? -
-
Ich bekomm diese Fehlermeldung..
ich versteh nicht ganz was das problem ist.
msdn.microsoft.com/query/dev10…SION%3dV4.0%22%29&rd=true -
-
Fehler beim Erstellen des Formulars. Weitere Informationen finden Sie in Exception.InnerException. Fehler: Fehler beim Navigieren zu einem relativen URI..
steht: "Es ist keine Quelle verfügbar" -
-
-
-
VB.NET-Quellcode
- Public Class optionen
- Dim upload As New Net.WebClient
- Private Sub hochladen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- TextBox2.Text = Form1.TextBox1.Text
- End Sub
- Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
- einstellungen.Show()
- Me.Close()
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Try
- upload.Credentials = New Net.NetworkCredential(einstellungen.TextBox2.Text, einstellungen.TextBox3.Text)
- upload.UploadString("ftp://" + einstellungen.TextBox1.Text & TextBox1.Text & ComboBox1.Text, TextBox2.Text)
- MsgBox(" + TextBox1.Text And ComboBox1.Text + " wurde erfolgreich hochgeladen.", MsgBoxStyle.Information)
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- End Sub
- Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
- einstellungen.Show()
- Me.Close()
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- Button2.Enabled = False
- Button3.Enabled = True
- End Sub
- Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
- Button2.Enabled = False
- Try
- Dim request As Net.FtpWebRequest = Net.FtpWebRequest.Create(einstellungen.TextBox1.Text + TextBox3.Text)
- request.Method = Net.WebRequestMethods.Ftp.DeleteFile
- request.Credentials = New Net.NetworkCredential(einstellungen.TextBox2.Text, einstellungen.TextBox3.Text)
- Dim response As Net.FtpWebResponse = request.GetResponse()
- Button3.Enabled = False
- Button2.Enabled = True
- Catch ex As Exception
- MsgBox(ex.Message)
- Button3.Enabled = False
- Button2.Enabled = True
- End Try
- End Sub
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- Button3.Enabled = False
- Button5.Enabled = True
- End Sub
- Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
- Dim Request As Net.FtpWebRequest = Net.WebRequest.Create(einstellungen.TextBox1.Text + TextBox4.Text + ComboBox3.Text)
- Dim Response As Net.FtpWebResponse
- Request.Credentials = New Net.NetworkCredential(einstellungen.TextBox2.Text, einstellungen.TextBox3.Text)
- Request.Method = Net.WebRequestMethods.Ftp.Rename
- Request.Timeout = (60000)
- Request.RenameTo = TextBox5.Text + ComboBox4.Text
- Response = Request.GetResponse()
- Response.Close()
- Button5.Enabled = False
- End Sub
- End Class
Formload.. ka?
Was ist Uri??
Mein Code -
Teste doch mal die Funktion von @FlashTek. Dort steht doch alles Drin.
Oder schreib mal das
VB.NET-Quellcode
- Dim request As Net.FtpWebRequest = DirectCast(Net.WebRequest.Create(New Uri(String.Concat("ftp://???/", "WeiterePfadAngaben", "/", "FileName.Extension"))), Net.FtpWebRequest)
- request.Method = Net.WebRequestMethods.Ftp.DeleteFile
- request.Credentials = New Net.NetworkCredential("User", "Pass")
- Try
- Dim response As Net.WebResponse = request.GetResponse()
- Catch ex As Exception
- MessageBox.Show(ex.ToString())
- End Try
Dann rate ich dir mal in die erste Zeile zu schreiben.
alle Fehler zu beseitigen. Dann solltest du fast am Ziel sein.
Edit:
Wenn es dann immer noch nicht geht. Lass den Tray Catch weg. Dann hast du eine konkrete Fehlermeldung.Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Bernd“ ()
-
-
-
Was schreibst du denn unter "Link zur Datei" rein?
Was nicht rein sollte:- dein-server.de/datei.txt
- http://dein-server.de/datei.txt
- ftp://dein-server.de/datei.txt
-
Ich habs gelöst. Das Problem lag an 2 Webbrowser.
Jedoch hab ich ein neues problemchen,
bei mir wird der pfad so angegeben:
VB.NET-Quellcode
- Try
- Button4.Enabled = False
- Dim request As Net.FtpWebRequest = Net.FtpWebRequest.Create("ftp://" + einstellungen.TextBox1.Text + TextBox3.Text + ComboBox2.Text)
- request.Method = Net.WebRequestMethods.Ftp.DeleteFile
- request.Credentials = New Net.NetworkCredential(einstellungen.TextBox2.Text, einstellungen.TextBox3.Text)
- Dim response As Net.FtpWebResponse = request.GetResponse()
- Catch ex As Exception
- MsgBox(ex.Message)
- Button2.Enabled = True
- End Try
Da kommt dann immer: Ungültiger URI: Der Hostname konnte nicht analysiert werden.
Und wenn ich das ohne das "ftp://"+ mache kommt Zugriff auf "C:\XX" wurde verweigert???! -
Sultan schrieb:
"ftp://" + einstellungen.TextBox1.Text + TextBox3.Text + ComboBox2.Text
So verkettet man keine Strings. Entweder mit dem & Zeichen oder mit String.Concat.
Auch wenn du sie dann verkettet hast, ist es eine String und keine URI.
Entweder direkt bei der Deklaration
oder mit einer Funktion von ~blaze~
VB.NET-Quellcode
- Public Function FileNameToUri(ByVal fileName As String) As Uri
- Dim result As Uri = Nothing
- If System.Uri.TryCreate(System.Uri.UriSchemeFile & "://" & fileName.Replace(IO.Path.DirectorySeparatorChar, "/"c), UriKind.Absolute, result) Then
- Return result
- Else
- Throw New ArgumentException("Invalid filename.")
- End If
- End Function
Und dann solltest du endlich Option Strict On in deiner ersten Zeile schreiben. -
-
-
Ähnliche Themen