Verificar a existência de um diretório qualquer

19/08/2008

1

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.


Responder

Posts

19/08/2008

Paulo

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;



Responder

19/08/2008

Paulo

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.


Responder

19/08/2008

Rlcdo

Po, muito obrigado... achei que ninguém fosse me responder... amanhã eu vou testar no meu trabalho
Valeu mesmo :D


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira