Urgente os-dir

Discussão em 'Progress 4GL' iniciado por antonioc, Julho 7, 2015.

  1. antonioc

    antonioc Membro Participativo

    Bom dia.

    Preciso buscar arquivos em determinadas pastas.
    O progress diz que a pasta não existe.

    O meu problema é o "~" entre o 30 e o 49 no nome da pasta. Não posso alterar isto.

    Alguém tem uma idéia de como fazer para pegar o nome da pasta completo?

    O Sistema diz " S:\imagem\CODIGO item\3049_CONJUNTOS" não existe, ou seja ele ignora o "~".

    Abaixo o programa.

    Obrigado

    DEF VAR v-pasta AS CHAR FORMAT "x(020)".
    DEF VAR v-caminho AS CHAR FORMAT "x(020)".
    DEF VAR v-tipo AS CHAR.
    DEF VAR v-pastas AS CHAR.
    ASSIGN v-pastas = "S:\imagem\CODIGO item\30~49_CONJUNTOS".
    INPUT FROM OS-DIR(v-pastas) CONVERT SOURCE "iso8859-1".
    REPEAT:
    IMPORT v-pasta v-caminho v-tipo.
    IF v-tipo <> "D" OR v-pasta = "." or
    v-pasta = ".." THEN NEXT.
    DISP v-pasta
    v-caminho FORMAT "x(040)"
    v-tipo.
    END.
    antonioc, Julho 7, 2015
    #1
  2. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Tente isso:

    Código:
    INPUT FROM OS-DIR(QUOTER(v-pastas)) NO-CONVERT.
    rafael.andrade, Julho 7, 2015
    #2
  3. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    ou melhor, coloque 2 "til" seguidos.

    Código:
    DEF VAR v-pasta AS CHAR FORMAT "x(020)".
DEF VAR v-caminho AS CHAR FORMAT "x(020)".
DEF VAR v-tipo AS CHAR.
DEF VAR v-pastas AS CHAR.
ASSIGN v-pastas = "S:\imagem\CODIGO item\30~~49_CONJUNTOS".
INPUT FROM OS-DIR(v-pastas) NO-CONVERT.
REPEAT:
IMPORT v-pasta v-caminho v-tipo.
IF v-tipo <> "D" OR v-pasta = "." or
v-pasta = ".." THEN NEXT.
DISP v-pasta
v-caminho FORMAT "x(040)"
v-tipo.
END.
    rafael.andrade, Julho 7, 2015
    #3

Compartilhe esta Página