Buscar Diretório
15/08/2008
0
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;
Paulo
Curtir tópico
+ 0
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.
´C:\Sweda\SW*´, ai sim, ele traria o SubDir completo.
Responder
Clique aqui para fazer login e interagir na Comunidade :)