Fórum PRECISO DE UM IF PARA CASO EU NÃO ACHE UMA PASTA NO SISTEMA #572556

12/12/2016

0

Delphi

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

Responder

Post mais votado

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');

Raimundo Pereira

Raimundo Pereira
Responder

Gostei + 2

Mais Posts

12/12/2016

Raimundo Pereira

Link do conteúdo
Responder

Gostei + 0

12/12/2016

Rodrigo Oliveira

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

Gostei + 0

13/12/2016

Raimundo Pereira 

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;
Responder

Gostei + 1

13/12/2016

Ricardo Araujo

Conseguir resolver ?
Responder

Gostei + 1

13/12/2016

Rodrigo Oliveira

Sim Obrigado !
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar