1. Anuncie Aqui ! Entre em contato fdantas@4each.com.br

Lupa para escolher diretório

Discussão em 'EMS , HCM e Totvs 11' iniciado por Carlos Alberto Giusti, Junho 4, 2024.

  1. Carlos Alberto Giusti

    Carlos Alberto Giusti Membro Ativo

    Preciso colocar na seleção de relatório uma lupa para buscar as informações do explorer Meu computador para o usuário escolher qual diretório vai salvar as informações.
    Alguém pode me ajudar?
  2. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    O que você quer trazer do explorer? Nome da Pasta/Arquivo, Caminho da pasta/arquivo completo ?
  3. Carlos Alberto Giusti

    Carlos Alberto Giusti Membro Ativo

    Sim
  4. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Sim o que? rsrsrs
  5. Carlos Alberto Giusti

    Carlos Alberto Giusti Membro Ativo

    Todas as pastas do C:/
  6. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Tu pode rodar esse comando via OS-COMMAND e depois ler o lista.txt via INPUT FROM:

    Código:
    DEFINE VARIABLE cDir AS CHARACTER NO-UNDO INITIAL 'C:\'.
    DEFINE VARIABLE cFileStream AS CHARACTER FORMAT "x(50)" NO-UNDO.
    OUTPUT TO "C:\Temp\Lista.txt" NO-CONVERT.
    INPUT FROM OS-DIR(cDir).
    REPEAT:
        IMPORT cFileStream.
        FILE-INFO:FILENAME = cDir + cFileStream.
        PUT UNFORMAT cFileStream " - " FILE-INFO:FILE-TYPE SKIP.
    END.
    INPUT CLOSE.
    OUTPUT CLOSE.
    OS-COMMAND NO-WAIT VALUE("notepad " + QUOTER("C:\Temp\Lista.txt")).
    
    DRW = DIRETÓRIO
    FRW = ARQUIVO

Compartilhe esta Página