Buscar Diretório

15/08/2008

1

Estou usando o FindFirst para buscar um SubDiretório em um Diretório, mas não está funcionando. Sei que está faltando algo, o que devo fazer para funcionar minha função? O Diretório mãe, será sempre o mesmo(SWEDA), porem preciso buscar um determinado Subdiretório(variável de acordo com o ECF) dentro do Dir Mãe.
function BuscaPasta(Path: String):String; var sBusca: TSearchRec; begin if FindFirst(Path,faDirectory,sBusca) = 0 then Result := sBusca.Name; end;



Responder

Posts

15/08/2008

Paulo

Faltou parametros completos a minha função. O Path estava vindo somente o Dir mãe, que no meu caso é: ´C:\Sweda´. Como o sub sempre começará com SW, o path deveria vir assim:
´C:\Sweda\SW*´, ai sim, ele traria o SubDir completo.


Responder