terça-feira, 29 de setembro de 2009

Testa se um diretorio existe ou nao

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;

Nenhum comentário:

Postar um comentário