Buen día Efren2006 espero esto te pueda ayudar o por lo menos puedas hacer algunas modificaciones este codigo utiliza un componente ShellTreeView dependiendo de la ruta en que desees respaldar dale un click y despues dale aceptar(puedes ponerle el nombre que quieras al boton o bitbtn) deacuerdo al sig. código.
Código Delphi
[-]
procedure TForm24.BitBtn1Click(Sender: TObject);
var PathDestino, Origen, aPath, Destino, my_mensaje : string;
sr: TSearchRec;begin
my_mensaje:='Y se han guardado en la siguiente ubicación.'+#13;
PathDestino := ShellTreeView1.SelectedFolder.PathName+'\[ Respaldo Base de Datos Sistema Caja ]'; if not DirectoryExists(PathDestino) then begin
aPath := 'C:\sistema_caja\base de datos\'; if FindFirst(aPath + '*.db', faAnyFile, sr) = 0 Then repeat
CreateDir(PathDestino); Origen := aPath+sr.Name; Destino := PathDestino+'\'+ sr.Name; CopyFile(PChar(Origen), PChar(Destino), False); until FindNext(sr) <> 0; SysUtils.FindClose(sr); Application.MessageBox('Las bases de datos se han respaldado ! ! ! ','Información',MB_ICONINFORMATION);
MessageDlg( my_mensaje + ShellTreeView1.SelectedFolder.PathName + '\[ Respaldo Base de Datos Sistema Caja ]',mtInformation,[mbOK],0);
end
else
begin
Application.MessageBox('La carpeta ya existe.','Error',MB_ICONERROR);
Application.MessageBox('Por el momento no es necesario respaldar en esta ubicación ! ! !','Suerte',MB_ICONINFORMATION);
end;
end;
Nota: Si deceas guardar un excel o word basta cambiar la extención del archivo *.db por *.xls *.doc etc.
Saludos y espero que esto sea lo que buscas! : )