Copiar archivo a un servidor CopyFile

[mRoman]

este es el còdigo final para cualquier otro amigo forero que este en las mismas circuntancias.

Código Delphi [-]
 if cArchivoAsociado<>'' then
                begin
//                    CopyFile(PChar(cArchivoAsociado),Pchar('c:\FORMATOS\'+ExtractFileName(oDlgFile.FileName)),false);
                    if CopyFile( PChar(cArchivoAsociado),Pchar('\\'+ipServer+'\FORMATOS'+'\'+dsVentas.FieldByName('LECHER').AsString+  '_'+dsVentas.FieldByName('DIA').AsString+dsVentas.FieldByName('MES').AsString+dsVentas.FieldByName('  ANIO').AsString+ExtractFileExt(oDlgFile.FileName) ),FALSE) then
                    begin
                            cArchivoAsociado:='\\'+ipServer+'\FORMATOS'+'\'+dsVentas.FieldByName('LECHER').AsString+'_'+dsVentas  .FieldByName('DIA').AsString+dsVentas.FieldByName('MES').AsString+dsVentas.FieldByName('ANIO').AsStr  ing+ExtractFileExt(oDlgFile.FileName);
                            ShowMessage('El archivo se copió correctamente')
                    end else begin
                           ShowMessage(Variant(GetLastError));
                    end;

                end;

[Lilauth]

Gracias Miguel Román por colgar el código final. Me caba de resolver medio problema

[mRoman]

Empezado por Lilauth

Gracias Miguel Román por colgar el código final. Me caba de resolver medio problema

Que tal Lilauth....no tienes porque....para eso estamos en este foro. No dejes de consultar y de postear de vez en cuando con soluciones para los demas.

Que estes bien....

Bye.