LISTAGEM DE ARQUIVOS DO PC

[#1]

Senhores, bom dia. Estou trabalhando em um projeto de digitalização de arquivos. A ideia é que no painel que disponibilizo aos meus clientes eu disponibilize também os arquivos armazenados deles.

O que vocês me sugerem para fazer isso?

[nicolett_yuri]

Somente o nome dos arquivos?

[#3]

Não, vou ter que liberar os arquivos para download tambem.

[nicolett_yuri · Accepted solution]

Essa rotina busca todos os arquivos da árvore de diretórios que você setar

SET vPath = 'C:\';

/*

  Procurando por arquivos para execução manual.

*/

sub QVWDir(Root)

  FOR each vFoundFile in filelist( '$(Root)' & '\*.*' )

  Trace >> Arquivo Encontrado: $(vFoundFile);

  LogManual_Atual:

  LOAD

  [@1:n] as NomeArquivoCompleto,

  INLINE '$(vFoundFile)' (fix, no labels);

  NEXT vFoundFile;

  FOR each Dir in dirlist( '$(Root)' & '\*' )

  call QVWDir('$(Dir)')

  NEXT Dir;

end sub

Call QVWDir('$(vPath)');

[nicolett_yuri]

Depois de achar o caminho completo dos arquivos, basta você colocar em uma tabela simples e adicionar como LINK. Quando o usuário clicar, vai fazer download do arquivo.

Lembre-se que esses arquivos deverão estar em um diretório compartilhado.

[#6]

Isso eu coloco nas macros ou no executor de script mesmo?

[nicolett_yuri]

No script mesmo

[#8]

  INLINE '$(vFoundFile)' (fix, no labels);

esta dando erro.

[nicolett_yuri]

Tem uma virgula sobrando após "NomeArquivoCompleto"

[nicolett_yuri]

OBS: Remova a barra final do seu path, ou então altere, na linha do for, '\*.*' para '*.*'