Buscar Diretório
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
Curtidas 0
Respostas
Paulo
15/08/2008
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.
GOSTEI 0