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
#include 'fivewin.ch'
FUNCTION Main()
xBrowse( Directory( cGetDir() ) )
retu nilHola 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
#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 NILGracias 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
José:
Tal vez la función GetFile32() te puede servir. échale una mirada.
Saludos
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
