Ich habe vor länderer Zeit (als ich mich noch mit VB beschäftigt habe) eine kleine .exe geschrieben.
Diese hat bis vor kurzem einfach eine Datei von einem angegebenen Pfad im Internet heruntergeladen.
Nun bekomme ich folgende fehlermeldung:
Hat sich erledigt, es ging einfach nicht die Datei von Dropbox herunterladen zu lassen.
Diese hat bis vor kurzem einfach eine Datei von einem angegebenen Pfad im Internet heruntergeladen.
Nun bekomme ich folgende fehlermeldung:
VB.NET-Quellcode
- Imports System.Environment
- Imports System.Net
- Imports System.IO
- Imports System.Exception
- Public Class Form1
- Private WithEvents webclient As New Net.WebClient
- Dim Web As New Net.WebClient
- Function GetFolderPath(ByVal folder As SpecialFolder) As String
- Dim returnValue As String
- returnValue = Environment.GetFolderPath(folder)
- Return True
- End Function
- Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- download_text.Visible = True
- webclient.DownloadFileAsync(New Uri(TextBox1.Text), Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft" & "\bin" & "\minecraft.jar")
- End Sub
- Private Sub webclient_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles webclient.DownloadFileCompleted
- MsgBox("Download Fertig!")
- ProgressBar1.Value = 0
- End Sub
- Private Sub webclient_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles webclient.DownloadProgressChanged
- ProgressBar1.Maximum = e.TotalBytesToReceive
- ProgressBar1.Value = e.BytesReceived
- End Sub
- Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
- Process.Start("http://www.axi92.at/")
- End Sub
- End Class
Hat sich erledigt, es ging einfach nicht die Datei von Dropbox herunterladen zu lassen.
