Buscar

Testa se um diretorio existe ou nao

Código

Function IsValidDir(S: string): Boolean;
var
SaveDir: string;
begin
SaveDir := GetCurrentDir;
if SetCurrentDir(S) then
begin
Result := True
end
else
begin
Result := False;
end;
SetCurrentDir(SaveDir);
end;
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Object pascal
Adicionada dia: 05/08/03
Por: Mario C. Neto
Visualizada: 2664 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009