Selecionando vários arquivos com o VFP 9.0

[Marcos Guedes]

Em algumas de nossas aplicações, faz-se necessário realizarmos filtros de vários arquivos a serem utilizados.
Com este tutorial veremos uma forma simples e prática de se fazer isto.

• Adicione um novo formulário ao seu projeto;
  
• Em seguida acesse Menu -> Component Gallery -> Foundation Classes -> Dialogs;
  
• Você encontrará um componente chamado Common Dialog;
  Arraste-o para o seu formulário, ou clique com o botão direito do mouse sobre o componente, escolha a opção "Add to Form" e selecione o formulário desejado;
  
• Tendo incluído o componente em seu formulário, renomei a propriedade "name" para "cdArquivos";
  
• Adicione um botão ao seu formulário e inclua o seguinte código:
  

  Código:

  WITH THISFORM.cdarquivos
   .ctitlebartext = "Selecione os Arquivos"
   .clearfilters()
   .nfilecount = 0
   .lallowmultiselect = .T.
   .aFilterList[1,1] = [Imagens (*.bmp, *.gif, *.jpg)]
   .aFilterList[1,2] = [*.bmp;*.gif;*.jpg;*.jpeg]
   .addfilter([Projetos Foxpro (*.pjx, *.pjt)],[*.pjx;*.pjt;])
   .addfilter([MS Office (doc,ppt,xls)],[*.doc;*.ppt;*.xls])
   .showdialog()

   IF (.nfilecount>0)
      FOR contador=1 TO .nfilecount
         MESSAGEBOX(ADDBS(.cfilepath) + .afilenames[1,contador])
      ENDFOR
   ELSE
      MESSAGEBOX("Nenhum arquivo selecionado!", 64)
   ENDIF
ENDWITH

  
  
• Agora execute o seu formulário e veja como ficou o exemplo.

- .ctitlebartext = "Selecione os Arquivos": Define o nome da caixa de diálogo;
- .clearfilters(): Limpa o filtro;
- .nfilecount = 0: Reseta o contador de arquivos;
- .lallowmultiselect = .T.: Ativa a multiseleção de arquivos;
- .aFilterList[1,1] = [Imagens (*.bmp, *.gif, *.jpg)]: Substitui a opção "All Files" pela descrição contida entre [] (Colchetes);
- .aFilterList[1,2] = [*.bmp;*.gif;*.jpg;*.jpeg]: Arquivos que serão filtrados conforme descrito na propriedade ".aFilterList[1,1]";
- .addfilter([Projetos Foxpro (*.pjx, *.pjt)],[*.pjx;*.pjt;]): Adiciona mais opções de filtro à caixa de diálogo (Projetos em Foxpro);
- .addfilter([MS Office (doc,ppt,xls)],[*.doc;*.ppt;*.xls]): Adiciona mais opções de filtro à caixa de diálogo (Arquivos do Microsoft Office);
- .showdialog(): Exibe a caixa de diálogo;
- IF (.nfilecount>0): Se arquivos foram selecionados, o valor retornado será maior que 0 (Zero);
- FOR contador=1 TO .nfilecount: Percorre a quantidade de arquivos selecionados;
- MESSAGEBOX(ADDBS(.cfilepath) + .afilenames[1,contador]): Exibe uma mensagem contendo o caminho e nome do arquivo selecionado.

Obs: Havendo necessidade de permitir a seleção de qualquer tipo de arquivo, retire as linhas que contém o conteúdo ".aFilterList[1,1]" e ".aFilterList[1,2]"

Clique aqui para baixar um exemplo!

Espero que este simples tutorial tenha utilidade para os colegas.
Qualquer dúvida é só postar!

[jailson]

ola consegui criar o common dialog esta funcionando!! o problema é que no windowns vista a caixa de seleção se maximiza cobrindo a tela enteira. Poderia me dar algumas dicas?
flw