Como puede hacer esto:

[JoseGS]

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

[Carles]

J,

Code: Select all  Expand view

#include 'fivewin.ch'

FUNCTION Main()

     xBrowse( Directory( cGetDir() ) )

retu nil

[JoseGS]

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

[Carles]

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....

Code: Select all  Expand view

#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

[JoseGS]

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

[Armando]

José:

Tal vez la función GetFile32() te puede servir. échale una mirada.

Saludos

[JoseGS]

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