Verificar a existência de um diretório qualquer
Gostaria de saber como verificar se existe algum diretório dentro de outro diretório, independente do nome do diretório...
Ex: dentro do diretório ´A´, existe algum outro diretório?
Eu sei que existe a função:
if DirectoryExists(nome do diretório)
mas essa função verifica se existe um diretório em específico... eu preciso de uma função que verifica se existe um diretório qualquer.
Ex: dentro do diretório ´A´, existe algum outro diretório?
Eu sei que existe a função:
if DirectoryExists(nome do diretório)
mas essa função verifica se existe um diretório em específico... eu preciso de uma função que verifica se existe um diretório qualquer.
Rlcdo
Curtidas 0
Respostas
Paulo
19/08/2008
Ve se te ajuda esta função:
function BuscaPasta(Path: String):String;
var
sBusca: TSearchRec;
begin
try
if FindFirst(Path,faDirectory,sBusca) = 0 then
Result := sBusca.Name
else
Result := ´´;
finally
FindClose(sBusca);
end;
end;
GOSTEI 0
Paulo
19/08/2008
Faltou uma dica aí: Se você quiser somente um sudir que comece com a letra F, então a var Path pode estar assim: ´C:\Wer\F*´. Se quiser qualquer subdir, coloque Path assim: ´C:\Wer\*´
C:\Wer >> É o diretório padrão, podendo ser qualquer coisa.
C:\Wer >> É o diretório padrão, podendo ser qualquer coisa.
GOSTEI 0
Rlcdo
19/08/2008
Po, muito obrigado... achei que ninguém fosse me responder... amanhã eu vou testar no meu trabalho
Valeu mesmo :D
Valeu mesmo :D
GOSTEI 0