Seleccionar Carpeta con ASP

04/04/2005 - 20:47 por Jorge Delgado | Informe spam
Hola grupo,

Tengo una pagina en ASP, en donde tengo que grabar ciertos datos a un
archivo, tengo un cuadro de txto en donde el usuario escribe la direccion en
donde se guardara el archivo. Todo funciona muy bien gracias a los
comentarios que he visto aqui en el foro. Mi pregunta es como puedo hacer
para crear/abrir una ventana en donde el usuario pueda seleccionar la carpeta
en donde desea guardar el archivo, en lugar de tener que escribirla. Algo asi
como la ventana de "Guardar como" que se utiliza en las aplicaciones al
guardar un archivo.

Espero me haya expresado bien, me entiendan y me puedan orientar.

Gracias por su atencion.

Saludos.

Atte.
Jorge Delgado.

Preguntas similare

Leer las respuestas

#1 Int_21
05/04/2005 - 14:41 | Informe spam
de que lado estan las carpetas? en la webo del lado del cliente?
Respuesta Responder a este mensaje
#2 Jorge Delgado
06/04/2005 - 17:21 | Informe spam
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?
Respuesta Responder a este mensaje
#3 Nuno Santos
06/04/2005 - 17:52 | Informe spam
Tenta con esto:

function fnShellBrowseForFolderVB()
On Error Resume Next
dim objShell,strPath,returnerror,intColonPos
dim ssfWINDOWS,ssfMYPICTURES,ssfDRIVES,ssfDESKTOP,ssfPERSONAL
dim objFolder

ssfWINDOWS = 36
ssfMYPICTURES = 39
ssfDRIVES = 17
ssfDESKTOP = 0
ssfPERSONAL = 5
set objShell = CreateObject("Shell.Application")
set objFolder = objShell.BrowseForFolder(&H0, "Seleccione a pasta para
guardar.", 0, ssfPERSONAL)

if (not objFolder is nothing) then
Set oFolderItem = objFolder.Items.Item
'msgbox(oFolderItem.Path)
fnShellBrowseForFolderVB = oFolderItem.Path
end if


set objFolder = nothing
set objShell = nothing
end function

Después diz cualquier cosa,
Nuno Santos


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?
Respuesta Responder a este mensaje
#4 Nuno Santos
06/04/2005 - 18:01 | Informe spam
Se me olvidó decir que tienes que colocar esto dentro de un script de
VBScrirpt :-)
Te envio un ejemplillo funcionando...

<codigo>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<BODY>

<P><INPUT type="text" id=text1 name=text1 sizeE>&nbsp;
<INPUT type="button" value=" ... " id=button1 name=button1
onclick="VBScript:text1.value = fnShellBrowseForFolderVB()"></P>

<script language="VBScript">
function fnShellBrowseForFolderVB()
On Error Resume Next
dim objShell,strPath,returnerror,intColonPos
dim ssfWINDOWS,ssfMYPICTURES,ssfDRIVES,ssfDESKTOP,ssfPERSONAL
dim objFolder

ssfWINDOWS = 36
ssfMYPICTURES = 39
ssfDRIVES = 17
ssfDESKTOP = 0
ssfPERSONAL = 5
set objShell = CreateObject("Shell.Application")
set objFolder = objShell.BrowseForFolder(&H0, "Seleccione a pasta para
guardar.", 0, ssfPERSONAL)

if (not objFolder is nothing) then
Set oFolderItem = objFolder.Items.Item
'msgbox(oFolderItem.Path)
fnShellBrowseForFolderVB = oFolderItem.Path
end if

set objFolder = nothing
set objShell = nothing
end function
</script>

</BODY>
</HTML>

</codigo>

Nuno Santos


Nuno Santos
nunos7[REMOVER]@hotmail.com

"Nuno Santos" <nunos7[REMOVE]@hotmail.com> wrote in message
news:
Tenta con esto:

function fnShellBrowseForFolderVB()
On Error Resume Next
dim objShell,strPath,returnerror,intColonPos
dim ssfWINDOWS,ssfMYPICTURES,ssfDRIVES,ssfDESKTOP,ssfPERSONAL
dim objFolder

ssfWINDOWS = 36
ssfMYPICTURES = 39
ssfDRIVES = 17
ssfDESKTOP = 0
ssfPERSONAL = 5
set objShell = CreateObject("Shell.Application")
set objFolder = objShell.BrowseForFolder(&H0, "Seleccione a pasta para
guardar.", 0, ssfPERSONAL)

if (not objFolder is nothing) then
Set oFolderItem = objFolder.Items.Item
'msgbox(oFolderItem.Path)
fnShellBrowseForFolderVB = oFolderItem.Path
end if


set objFolder = nothing
set objShell = nothing
end function

Después diz cualquier cosa,
Nuno Santos


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?






Respuesta Responder a este mensaje
#5 Nuno Santos
06/04/2005 - 18:06 | Informe spam
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?
Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida