subject:"\[delphi\-br\] Mover Arquivos"

[delphi-br] Mover Arquivos

2006-03-15 Por tôpico Rodrigo - Winsoft

Mensagem de erro:

Não é possível mover arquivo. Não é possível ler o arquivo ou disco de origem..

Os caminhos e os arquivos estão corretos, já verifiquei isso

Fiz o seguinte loop tentando forçar a mover...

aux_mover := False;
repeat
  aux_mover := ProcessArquivo('C:\Sei\Arquivo\Rec\' + diretorio + '\' + 
nome_arquivo, 'C:\Sei\Arquivo\Rec\' + diretorio + '\arq_lido\', 1, 2);
 until (aux_mover);

as vezes funciona normal, as vezes da um erro na primeira vez, e na segunda ele 
passa, as vezes o erro é sempre, ele não sai deste loop..

Obrigado.

Rodrigo Pedroso
Winsoft Informática - (14) 3664-1586
[EMAIL PROTECTED]

[As partes desta mensagem que não continham texto foram removidas]



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

RES: [delphi-br] Mover Arquivos

2006-03-15 Por tôpico Walter Alves Chagas Junior

Qual que é o erro que tá ocorrendo Rodrigo? Posta a mensagem de erro aqui na
lista pra nós.

[]s

Walter Alves Chagas Junior
Projeto e desenvolvimento de sistemas
Telemont Engenharia de telecomunicações
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Rodrigo - Winsoft
Enviada em: quarta-feira, 15 de março de 2006 16:13
Para: Lista - Delphi-br
Assunto: [delphi-br] Mover Arquivos


Boa tarde galera...

Estou com um probleminha.

Tenho a função abaixo q utilizo pra copiar ou mover arquivos Na maioria
da vezes ela funciona legal...mas as vezes não consegue mover ou copiar o
arquivo... Preciso de algo q consiga mover sem dar erro...

Será q alguem poderia me ajudar ?

Desde já agradeco...

function ProcessArquivo(const Origem, Destino : string; Operacao,
Modo:Integer) : Boolean;
Const
  Aborted : Boolean = False;
var
  shfo : TSHFileOpStruct;
begin
  FillChar(shfo,SizeOf(shfo),$0);
  with shfo do
  begin
if Operacao > 2 then
begin
  operacao := 2;
end;

if Modo > 5 then
begin
  modo := 1;
end;

case operacao of
   1: wFunc := FO_MOVE;
   2: wFunc := FO_COPY;
end;

pFrom := Pchar(Origem);
pTo := Pchar(Destino);
case Modo of
  1: fFlags := FOF_SILENT;
  2: fFlags := FOF_ALLOWUNDO or FOF_FILESONLY;
  3: fFlags := FOF_RENAMEONCOLLISION;
  4: fFlags := FOF_NOCONFIRMATION;
  5: fFlags := FOF_SIMPLEPROGRESS;
end;
  end;
  Result := (SHFileOperation(shfo)= 0) and (not Aborted);
end;




Obrigado.

Rodrigo Pedroso
Winsoft Informática - (14) 3664-1586
[EMAIL PROTECTED]

Obrigado.

Rodrigo Pedroso
Winsoft Informática - (14) 3664-1586
[EMAIL PROTECTED]

[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>


 
Links do Yahoo! Grupos




 



[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

RE: [delphi-br] Mover Arquivos

2006-03-15 Por tôpico Rubem Nascimento da Rocha

Qual é o erro, companheiro?
Sds.


>From: "Rodrigo - Winsoft" <[EMAIL PROTECTED]>
>Reply-To: delphi-br@yahoogrupos.com.br
>To: "Lista - Delphi-br" 
>Subject: [delphi-br] Mover Arquivos
>Date: Wed, 15 Mar 2006 16:13:06 -0300
>
>Boa tarde galera...
>
>Estou com um probleminha.
>
>Tenho a função abaixo q utilizo pra copiar ou mover arquivos Na maioria 
>da vezes ela funciona legal...mas as vezes não consegue mover ou copiar o 
>arquivo... Preciso de algo q consiga mover sem dar erro...
>
>Será q alguem poderia me ajudar ?
>
>Desde já agradeco...
>
>function ProcessArquivo(const Origem, Destino : string; Operacao, 
>Modo:Integer) : Boolean;
>Const
>   Aborted : Boolean = False;
>var
>   shfo : TSHFileOpStruct;
>begin
>   FillChar(shfo,SizeOf(shfo),$0);
>   with shfo do
>   begin
> if Operacao > 2 then
> begin
>   operacao := 2;
> end;
>
> if Modo > 5 then
> begin
>   modo := 1;
> end;
>
> case operacao of
>1: wFunc := FO_MOVE;
>2: wFunc := FO_COPY;
> end;
>
> pFrom := Pchar(Origem);
> pTo := Pchar(Destino);
> case Modo of
>   1: fFlags := FOF_SILENT;
>   2: fFlags := FOF_ALLOWUNDO or FOF_FILESONLY;
>   3: fFlags := FOF_RENAMEONCOLLISION;
>   4: fFlags := FOF_NOCONFIRMATION;
>   5: fFlags := FOF_SIMPLEPROGRESS;
> end;
>   end;
>   Result := (SHFileOperation(shfo)= 0) and (not Aborted);
>end;
>
>
>
>
>Obrigado.
>
>Rodrigo Pedroso
>Winsoft Informática - (14) 3664-1586
>[EMAIL PROTECTED]
>
>Obrigado.
>
>Rodrigo Pedroso
>Winsoft Informática - (14) 3664-1586
>[EMAIL PROTECTED]
>
>[As partes desta mensagem que não continham texto foram removidas]
>

_
MSN Busca: fácil, rápido, direto ao ponto.  http://search.msn.com.br



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Mover Arquivos

2006-03-15 Por tôpico Rodrigo - Winsoft

Boa tarde galera...

Estou com um probleminha.

Tenho a função abaixo q utilizo pra copiar ou mover arquivos Na maioria da 
vezes ela funciona legal...mas as vezes não consegue mover ou copiar o 
arquivo... Preciso de algo q consiga mover sem dar erro...

Será q alguem poderia me ajudar ?

Desde já agradeco...

function ProcessArquivo(const Origem, Destino : string; Operacao, Modo:Integer) 
: Boolean;
Const
  Aborted : Boolean = False;
var
  shfo : TSHFileOpStruct;
begin
  FillChar(shfo,SizeOf(shfo),$0);
  with shfo do
  begin
if Operacao > 2 then
begin
  operacao := 2;
end;

if Modo > 5 then
begin
  modo := 1;
end;

case operacao of
   1: wFunc := FO_MOVE;
   2: wFunc := FO_COPY;
end;

pFrom := Pchar(Origem);
pTo := Pchar(Destino);
case Modo of
  1: fFlags := FOF_SILENT;
  2: fFlags := FOF_ALLOWUNDO or FOF_FILESONLY;
  3: fFlags := FOF_RENAMEONCOLLISION;
  4: fFlags := FOF_NOCONFIRMATION;
  5: fFlags := FOF_SIMPLEPROGRESS;
end;
  end;
  Result := (SHFileOperation(shfo)= 0) and (not Aborted);
end;




Obrigado.

Rodrigo Pedroso
Winsoft Informática - (14) 3664-1586
[EMAIL PROTECTED]

Obrigado.

Rodrigo Pedroso
Winsoft Informática - (14) 3664-1586
[EMAIL PROTECTED]

[As partes desta mensagem que não continham texto foram removidas]



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Mover Arquivos

RES: [delphi-br] Mover Arquivos

RE: [delphi-br] Mover Arquivos

[delphi-br] Mover Arquivos

4 matches

Site Navigation

Mail list logo

Footer information