PRECISO DE UM IF PARA CASO EU NÃO ACHE UMA PASTA NO SISTEMA

Delphi

12/12/2016

Boa tarde , estou realizando a leitura de um arquivo que está localizado em uma determinada pasta , gostaria de saber como fazer um if para caso essa pasta não seja encontrada no meu diretório.
Desde Já Agradeço !
Rodrigo Oliveira

Rodrigo Oliveira

Curtidas 0

Melhor post

Raimundo Pereira

Raimundo Pereira

12/12/2016

var
dirName : String;

begin
// Create a new directory
dirName := 'Test Folder';
CreateDir(dirName);

// Now see if the directory exists
if directoryexists(dirName)
then ShowMessage(dirName+' exists OK')
else ShowMessage(dirName+' does not exist');
GOSTEI 2

Mais Respostas

Raimundo Pereira

Raimundo Pereira

12/12/2016

GOSTEI 0
Rodrigo Oliveira

Rodrigo Oliveira

12/12/2016

mas eu preciso de verificar se (trabalho\\\\RELS\\\\MYSQL5) a pasta mysql5 existe como eu faço ?
GOSTEI 0
Raimundo Pereira

Raimundo Pereira

12/12/2016

var Caminho_Pasta:string;
 begin
 // Troque isso C:\\\\windows\\\\system32 pelo caminho da sua pasta
 Caminho_Pasta:='C:\\\\windows\\\\system32';
 if DirectoryExists(Caminho_Pasta) then
 begin
 ShowMessage(Caminho_Pasta+', existente!');
 end
 else
 begin
 ShowMessage(Caminho_Pasta+', Inexistente!');
 end;
GOSTEI 1
Ricardo Araujo

Ricardo Araujo

12/12/2016

Conseguir resolver ?
GOSTEI 1
Rodrigo Oliveira

Rodrigo Oliveira

12/12/2016

Sim Obrigado !
GOSTEI 0
POSTAR