Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Verificar pasta e arquivo em rede


Duduh_Capixaba

Pergunta

Olá galera!

Tenho aqui um código bem simples que verifica a existência de uma pasta e de um arquivo em uma rede interna.

O código que verifica o arquivo já está funcionando:

Edit1.Text = \\estacao\C\Pasta\

Edit2.Text = \\estacao\C\Pasta\Arquivo.ext

if not FileExists(Edit2.Text) then
    ShowMessage('Arquivo não encontrado. Verifique!')
else
  ShowMessage('Arquivo encontrado!');
Já o código para verificar a pasta, não funciona. Ele sempre diz que não encontra a pasta, sendo que é a mesma pasta onde eu procuro o arquivo, como vocês podem conferir no Edit1 e Edit2:
if not DirectoryExists(Edit1.Text) then
  ShowMessage('Diretório não existe. Verifique!')
else
  ShowMessage('Diretório encontrado!');

Já tentei colocar o conteúdo do Edit2.Text também, mas acontece a mesma coisa. Alguém pode me dar uma luz?!

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0
Já o código para verificar a pasta, não funciona. Ele sempre diz que não encontra a pasta, sendo que é a mesma

pasta onde eu procuro o arquivo, como vocês podem conferir no Edit1 e Edit2:

Se voce está procurando por Pastas não pode colocar barra no final....

exemplo :

\\Cyber\D\BMPS

Edit1.Text = \\estacao\C\Pasta

uses FileCtrl;

procedure TForm1.Button1Click(Sender: TObject);
begin
   if not DirectoryExists(Edit1.Text) then
     ShowMessage('Diretório não existe. Verifique!')
   else
     ShowMessage('Diretório encontrado!');
end;

abraço

Link para o comentário
Compartilhar em outros sites

  • 0

Agora, outra coisa que esqueci de pedir...

Como faço para transformar uma string:

"C:\Pasta\Arquivo.ext"

para:

"\\estacao\C\Pasta\Arquivo.ext"?

Sei que o Delphi tem um comando para pegar apenas parte de uma string, mas não faço idéia que qual seja. Assim, sendo que eu possuo o valor "\\estacao" em outra variável, bastaria tirar o ":".

------------------------------------------------------------------

Edição:

Consegui com o SelStart e SelLength. Obrigado!

Editado por Duduh_Capixaba
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...