Buscar arquivos dentro de uma pasta?

Discussão em 'Progress 4GL' iniciado por muertebr, Novembro 4, 2010.

  1. muertebr

    muertebr Membro Participativo

    Como faço para buscar todos os arquivos dentro de uma pasta selecionada?
    Para jogar em um browse...

    E verificando se existe mais pastas dentro da pasta selecionada?

    O formato sei que poderia buscar no seguinte tipo:

    Código:
    message
        file-info:full-pathname skip
        "Tamanho:" file-info:file-size skip
        "Criado:" file-info:file-create-date string(file-info:file-create-time,"HH:MM") skip
        "Ultima Alteração:" file-info:file-mod-date string(file-info:file-mod-time,"HH:MM") skip
        "Tipo:" file-info:type
        view-as alert-box.
    o help do meu editor infelizmente não está funcionando dai ta dificil de eu conseguir alguma informação de comandos.
  2. jalegria

    jalegria Membro Participativo

  3. MFerreira

    MFerreira Membro Participativo

    Olá amigo:"

    A importação com o os-dir ainda é a melhor forma, mas eu ainda ela não lista os subdiretórios sem ter que fazer recursivamente.
    Por isso quando preciso listar arquivos de um sub-diretório, uso o código abaixo.

    Código:
    DEFINE VARIABLE cdir AS CHARACTER   NO-UNDO.
    DEFINE VARIABLE carq AS CHARACTER   NO-UNDO.
    
    ASSIGN cdir = "c:\temp\".
    INPUT  THROUGH  VALUE("dir /b/s " + cDir + "*.*").
    REPEAT:
        IMPORT carq.
        ASSIGN file-info:FILE-NAME = cArq.
        DISP file-info:FULL-PATHNAME.
    END.
    INPUT CLOSE.
    
  4. muertebr

    muertebr Membro Participativo

    hummmm... to fazendo aki uns código usando ae oq vc mando e mais do otro tópico.

    Ele pega até os arquivo oculto, (deletado).

    Só vo ter que faze uns ajuste aqui... mais isso ai mesmo que eu queria.
    vlw

Compartilhe esta Página