Problemas com busca/cópia de arquivos

Delphi

12/03/2009

Bom dia,
Tenho um algoritmo que procura arquivos em uma pasta e copia para outra utilizando TSearchRec e CopyFile. A unidade Z: é um mapeamento de um servidor Linux com o Samba instalado.
var
  SearchRec: TSearchRec;
  SearcRet: Integer;
begin
  SearchRet := FindFirst(´Z:\Imagens\Estaticas\*.*´, faAnyFile, SearchFile);
  while SearchRet = 0 do
  begin
    if ((SearchFile.Attr and $20) > 0) and (ExtractFileExt(SearchFile.Name) = ´.jpg´) then
      CopyFile(´Z:\Imagens\Estaticas\´+SearchFile.Name, ´C:\Imagens\JPG\´+SearchFile.Name, False)
    else if ((SearchFile.Attr and $20) > 0) and (ExtractFileExt(SearchFile.Name) = ´.bmp´) then
      CopyFile(´Z:\Imagens\Estaticas\´+SearchFile.Name, ´C:\Imagens\BMP\´+SearchFile.Name, False);
    SearchRet := FindNext(SearchFile);
  end;
  FindClose(SearchFile);
end;
O algoritmo sempre funcionou nesta unidade, porém, agora o resultado da operação (SearchFile.Attr and $20) está retornando SEMPRE 0 fazendo com que nunca entre no if.
Tentei substituir o laço por simples CopyFile(´Z:\Imagens\Estaticas\*.jpg´, ´C:\Imagens\BMP\´, False) mas também não funcionou. Alguém aí tem uma resposta?


Marcosrocha

Marcosrocha

Curtidas 0
POSTAR