Dialogo para procurar arquivos

[clodoaldomonteiro]

Olá!

Uso a GTwvw e vi que lá tem umas funções de dialogo tipo choosefont, choosecolor, para mudar fonte e gerenciar cores, queria saber se existe algum dialogo de acesso à arvore de pastas e arquivos, parecido com o do Windows?

[clodoaldomonteiro]

Poderia usar as funções:
DllLoad( )
GetProcAddress()
CallDll()
... mas ai eu teria que saber em qual DLL do windows estaria aquele dialogo que procura os arquivos, e qual o nome da função também.

Ex.:

Código: Selecionar todos

// The example implements a simple command line utility
// that opens a file using the associated file viewer.

   PROCEDURE Main( cFile )
      LOCAL nDll, pFunc

      IF cFile == NIL .OR. .NOT. File( cFile )
         CLS
         ? "File name must be specified"
         QUIT
      ENDIF

      nDll  := DllLoad( "Shell32.dll" )
      pFunc := GetProcAddress( nDll, "ShellExecute" )

      ? CallDll( pFunc, 0, "open", cFile, NIL, NIL, 1 )

      DllUnload( nDll )
   RETURN

[sygecom]

Se tive usando Hwgui junto pode usar:

Para selecionar um arquivo:
cRET := SelectFile( {"Todos os Arquivos" },{"*.*"} )

Para selecionar uma pasta:
cRET := SELECTFOLDER()

[Mário Isa]

Bom dia amigos
Vcs conhecem alguma instrução para selecionar um "conjunto de arquivos" ?

Seria tipo o selectfile() mas que o usuário pudesse Selecionar vários arquivos tipo :

TEXT01.TXT
TEXT02.TXT
TEXT03.TXT
TEXT04.TXT
TEXT05.TXT
TEXT06.TXT
TEXT07.TXT

que ele clicasse no primeiro TEXT01.TXT e shift+clique no TEXT07.txt e assim fizesses uma seleção e o resultado fosse:

"TEXT01.TXT TEXT02.TXT TEXT03.TXT TEXT04.TXT TEXT05.TXT TEXT06.TXT TEXT07.TXT"

Existe ?
:|

[rochinha]

Amiguinhos,

Como se trata de console vai a dica:

Constura um vetor com as informações de arquivos retornadas pela função aDirectory().

Clone o vetor adicionando mais um elementro. Este elemento será o flag para uso do usuário.

Exemplo, vetor 1:

Código: Selecionar todos

...
aFiles := { { "texto1.txt", "data", "hora", "tamanho" } , ;
                { "texto2.txt", "data", "hora", "tamanho" } , ;
                { "texto3.txt", "data", "hora", "tamanho" } , ;
                { "texto4.txt", "data", "hora", "tamanho" } , ;
                { "texto5.txt", "data", "hora", "tamanho" } }
...

Código: Selecionar todos

...
aFiles2 := { { "texto1.txt", "data", "hora", "tamanho". " " } , ;
                 { "texto2.txt", "data", "hora", "tamanho". "X" } , ;
                 { "texto3.txt", "data", "hora", "tamanho". " " } , ;
                 { "texto4.txt", "data", "hora", "tamanho". "X" } , ;
                 { "texto5.txt", "data", "hora", "tamanho", "X" } }
...

Vejam que neste caso exemplifiquei que os ultimos elementos de cada vetor que contenha "X" será nosso ponto de pesquisa.

Objetivo:

Montar uma achoice e por ele passear pelos elementos, usar uma tecla para acrescentar X ou retira-lo do ultimo elemento e de quebra colorir os items do achoice que contenham "X".

Uma ação finalizadora fara uma leitura do vetor aFiles2 montando um vetor unidimensional com o nome de cada arquivo que esta flagueado.

[alxsts]

Olá!

Veja também o tópico Função para Selecionar Arquivo ou Pasta

Tendo os fontes pode-se alterar para ficar multiselect.

[Mário Isa]

Obrigado pelas luzes
-:] :)Pos