Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > .NET Languages
You last visited: Today at 22:45

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



VB 2010 getfilename

Discussion on VB 2010 getfilename within the .NET Languages forum part of the Coders Den category.

Reply
 
Old   #1
 
elite*gold: 0
Join Date: Feb 2012
Posts: 54
Received Thanks: 4
VB 2010 getfilename

Ich habe mir ein kleines download tool geschrieben komm aber nicht weiter...
ich will den filename abfragen bekomm das aber irgendwie nicht hin hab schon endliche foren etc durchsucht aber komm nicht weiter

Kompletter Code:
Code:
Imports System.Net
Imports System.IO

Public Class Form1

    Public WithEvents downloader As WebClient
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        downloader = New WebClient
        downloader.DownloadFileAsync(New Uri(TextBox1.Text), 123)
        Me.Button1.Enabled = False
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim speichern = New FolderBrowserDialog
        speichern.ShowDialog()
        Me.TextBox2.Text = speichern.SelectedPath
    End Sub

    Private Sub downloader_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles downloader.DownloadFileCompleted
        MsgBox("Download beendet", MsgBoxStyle.Information, "Fertig!")
        Me.ProgressBar1.Value = 0
        Me.Label3.Text = "0 von 0 bytes"
        Me.Label4.Text = "0%"
        Me.Button1.Enabled = True
    End Sub

    Private Sub downloader_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles downloader.DownloadProgressChanged
        Me.ProgressBar1.Value = e.ProgressPercentage
        Me.Label3.Text = e.BytesReceived & "Von " & e.TotalBytesToReceive & "Bytes"
        Me.Label4.Text = e.ProgressPercentage & "%"
    End Sub
End Class
Mein Problem:
Code:
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        downloader = New WebClient
        downloader.DownloadFileAsync(New Uri(TextBox1.Text), Hier muss der file name hin)
        Me.Button1.Enabled = False
    End Sub
DarkTrick is offline  
Old 05/08/2013, 18:52   #2
 
Kraizy​'s Avatar
 
elite*gold: 0
The Black Market: 471/0/0
Join Date: Apr 2010
Posts: 9,696
Received Thanks: 1,811
Der Dateiname (und die Dateiendung) steht ja wohl im Downloadlink oder nicht?
Dann filterst das einfach raus und gut is.
Kraizy​ is offline  
Old 05/08/2013, 18:53   #3
 
elite*gold: 0
Join Date: Feb 2012
Posts: 54
Received Thanks: 4
Quote:
Originally Posted by Kraizy​ View Post
Der Dateiname (und die Dateiendung) steht ja wohl im Downloadlink oder nicht?
Dann filterst das einfach raus und gut is.
ist mir klar bloß wie?
DarkTrick is offline  
Old 05/08/2013, 18:56   #4
 
Kraizy​'s Avatar
 
elite*gold: 0
The Black Market: 471/0/0
Join Date: Apr 2010
Posts: 9,696
Received Thanks: 1,811
Einfach beim "/" splitten und das Letzte nehmen.
Wie man die Split-Funktion benutzt, findest du bei Google.
Kraizy​ is offline  
Old 05/08/2013, 19:00   #5
 
elite*gold: 0
Join Date: Feb 2012
Posts: 54
Received Thanks: 4
dann geht das aber nur wenn in der url der file name steht
DarkTrick is offline  
Old 05/08/2013, 19:21   #6
 
Kraizy​'s Avatar
 
elite*gold: 0
The Black Market: 471/0/0
Join Date: Apr 2010
Posts: 9,696
Received Thanks: 1,811
Probiers mal über den Header. Kannst ja mal nachschauen, was sich hier so befindet:
PHP Code:
dim content as string webclient.responseheaders("content-disposition"
Darin müsste sich der Dateiname befinden, dann einfach raussplitten.
Kraizy​ is offline  
Old 05/08/2013, 19:22   #7
 
elite*gold: 0
Join Date: Feb 2012
Posts: 54
Received Thanks: 4
sry bin ein bisschen blöd (Anfänger) was ist gemient mit ("content-disposition") ?

bzw. geht das nicht mit .getfilenamewithoutextension ?
DarkTrick is offline  
Reply


Similar Threads Similar Threads
Suche MoH 2010 Limited Editon oder MOH 2010 Tier 1 Edition Biete PSC
05/28/2011 - Steam Trading - 3 Replies
Servus Suche ein EA Downloadmanager aktivierbaren Key für das Game MOH 2010 Tier 1 Edition oder moH 2010 Limited Edition. Es muss unbedingt eine dieser Editionen sein da dort man dann auch zugang zur BF3 Beta ende des Jahres bekommt! ich Suche nur einen CD Key keine Accounts wer mir Accounts anbietet wird sofort Reported!! ANgebote was Ihr Preislich für den Key wollt macht Ihr mir bitte hier im Thread rein.Ich Akzeptiere nur einen Key mit Rechnung/ CD-Key Foto
Metin2 AllVersion Hack 6.1 New 2010 Benma And Megadosya ( 25.09.2010 ) New Multihack
09/29/2010 - Metin2 Hacks, Bots, Cheats, Exploits & Macros - 34 Replies
http://img.webme.com/pic/d/dosyamax/hilev.png Metin2 All Version Hack 6.1 Özellikleri nelerdir 1. Attack Speed 2. Move Speed 3. Attack Rangei 4. Follow 5. Zoom Hack 6. No Fog 7. Combo



All times are GMT +1. The time now is 22:49.


Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.