Hey ho,
bin neu hier und hab mich ein wenig umgeschaut um mein problem zu beheben.
Hab aber so nix gefunden, scheint alles an sich richtig zu sein nur funktioniert mein File Upload nicht.
Was ich mache ist ein Programm um mir Dateien von einem anderen pc zuhause zu laden oder hochzuladen.
Download geht nur Upload nicht.
Hoffe mir kann dabei jemand helfen, schon mal danke an jeden Leser oder Helfer
bin neu hier und hab mich ein wenig umgeschaut um mein problem zu beheben.
Hab aber so nix gefunden, scheint alles an sich richtig zu sein nur funktioniert mein File Upload nicht.
Was ich mache ist ein Programm um mir Dateien von einem anderen pc zuhause zu laden oder hochzuladen.
Download geht nur Upload nicht.
Hoffe mir kann dabei jemand helfen, schon mal danke an jeden Leser oder Helfer
VB.NET-Quellcode
- Imports System.ComponentModel
- Imports System.Net
- Public Class Main
- Private Sub Connections_List_TextChanged(sender As Object, e As EventArgs) Handles Connections_List.TextChanged
- If Connections_List.Text = "Julien Pc" Then
- IP_Url.Text = "IP CENSOR"
- Else
- If Connections_List.Text = "Julien Labtop" Then
- IP_Url.Text = "IP CENSOR"
- Else
- If Connections_List.Text = "Chris Pc" Then
- IP_Url.Text = "IP CENSOR"
- Else
- End If
- End If
- End If
- If My.Computer.Network.Ping(IP_Url.Text) = False Then
- Connection_State.Text = "Connection not aviable."
- Connection_State.ForeColor = Color.Red
- Start_Button.Enabled = False
- Else
- Connection_State.Text = "Connection is aviable."
- Connection_State.ForeColor = Color.LimeGreen
- Start_Button.Enabled = True
- End If
- End Sub
- Private Sub Start_Button_Click(sender As Object, e As EventArgs) Handles Start_Button.Click
- Dim uri As Uri
- 'Upload Abschnitt
- If Upload_Check.Checked = True Then
- uri = New Uri("Http://" & IP_Url.Text & "/Files/Uploads/" & Filename.Text)
- Try
- If My.Computer.FileSystem.FileExists(Application.StartupPath & "/Uploads/" & Filename.Text) = True Then
- Try
- WebControl.UploadFileAsync(uri, Application.StartupPath & "/Uploads/" & Filename.Text)
- Start_Button.Enabled = False
- Catch ex As Exception
- RichTextBox1.Text = RichTextBox1.Text & "> File already exists." & vbNewLine
- GoTo 1
- End Try
- Else
- RichTextBox1.Text = RichTextBox1.Text & "> File not exists." & vbNewLine
- GoTo 1
- End If
- Catch ex As Exception
- End Try
- Else
- 'Download Abschnitt
- uri = New Uri("Http://" & IP_Url.Text & "/Files/" & Filename.Text)
- Try
- If My.Computer.FileSystem.FileExists(Application.StartupPath & "/Downloads/" & Filename.Text) Then
- RichTextBox1.Text = RichTextBox1.Text & "> File already exists." & vbNewLine
- GoTo 1
- Else
- WebControl.DownloadFileAsync(uri, Application.StartupPath & "/Downloads/" & Filename.Text)
- Start_Button.Enabled = False
- End If
- Catch ex As Exception
- End Try
- End If
- 1:
- End Sub
- Private Sub WebControl_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles WebControl.DownloadProgressChanged
- Progress_Val.Width = Progress_Max.Width / 100 * e.ProgressPercentage
- ByteText.Text = e.BytesReceived / 1000 & " kb / " & e.TotalBytesToReceive / 1000 & " kb"
- End Sub
- Private Sub WebControl_DownloadFileCompleted(sender As Object, e As AsyncCompletedEventArgs) Handles WebControl.DownloadFileCompleted
- Progress_Val.Width = 0
- Start_Button.Enabled = True
- RichTextBox1.Text = RichTextBox1.Text & "> File Download complete." & vbNewLine
- WebControl.Dispose()
- End Sub
- Private Sub WebControl_UploadProgressChanged(sender As Object, e As UploadProgressChangedEventArgs) Handles WebControl.UploadProgressChanged
- Progress_Val.Width = Progress_Max.Width / 100 * e.ProgressPercentage
- ByteText.Text = e.BytesReceived / 1000 & " kb / " & e.TotalBytesToReceive / 1000 & " kb"
- End Sub
- Private Sub WebControl_UploadFileCompleted(sender As Object, e As AsyncCompletedEventArgs) Handles WebControl.UploadFileCompleted
- Progress_Val.Width = 0
- Start_Button.Enabled = True
- RichTextBox1.Text = RichTextBox1.Text & "> File Upload complete." & vbNewLine
- WebControl.Dispose()
- End Sub
- Private Sub Delete_Button_Click(sender As Object, e As EventArgs) Handles Delete_Button.Click
- Try
- My.Computer.FileSystem.DeleteFile(Application.StartupPath & "/Downloads/" & Filename.Text)
- RichTextBox1.Text = RichTextBox1.Text & "> File deleted." & vbNewLine
- Catch ex As Exception
- RichTextBox1.Text = RichTextBox1.Text & "> File not exists." & vbNewLine
- End Try
- End Sub
- End Class