Problema Directory()

[JoséQuintas]

Estava com um problema e ia postar aqui, fiz um print-screen.
Até resolvi, mas é esquisito....

A rotina deveria mostrar a pasta HMG3 e todos os bats dentro da pasta, e não estava fazendo isso.
O esquisito é que não estava considerando HMG3 como diretório ofile[ F_ATTR ] == "D"

Resolvi renomeando a pasta para HMG4, criando uma nova pasta HMG3 e movendo todo conteúdo de uma pasta pra outra.

Não faço idéia de como tentar reproduzir.
Alguém tem alguma idéia sobre isso? Talvez nem sempre diretório seja "D" ?

[Jairo Maia]

Olá José,

Porque motivo isso ocorreu com a pasta antiga HMG3 não sei dizer, mas se você colocar por exemplo a pasta "Meus Documentos" no Directory(), ela tem como atributos 2 letras. Tenho uma rotina que precisa localizar a foto do cliente quando se faz o cadastro (pendrive ou câmera instalada) ou quando ele quer alterar a foto, e para que todas as pastas sejam mostradas, precisei alterar que usando o seu exemplo seria de: ( ofile[ F_ATTR ] == "D" ) para ( "D" $ ofile[ F_ATTR ] ).

[JoséQuintas]

Então é isso mesmo, deve ter algum atributo extra, e não fica somente o "D"

[Vlademiro]

Todo dia tem novidade aqui no fórum. Sempre que entro aprendo algo novo.

[JoséQuintas]

Só hoje lembrei de fazer algum teste adicional, pra curiosidade.
Algumas pastas retornaram AD

Código: Selecionar todos

Atributo da pasta AD d:\fivewin\
Atributo da pasta AD d:\_fsys_serv\
Atributo da pasta AD d:\_fsys_serv\_fsys_term\
Atributo da pasta AD d:\_fsys_serv\_fsys_term\_quasarJ\
Atributo da pasta AD d:\_fsys_serv\_fsys_term\_quasarJ\cfg\
Atributo da pasta AD d:\_fsys_serv\_fsys_term\_quasarJ\ctrl\
Atributo da pasta AD d:\_fsys_serv\_fsys_term\_quasarJ\data\
Atributo da pasta AD d:\_fsys_serv\_fsys_term\_quasarJ\mesa\
Atributo da pasta AD d:\_fsys_serv\_tronJ\
Atributo da pasta AD d:\_fsys_serv\_tronJ\boleto\
Atributo da pasta AD d:\_fsys_serv\_tronJ\ctrl\
Atributo da pasta AD d:\_fsys_serv\_tronJ\data\
Atributo da pasta AD d:\_fsys_serv\_tronJ\mesa\
Atributo da pasta AD d:\_fsys_serv\_tronJ\relat\

[JoséQuintas]

Acrescentar mais informação:

Código: Selecionar todos

   aFiles := Directory( cPath + "*.*", "DSH" )

Com isso, mesmo pastas escondidas aparecem.