Hola amigos del foro,
Deseo saber en que forma puedo mostrar el contenido de una carpeta al hacer un clic en un boton del programa, es decir, si en mi aplicacion existe una carpeta \PROG\ARCHIVOS deseo ver el contenido del ARCHIVOS pero como una ventana de Windows...
Gracias por su ayuda
Como puede hacer esto:
Re: Como puede hacer esto:
J,
Code: Select all
#include 'fivewin.ch'
FUNCTION Main()
xBrowse( Directory( cGetDir() ) )
retu nil
Salutacions, saludos, regards
"...programar es fácil, hacer programas es difícil..."
https://modharbour.app
https://modharbour.app/compass
https://forum.modharbour.app
"...programar es fácil, hacer programas es difícil..."
https://modharbour.app
https://modharbour.app/compass
https://forum.modharbour.app
Re: Como puede hacer esto:
Hola Carles, gracias por contestar
Lo que intento hacer es lo siguiente:
Tengo un programa que utilizo para controlar las diferentes tareas de un proyecto. Generalmente los proyectos pueden tener archivos de diversa naturaleza Word, XLS, MP3, etc los cuales quiero tener agrupados en folders que el programa automaticamente abra para cada proyecto definido... Lo unico que deseo es que el usuario por medio de un boton pueda abrir una ventana de explorador con el contenido de esos archivos (o en blanco en caso de no tener nada) para que facilmente pueda copiar en dicha ventana todos los documentos relacionados con el proyecto.
Gracias
Lo que intento hacer es lo siguiente:
Tengo un programa que utilizo para controlar las diferentes tareas de un proyecto. Generalmente los proyectos pueden tener archivos de diversa naturaleza Word, XLS, MP3, etc los cuales quiero tener agrupados en folders que el programa automaticamente abra para cada proyecto definido... Lo unico que deseo es que el usuario por medio de un boton pueda abrir una ventana de explorador con el contenido de esos archivos (o en blanco en caso de no tener nada) para que facilmente pueda copiar en dicha ventana todos los documentos relacionados con el proyecto.
Gracias
Re: Como puede hacer esto:
J,
No entiendo lo q quieres hacer pero por si te sirve, en este ejemplo muestras en un browse el contenido de una carpeta (por defecto la unidad en la q estas, pero puedes indicarles la carpeta q quieras), y mediante drag&drop puedes arrastras mas ficheros desde el explorador u otra aplicacion y procesarlos posteriormente... no se q es lo q quieres exactamente....
No entiendo lo q quieres hacer pero por si te sirve, en este ejemplo muestras en un browse el contenido de una carpeta (por defecto la unidad en la q estas, pero puedes indicarles la carpeta q quieras), y mediante drag&drop puedes arrastras mas ficheros desde el explorador u otra aplicacion y procesarlos posteriormente... no se q es lo q quieres exactamente....
Code: Select all
#include 'fivewin.ch'
#include 'xBrowse.ch'
*--------------
FUNCTION Main()
*--------------
LOCAL oWnd, oBrw
LOCAL aDir := Directory()
DEFINE WINDOW oWnd TITLE 'Arrastra ficheros desde el explorador'
@0,0 XBROWSE oBrw ARRAY aDir
oBrw:CreateFromCode()
oWnd:oClient := oBrw
ACTIVATE WINDOW oWnd ON DROPFILES MyDrop( nRow, nCol, aFiles, oBrw )
retu nil
*-------------------------------------------------
STATIC FUNCTION MyDrop( nRow, nCol, aFiles, oBrw )
*-------------------------------------------------
LOCAL nI
LOCAL cTxt := ''
FOR nI := 1 TO Len( aFiles )
cTxt += aFiles[nI] + CRLF
Aadd( oBrw:aArrayData, { aFiles[nI], 0, CToD(''), '', '' } )
NEXT
oBrw:Refresh()
MsgInfo( cTxt, 'Procesar estos ficheros' )
RETU NIL
Salutacions, saludos, regards
"...programar es fácil, hacer programas es difícil..."
https://modharbour.app
https://modharbour.app/compass
https://forum.modharbour.app
"...programar es fácil, hacer programas es difícil..."
https://modharbour.app
https://modharbour.app/compass
https://forum.modharbour.app
Re: Como puede hacer esto:
Gracias por tu respuesta Carles seguro la voy a aplicar aunque lo que necesito es algo mucho mas simple.
Veras, es como cuando abres una nueva carpeta en el disco duro y luego hacer doble clic en ella y el windows abre una ventana que muestra el contenido de la misma. Alli incluso al hacer clic derecho se abre un menu contextual que permite entre otras cosas crear nuevos archivos... Eso es lo unico que deseo, que el sistema abra la pantalla (de Windows) que muestre el contenido de una X carpeta...
Gracias
Veras, es como cuando abres una nueva carpeta en el disco duro y luego hacer doble clic en ella y el windows abre una ventana que muestra el contenido de la misma. Alli incluso al hacer clic derecho se abre un menu contextual que permite entre otras cosas crear nuevos archivos... Eso es lo unico que deseo, que el sistema abra la pantalla (de Windows) que muestre el contenido de una X carpeta...
Gracias
Re: Como puede hacer esto:
José:
Tal vez la función GetFile32() te puede servir. échale una mirada.
Saludos
Tal vez la función GetFile32() te puede servir. échale una mirada.
Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Re: Como puede hacer esto:
Gracias Armando
Es casi perfecta para lo que requiero y digo casi debido a que me muestra todos los archivos que necesito pero al hacer doble clic en alguno de ellos no se abre (seria lo deseable) aunque haciendo clic derecho puedo usar la opcion Abrir del menu contextual asi que me funciona bien asi....
Gracias
Es casi perfecta para lo que requiero y digo casi debido a que me muestra todos los archivos que necesito pero al hacer doble clic en alguno de ellos no se abre (seria lo deseable) aunque haciendo clic derecho puedo usar la opcion Abrir del menu contextual asi que me funciona bien asi....
Gracias