Código Delphi [-] CopyFile(PChar(OpenDialog1.FileName), PChar('C:\laboratorios\' + ExtractFileName(OpenDialog1.FileName)), False)
CopyFile(PChar(OpenDialog1.FileName), PChar('C:\laboratorios\' + ExtractFileName(OpenDialog1.FileName)), False)