[SOLUCIONADO] Obtener nombre de fichero antes de descargarlo

[vistaero]

Buenas, antes de nada voy a intentar explicar porqué necesito hacer esto.

http://dl.bukkit.org/latest-rb/craftbukkit.jar

Si visitan ese enlace (para descargar CraftBukkit, el programa con el que se hacen prácticamente todos los servidores de Minecraft) verán que aunque en el enlace pone que el archivo se llama "craftbukkit.jar", el archivo que realmente comienza a descargarse se llama de una forma diferente.

¿Por qué? pues porque tal y como yo lo veo, se trata de un enlace que usan en la página web oficial, el cual siempre redirige a la última versión del programa, algo muy útil para no tener que estar actualizando el enlace de la página web cada vez que sacan una nueva versión, y muy útil también para el programa que estoy haciendo.

¿Cuál es el problema? pues que no conozco ningún método de VB.NET que permita descargar el archivo tal cual, obteniendo el nombre del archivo real, tal y como ocurre con un navegador web al entrar en ese enlace. Y no puedo limitarme a descargar el archivo con el nombre "craftbukkit.jar", pues me parece esencial que el programa no descargue una versión que ya está descargada, y además así tener una lista de todas las versiones descargadas.

Entonces necesito un método al que no haya que especificarle el nombre de archivo, o una forma de obtener la dirección a la que redirige "http://dl.bukkit.org/latest-rb/craftbukkit.jar".

¿Alguien sabría cómo solucionar esto? gracias.

[vistaero]

Solucionado. Me respondo a mí mismo para que le sirva a alguien en un futuro.

La solución la encontré aquí http://www.daniweb.com/software-deve...-after-request

Y tal que así queda una función que recibe la URL original y devuelve la URL a la que redirige.

Código VB.NET:

Private Function GetRealUrl(ByVal Url As String)
        Dim OriginalUrl As HttpWebRequest = DirectCast(HttpWebRequest.Create(Url), HttpWebRequest)
        OriginalUrl.AllowAutoRedirect = True
        Dim Response As HttpWebResponse
        Dim RealUrl As String
        Response = OriginalUrl.GetResponse
        RealUrl = Response.ResponseUri.AbsoluteUri
        Return RealUrl
 
    End Function
 

No devuelve el nombre del fichero pero para eso nos puede ayudar el método Replace en seguramente la mayoría de los casos: http://msdn.microsoft.com/en-us/libr...v=vs.110).aspx