Seleccionar Carpeta con ASP

Hola Nuno,

Gracias por tu respuesta. Ya lo probe, pero no me muestra nada. Consulte en
la direccion que especificaste en el MSDN y copie el ejemplo que viene ahi,
pero tampoco me muestra nada. Probe hasta donde funciona poniendo un msgbox,
y funciona hasta la siguiente linea:

function fnShellBrowseForFolderVB()
dim objShell
dim ssfWINDOWS
dim objFolder

ssfWINDOWS = 0'36
set objShell = CreateObject("Shell.Application")
' < << < < < < Hasta aqui esta bien. Despues ya no funciona. > > > > > >
set objFolder = objShell.BrowseForFolder(0, "Example", 0,
ssfWINDOWS)
if (not objFolder is nothing) then
'Add code here.
end if
set objFolder = nothing
set objShell = nothing
end function

Cual puede ser el problema por el que no me muestra nada.

Lo probe en Visual Basic y funciona muy bien.

Otra pregunta, en caso de que funcione, como puedo saber la direccion
completa (Path) de la carpeta seleccionada. Al menos, en Visual Basic utilizo
objFolder.Path, pero me genera un error.

Gracias.

Jorge Delgado.
"Nuno Santos" wrote:

Para más información consulta:
sobre el browseforfolder
http://msdn.microsoft.com/library/d...folder.asp

Para las constantes de las pastas que quieres permitir.
http://msdn.microsoft.com/library/d...stants.asp


Nuno Santos
nunos7[REMOVER]@hotmail.com

"Jorge Delgado" wrote in message
news:
> Las carpetas estan del lado del cliente.
>
> Lo que quiero hacer es lo siguiente:
>
> En el Intranet de la empresa tenemos una pagina con la cual se generan
> algunos archivos en excel. Lo que quiero es que el cliente pueda
> seleccionar
> la ubicacion en donde desea se grabe el archivo - algo asi como un
> download,
> solo que el archivo se crea en ese mismo instante y se graba en donde el
> usuario especifica -.
>
> Lo intente con <Input type="file"> pero eso solo sirve para hacer el
> Upload.
> tambien lo intente con lo siguiente pero no pasa nada:
>
> dim NOF
> Set NOF = CreateObject("MSComDlg.CommonDialog")
> NOF.ShowSave
> set NOF = Nothing
>
> Lo unico que deseo es mostrar un cuadro de dialogo en donde poder
> seleccionar la ubicacion para grabar el archivo. El procedimiento para
> grabar
> el archivo ya lo tengo, y funciona bien.
>
> Gracias por tu atencion.
>
> Jorge Delgado.
> "Int_21" wrote:
>
>> de que lado estan las carpetas? en la webo del lado del cliente?

Te estoy enviando un txt con el ejemplo, depues haces el rename para htm y
ejecutas en tu aplicación, ok!

Verifica en el site de la microsoft los requisitos minimos para ejecutar el
código!!!



Nuno Santos
nunos7[REMOVER]@hotmail.com

"Jorge Delgado" wrote in message
news:

Hola Nuno,

Gracias por tu respuesta. Ya lo probe, pero no me muestra nada. Consulte
en
la direccion que especificaste en el MSDN y copie el ejemplo que viene
ahi,
pero tampoco me muestra nada. Probe hasta donde funciona poniendo un
msgbox,
y funciona hasta la siguiente linea:

function fnShellBrowseForFolderVB()
dim objShell
dim ssfWINDOWS
dim objFolder

ssfWINDOWS = 0'36
set objShell = CreateObject("Shell.Application")
' < << < < < < Hasta aqui esta bien. Despues ya no funciona. > > > > > >
set objFolder = objShell.BrowseForFolder(0, "Example", 0,
ssfWINDOWS)
if (not objFolder is nothing) then
'Add code here.
end if
set objFolder = nothing
set objShell = nothing
end function

Cual puede ser el problema por el que no me muestra nada.

Lo probe en Visual Basic y funciona muy bien.

Otra pregunta, en caso de que funcione, como puedo saber la direccion
completa (Path) de la carpeta seleccionada. Al menos, en Visual Basic
utilizo
objFolder.Path, pero me genera un error.

Gracias.

Jorge Delgado.
"Nuno Santos" wrote:

Para más información consulta:
sobre el browseforfolder
http://msdn.microsoft.com/library/d...folder.asp

Para las constantes de las pastas que quieres permitir.
http://msdn.microsoft.com/library/d...stants.asp


Nuno Santos
nunos7[REMOVER]@hotmail.com

"Jorge Delgado" wrote in message
news:
> Las carpetas estan del lado del cliente.
>
> Lo que quiero hacer es lo siguiente:
>
> En el Intranet de la empresa tenemos una pagina con la cual se generan
> algunos archivos en excel. Lo que quiero es que el cliente pueda
> seleccionar
> la ubicacion en donde desea se grabe el archivo - algo asi como un
> download,
> solo que el archivo se crea en ese mismo instante y se graba en donde
> el
> usuario especifica -.
>
> Lo intente con <Input type="file"> pero eso solo sirve para hacer el
> Upload.
> tambien lo intente con lo siguiente pero no pasa nada:
>
> dim NOF
> Set NOF = CreateObject("MSComDlg.CommonDialog")
> NOF.ShowSave
> set NOF = Nothing
>
> Lo unico que deseo es mostrar un cuadro de dialogo en donde poder
> seleccionar la ubicacion para grabar el archivo. El procedimiento para
> grabar
> el archivo ya lo tengo, y funciona bien.
>
> Gracias por tu atencion.
>
> Jorge Delgado.
> "Int_21" wrote:
>
>> de que lado estan las carpetas? en la webo del lado del cliente?

begin 666 DialogCmd.txt
M/$A434P^#0H\2$5!1#X-"CQ-151!($Y!344](D=%3D52051/4B(@0V]N=&5N
M=#TB36EC<F]S;V9T(%9I<W5A;"!3='5D:6\@-BXP(CX-"CQ4251,13X\+U1)
M5$Q%/@T*/"](14%$/@T*/$)/1%D^#0H-"CQ0/CQ)3E!55"!T>7!E/2)T97AT
M(B!I9#UT97AT,2!N86UE/71E>'0Q('-I>F4]-#4^)FYB<W [#0H)/$E.4%54
M('1Y<&4](F)U='1O;B(@=F%Ld](B N+BX@(B!I9#UBqT;VXQ(&YA;64]
M8G5T=&]N,2!O;F-L:6-K/2)60E-C<FEP=#IT97AT,2YV86QU92 ](&9N4VAE
M;&Q"<F]W<V5&;W)&;VQD97)(CX\+U ^#0H-"CQS8W)I<'0@;&%N9W5A
M9V4](E9"4V-R:7!T(CX-"F9U;F-T:6]N(&9N4VAE;&Q"<F]W<V5&;W)&;VQD
M97)#0H))R;W(@4F5S=6UE($YE>'0-"B @("!D:6T@;V)J4VAE
M;&PL<W1R4&%T:"QR971U<FYE<G)O<BQI;G1#;VQO;E!O<PT*(" @(&1I;2!S
M<V9724Y$3U=3+'-S9DU94$E#5%5215,L<W-F1%))5D53+'-S9D1%4TM43U L
M<W-F4$524T].04P-"B @("!D:6T@;V)J1F]L9&5R#0H-"B @("!S<V9724Y$
M3U=3(#T@,S8-"B @("!S<V9-65!)0U154D53(#T@,SD-"B @("!S<V9$4DE6
M15,@/2 Q-PT*(" @('-S9D1%4TM43U @/2 P#0H@(" @<W-F4$524T].04P@
M/2 U#0H@(" @<V5T(&]B:E-H96QL(#)E871E3V)J96-T*")3:&5L;"Y!
M<'!L:6-A=&EO;B(I#0H@(" @<V5T(&]B:D9O;&1E<B ](&]B:E-H96QL+D)R
M;W=S949O<D9O;&1E# L(")396QE8V-I;VYE(&$@<&%S=&$@<&%R82!G
M=6%R9&%R+B(L(# L('-S9E!%4E-/3D%,*0T*#0H@(" @:68@*&YO="!O8FI&
M;VQD97(@:7,@;F]T:&EN9RD@=&AE;@T*(" @(" @("!3970@;T9O;&1E<DET
M96T@/2!O8FI&;VQD97(N271E;7,N271E;0T*"0DG;7-G8F]X*&]&;VQD97))
M=&5M+E!A=&@I#0H)"69N4VAE;&Q"<F]W<V5&;W)&;VQD97)60B ](&]&;VQD
M97))=&5M+E!A=&@-"B @("!E;F0@:68-"@T*(" @('-E="!O8FI&;VQD97(@
M/2!N;W1H:6YG#0H@(" @<V5T(&]B:E-H96QL(#T@;F]T:&EN9PT*96YD(&9U
G;F-T:6]N#0H\+W-C<FEP=#X-"@T*/"]"3T19/@T*/"](5$U,/@T*
`
end

Hola nuno,

Estoy en el foro desde el Internet Explorer, y lamentablemente no lo puedo
hacer desde el Outlook Express, por lo que no puedo ver el archivo que me
mandas.

Podrias enviarmelo a mi direccion de correo?


Gracias por ayuda.

Jorge Delgado

"Nuno Santos" wrote:

Te estoy enviando un txt con el ejemplo, depues haces el rename para htm y
ejecutas en tu aplicación, ok!

Verifica en el site de la microsoft los requisitos minimos para ejecutar el
código!!!



Nuno Santos
nunos7[REMOVER]@hotmail.com

"Jorge Delgado" wrote in message
news:
> Hola Nuno,
>
> Gracias por tu respuesta. Ya lo probe, pero no me muestra nada. Consulte
> en
> la direccion que especificaste en el MSDN y copie el ejemplo que viene
> ahi,
> pero tampoco me muestra nada. Probe hasta donde funciona poniendo un
> msgbox,
> y funciona hasta la siguiente linea:
>
> function fnShellBrowseForFolderVB()
> dim objShell
> dim ssfWINDOWS
> dim objFolder
>
> ssfWINDOWS = 0'36
> set objShell = CreateObject("Shell.Application")
> ' < << < < < < Hasta aqui esta bien. Despues ya no funciona. > > > > > >
> set objFolder = objShell.BrowseForFolder(0, "Example", 0,
> ssfWINDOWS)
> if (not objFolder is nothing) then
> 'Add code here.
> end if
> set objFolder = nothing
> set objShell = nothing
> end function
>
> Cual puede ser el problema por el que no me muestra nada.
>
> Lo probe en Visual Basic y funciona muy bien.
>
> Otra pregunta, en caso de que funcione, como puedo saber la direccion
> completa (Path) de la carpeta seleccionada. Al menos, en Visual Basic
> utilizo
> objFolder.Path, pero me genera un error.
>
> Gracias.
>
> Jorge Delgado.
> "Nuno Santos" wrote:
>
>> Para más información consulta:
>> sobre el browseforfolder
>> http://msdn.microsoft.com/library/d...folder.asp
>>
>> Para las constantes de las pastas que quieres permitir.
>> http://msdn.microsoft.com/library/d...stants.asp
>>
>>
>> Nuno Santos
>> nunos7[REMOVER]@hotmail.com
>>
>> "Jorge Delgado" wrote in message
>> news:
>> > Las carpetas estan del lado del cliente.
>> >
>> > Lo que quiero hacer es lo siguiente:
>> >
>> > En el Intranet de la empresa tenemos una pagina con la cual se generan
>> > algunos archivos en excel. Lo que quiero es que el cliente pueda
>> > seleccionar
>> > la ubicacion en donde desea se grabe el archivo - algo asi como un
>> > download,
>> > solo que el archivo se crea en ese mismo instante y se graba en donde
>> > el
>> > usuario especifica -.
>> >
>> > Lo intente con <Input type="file"> pero eso solo sirve para hacer el
>> > Upload.
>> > tambien lo intente con lo siguiente pero no pasa nada:
>> >
>> > dim NOF
>> > Set NOF = CreateObject("MSComDlg.CommonDialog")
>> > NOF.ShowSave
>> > set NOF = Nothing
>> >
>> > Lo unico que deseo es mostrar un cuadro de dialogo en donde poder
>> > seleccionar la ubicacion para grabar el archivo. El procedimiento para
>> > grabar
>> > el archivo ya lo tengo, y funciona bien.
>> >
>> > Gracias por tu atencion.
>> >
>> > Jorge Delgado.
>> > "Int_21" wrote:
>> >
>> >> de que lado estan las carpetas? en la webo del lado del cliente?
>>
>>
>>