Problemas con el Inet

Iniciado por Shrick, 5 Enero 2007, 19:30 PM

0 Miembros y 1 Visitante están viendo este tema.

Shrick

Necesito ayuda, con el inet, quiero saber como conseguir el nombre de la descarga que estoy bajando, se la ruta, pero quiero hacer algo para que me pille tambien el nombre del archivo por ejemplo de http://www.google.es/images/firefox/fox1.gif que me ponga como nombre fox1.gif
Ubuntu User
Pascal (2008/2009)
C/C++ (2009/¿?)
8080 Assembler (2009/2010)
MIPS I Assembler (2010/¿?)

Todo lo que yo haga o diga esta bajo:



No pertenece ni a mi ni a nadie :P .

CeLaYa

#1
 :huh: a ver, si vas a descargar un archivo es porque ya sabes cual es, o no?,  ¿o como le haces para descargar si no sabes el nombre del archivo?  :huh:

a ver si esto te ayuda...
--------------------------
Document (Propiedad)
---------------------------

Devuelve o establece el archivo o documento que se usará con el método Execute. Si no especifica esta propiedad, se empleará el documento predeterminado del servidor. Si no especifica ningún documento, se producirá un error en las operaciones de escritura.

Sintaxis

objeto.Document = cadena

La sintaxis de la propiedad Document consta de las partes siguientes:

Parte           Descripción
objeto         Expresión de objeto que da como resultado un objeto de la lista Se aplica a.
cadena        Nombre del archivo o documento que desea usar con el método Execute.
"La soledad es el elemento de los grandes talentos".
Cristina de Suecia (1626-1689) Reina de Suecia.

Shrick

#2
En el codigo que tengo que me lo baja pero tengo que indicarle un nombre a parte y no se como ponerlo porque lo que tengo yo es la dirección completa y yo solo quiero la parte del nombre ;D

Solucionado ;) , al principio del
Private Sub Inet1_StateChanged(ByVal State As Integer)

Hay que poner:

Dim nombre As String
nombre = Right(Inet1.URL, Len(Inet1.URL) - InStrRev(Inet1.URL, "/"))


Con esto conseguimos lo que yo digo ::) , Google Powa!
Ubuntu User
Pascal (2008/2009)
C/C++ (2009/¿?)
8080 Assembler (2009/2010)
MIPS I Assembler (2010/¿?)

Todo lo que yo haga o diga esta bajo:



No pertenece ni a mi ni a nadie :P .