Fich. recibido en binario sabiendo extensión

Lo q quiero decir es q recibo la cadena en binario, la
decodifico usando:
Public Function base64_decode( byVal strIn )
Dim w1, w2, w3, w4, n, strOut
For n = 1 To Len( strIn ) Step 4
w1 = mimedecode( Mid( strIn, n, 1 ) )
w2 = mimedecode( Mid( strIn, n + 1, 1 ) )
w3 = mimedecode( Mid( strIn, n + 2, 1 ) )
w4 = mimedecode( Mid( strIn, n + 3, 1 ) )
If w2 >= 0 Then _
strOut = strOut + _
Chr( ( ( w1 * 4 + Int(
w2 / 16 ) ) And 255 ) )
If w3 >= 0 Then _
strOut = strOut + _
Chr( ( ( w2 * 16 + Int(
w3 / 4 ) ) And 255 ) )
If w4 >= 0 Then _
strOut = strOut + _
Chr( ( ( w3 * 64 + w4 )
And 255 ) )
Next
base64_decode = strOut
End Function


y la guardo en el archivo, pero q como lo q recibo no es
el contenido sn todo el archivo, el archivo en si quiero
decir, la cadena q resulta, lo q guarda en el fichero, no
es interpretable

Y si, es el mismo mensaje preguntado d otra forma, q me lo
sugirió otro chico q contestó

Gracias!

*** Eva wrote/escribió (Tue, 14 Dec 2004 21:42:42 -0800):

He probado a decodificar la cadena y guardarla en un
fichero pero no m interpreta bien la cadena, ya q en
binario no me viene sólo el contenido del fichero sino

el

fichero en si

Y la diferencia es... ¿?

Eva, sospecho que en el lugar donde obtienes el archivo

hay algún tipo de

documentación o información sobre el formato del mismo.

¿Nos la puedes

copiar? Es que, sinceramente, no te entendemos nada, yo

al menos.

.

*** wrote/escribió (Wed, 15 Dec 2004
03:16:22 -0800):

y la guardo en el archivo, pero q como lo q recibo no es
el contenido sn todo el archivo, el archivo en si quiero
decir, la cadena q resulta, lo q guarda en el fichero, no
es interpretable

Bueno, no pasa nada, supongo que la documentación no se puede divulgar, en
algunos webservices es así. Pero al menos explícanos cuál es para ti la
diferencia entre recibir "el contenido de un archivo" y "todo el archivo".

Lo q quiero decir es por ejemplo: tengo un documento
prueba.doc q contiene "Esto es una prueba". Quiero decir,
q no recibo el texto "Esto es una prueba" en binario, sn q
recibo prueba.doc en binario

*** wrote/escribió

(Wed, 15 Dec 2004

03:16:22 -0800):

y la guardo en el archivo, pero q como lo q recibo no

es

el contenido sn todo el archivo, el archivo en si

quiero

decir, la cadena q resulta, lo q guarda en el fichero,

no

es interpretable

Bueno, no pasa nada, supongo que la documentación no se

puede divulgar, en

algunos webservices es así. Pero al menos explícanos cuál

es para ti la

diferencia entre recibir "el contenido de un archivo"

y "todo el archivo".

.

*** Eva wrote/escribió (Wed, 15 Dec 2004 03:50:46 -0800):

Lo q quiero decir es por ejemplo: tengo un documento
prueba.doc q contiene "Esto es una prueba". Quiero decir,
q no recibo el texto "Esto es una prueba" en binario, sn q
recibo prueba.doc en binario

Es decir, lo que recibes es el *nombre* del archivo. Según dices ya tienes
una función para decodificar el nombre. Entonces, ¿tu duda es cómo crear
un archivo con ese nombre? Eso se hace así (cambia la ruta por la que desees):

<%
Dim fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile("c:\Inetpub\wwwroot\carpeta\" & base64_decode(nombre_codificado), True)
%>

Necesitas que el usuario del servidor web (algo así como
IUSR_NOMBREDETUORDENADOR) tenga permiso de escritura en la carpeta. Si es
un hosting en Internet, los detalles de cómo hacerlo te lo podrán indicar
en Soporte.