Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
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?
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)');
Somente o nome dos arquivos?
Não, vou ter que liberar os arquivos para download tambem.
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)');
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.
Isso eu coloco nas macros ou no executor de script mesmo?
No script mesmo
INLINE '$(vFoundFile)' (fix, no labels);
esta dando erro.
Tem uma virgula sobrando após "NomeArquivoCompleto"
OBS: Remova a barra final do seu path, ou então altere, na linha do for, '\*.*' para '*.*'