Como usar o GetFile

GETFILE()

Ola Camaradas!

Tem como objetivo abrir uma janela padrão do Windows para selecionar um ou mais arquivos. Esta função retornara em modo simples um conteúdo do tipo caractere com o nome mais pasta do arquivo escolhido, em modo múltiplo retorna um conteúdo do tipo matriz com os nomes mais pastas dos arquivos escolhidos.

Exemplo:

cFile := GetFile ( acFilter , cTitle , cDefaultPath , lMultiSelect )

aFiles := GetFile ( acFilter , cTitle , cDefaultPath , lMultiSelect )

Explicando:

• cFilter -> Matriz com a descrição do tipo de arquivo e a extensão do arquivo;
• cTitle -> Titulo da janela do Windows;
• cDefaultPath -> A pasta onde a janela sempre vai abrir como padrão;
•  lMultiSelect -> Falso (.f.) para abrir um soh arquivo, Verdadeiro (.t.) para abrir vários arquivos, quando enviarmos sinal de falso receberemos como retorno um conteúdo caractere, quando enviarmos sinal de verdadeiro receberemos como retorno um conteúdo matriz.

Exemplo de código para selecionar um único arquivo:

/*
GetFile Simples
*/
.
.
.
// GETFILE vai abrir a janela na raiz com tipo de arquivo DBF
// e retornara um conteúdo para a variável cArquivo, caso não seja selecionado nada
// retornara um conteúdo vazio
cArquivo := Getfile ( { {'Arquivos do tipo DBF','*.dbf'},;
{'Arquivos do tipo NTX','*.ntx'},;
{'Todos os arquivos','*.*'} } , 'Abrir arquivo' , 'C:\' , .f. )
If !Empty (cArquivo)
   MsgInfo ( "Voce escolheu o arquivo [" + cArquivo + "]" )
Else
   MsgInfo ( "Nenhum arquivo escolhido" )
End
.
.
.

Exemplo de código para selecionar vários arquivos:

/*
Get File Multi
*/
.
.
.
// GETFILE vai abrir a janela na raiz com tipo de arquivo DBF
// e retornara um conteúdo para a variável caArquivo, caso não seja selecionado nada
// retornara um conteúdo de matriz vazia
acArquivo := Getfile ( { {'Arquivos do tipo DBF','*.dbf'},;
{'Arquivos do tipo NTX','*.ntx'},;
{'Todos os arquivos','*.*'} } , 'Abrir arquivo' , 'C:\' , .t. )
If Len (acArquivo) > 0
   For nPos := 1 To Len(acArquivo)
      MsgInfo ( "Voce escolheu o arquivo [" + acArquivo [nPos] + "]" )
   Next
Else
   MsgInfo ( "Nenhum arquivo escolhido" )
End
.
.
.

Ate+

NOTA: Elaborei o pequeno tutorial acreditando que o leitor já conheça o mínimo de programação, sabe que variáveis que começam com a letra “c” normalmente foram criadas assim para armazenar conteúdo do tipo CHARACTER (caractere) e variáveis que começam com a letra “a” normalmente recebem valores do tipo ARRAY (matriz). Assim sendo aquelas que recebem “ac” dizem respeito a conteúdo do tipo ARRAY e dentro da matriz existe conteúdo CHARACTER.