Ver Mensaje Individual
  #4  
Antiguo 01-02-2011
Avatar de edgwin
edgwin edgwin is offline
Miembro
 
Registrado: abr 2006
Ubicación: Guadalajara Jal. Mex
Posts: 163
Reputación: 21
edgwin Va por buen camino
Gracias por responder:

Me equivoque en el codigo, voy a postear el codigo real que tengo:

Código Delphi [-]
procedure TfrmMain.prcCopiARed(vFile:string;vModa:string);
var
   NetResource: TNetResource;
   vIniFile : TIniFile;
   vRuta : PChar;
begin
   vIniFile := TIniFile.Create('./Config.ini');
   if vModa = '' then
      vRuta := PChar(vIniFile.ReadString('RUTA','RX','')) // Ruta: \\132.147.160.50\RIS
   else
      vRuta := PChar(vIniFile.ReadString('RUTA','MA','')); // Ruta: \\132.147.160.51\RIS
   NetResource.dwType := RESOURCETYPE_DISK;
   //Letra con la cual sera mapeado el recurso
   NetResource.lpLocalName := 'X:';
   //Nombre del recurso
   NetResource.lpRemoteName := vRuta;
   NetResource.lpProvider := '';
   WNetAddConnection2(NetResource, 'Radiologia1','UPC', CONNECT_UPDATE_PROFILE);
   CopyFile(PChar(vFile),PChar('X:\RIS.XML'),False);
   WNetCancelConnection2('X:', CONNECT_UPDATE_PROFILE, True);
end;

Ya intente como me dice duilioisola (como podran ver, la ruta la saco de un archivo INI) cambiando la ruta y nada!!!

Saludos!
Responder Con Cita