(Resolvido) Verificar pasta e arquivo em rede

[Duduh_Capixaba]

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?!

[Jhonas]

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

[Duduh_Capixaba]

Obrigado Jhonas, resolvi! Na verdade era um outro problema que estava acontecendo antes de chegar nessa rotina. Havia um caractere a mais no caminho da pasta. Nada que um "showmessage" não resolva. Obrigado!

[Duduh_Capixaba]

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 Outubro 24, 2008 por Duduh_Capixaba