Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > API de Windows
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 20-04-2006
JuanErasmo JuanErasmo is offline
Miembro
 
Registrado: ago 2005
Posts: 544
Poder: 19
JuanErasmo Va por buen camino
Error al copiar archivo con SHFileOperationA(F)?

Buenos dias amigos.....
me esta pasando algo muy extraño.....estoy copiando una carpeta a otra ubicación en mi PC asi y me funciona perfecto
Cita:
SHFILEOPSTRUCTA *F = new SHFILEOPSTRUCTA;
String sOrigen, sDestino; // : String;
AnsiString Origen,Destino,cedulaos,examenos;
Origen="c:\\o\\a\\*.*";
cedulaos=DBEdit7->Text;
examenos= DBEdit36->Text;
DBEdit20->Text;
int Result;
Result = 0;
Destino= "c:\\medicalimage\\dinamica\\imagenes\\"+cedulaos+"\\"+examenos+"\\";
Origen=DBEdit16->Text+"\\"+"*.*";
ForceDirectories(Destino);
F->hwnd = Application->Handle;
F->wFunc = FO_COPY; // ó FO_COPY
// F->pFrom = PChar("c:\\o\\a\\*.*");
// F->pTo = PChar("C:\\kk\\1\\5") ; // Copiar a.....
F->pFrom = (Origen.c_str());
F->pTo = (Destino.c_str());
F->fFlags = FOF_ALLOWUNDO | FOF_NOCONFIRMATION ;
SHFileOperationA(F);
delete F;
el problema es que en mi PC funciona perfecto!, pero cuando lo llevo a otro PC, me lanza una excepción de que: "Error al copiar Archivo : No se puede leer el dispositivo de origen".....
No se que mas hacer.....que puede estar pasando??
Gracias por su respuesta!
Responder Con Cita
  #2  
Antiguo 20-04-2006
JuanErasmo JuanErasmo is offline
Miembro
 
Registrado: ago 2005
Posts: 544
Poder: 19
JuanErasmo Va por buen camino
Asi se ve mas claro.....

Disculpen el desorden anterior....acá se ve mas claro

Cita:
SHFILEOPSTRUCTA *F = new SHFILEOPSTRUCTA;

AnsiString Origen,Destino;
int Result;
Result = 0;
Destino= Edit1->Text;
Origen = DirectoryListBox1->Directory;
ForceDirectories(Destino);
F->hwnd = Application->Handle;
F->wFunc = FO_COPY; // ó FO_COPY
F->pFrom = (Origen.c_str());
F->pTo = (Destino.c_str());
F->fFlags = FOF_ALLOWUNDO | FOF_NOCONFIRMATION ;
SHFileOperationA(F);
delete F;
Funciona en mi PC, pero en otro me dice : "Error al copiar Archivo, no se puede leer el dispositivo de origen"
Gracias por su respuesta si alguin sabe que puede estar pasando...
Gracias!
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Copiar y pegar archivo Osorio Varios 2 22-03-2007 14:09:28
Ej. Copiar Archivo shulygart Varios 4 16-11-2005 02:36:41
Copiar Archivo john_mvf Varios 2 04-07-2005 20:15:07
copiar un archivo alcides Varios 4 13-05-2005 20:55:50
Copiar un archivo JODELSA Varios 6 27-01-2004 21:40:00


La franja horaria es GMT +2. Ahora son las 16:01:01.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi