[Resolvido] verificar existencia de diretorio

[Renanbg 1]

Olá pessoal,

 

uso o codigo abaixo pata verificar se um diretorio existe

 

if not DirectoryExists(Caminho_banco.value) then
	 begin
	  Application.MessageBox('Caminho da base de dados não existente ou incorreto!'+#13+'Verifique as configurações do sistema.','ATENÇÃO',MB_ICONWARNING + MB_OK);
	  exit;
	 end
	else
	executa procedimentos

Funciona bem, mas nesse caso em especifico o "Caminho_banco.value" esta gravado assim: C:\teste\*.*

 

Tem como eu retirar o "\*.*" do final para poder verificar se o diretorio existe corretamente?

[Paulo do Brasil 0]

Exemplo...

 

Var
  sPasta: String;
Begin
sPasta := Caminho_banco.value;
sPasta := Copy(sPasta, 1, Length(sPasta)-4);

if not DirectoryExists(sPasta) then...

Ok?

[Renanbg 1]

Hum,

 

Length - 4 vai retirar os ultimos 4 caracteres e então deve funcionar.

 

To com os fontes em casa e hoje a noite vou testar e volto para avisar como foi

 

obrigado

[marcio.theis 3]

Outra forma que pode fazer:

 

if (not DirectoryExists(ExtractFilePath(Caminho_banco.value))) then
	begin
	Application.MessageBox('Caminho da base de dados não existente ou incorreto!'+#13+'Verifique as configurações do sistema.','ATENÇÃO',MB_ICONWARNING + MB_OK);
	exit;
	end
else
	executa procedimentos

[Renanbg 1]

Perfeito, as duas dicas funcionaram super bem

 

Obrigado pessoal