Cita:
Solucionado my problema!!!
Gracias !!! Gracias!!!… 1000 Gracias!!!... CAAAAAARRRRROOOOOOOOO!!!
Ajuste el código con tus ideas…
Solo le concatene esto que anteriormente me regalaste al nuevo código que me pasaste… Claro que además debes pegar el componente shell treeview a la forma.
|
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(ShellTreeView1.SelectedFolder.PathName);
end;
Código Delphi
[-]
ShellTreeView1.SelectedFolder.PathName
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
Origen, Destino, aPath ,my_mensaje: String;
sr: TSearchRec;
begin
my_mensaje:='En la siguiente ubicación ';
aPath := 'C:\sistema_caja\base de datos\';
if FindFirst(aPath + '*.db', faAnyFile, sr) = 0 Then
repeat
Origen := aPath+sr.Name;
Destino := ShellTreeView1.SelectedFolder.PathName + '\' + sr.Name; CopyFile(PChar(Origen), PChar(Destino), False);
until FindNext(sr) <> 0;
SysUtils.FindClose(sr);
Application.MessageBox('Las bases de datos se han respaldado!!!','Hasta que me quedo Caro!!!',MB_ICONINFORMATION);
MessageDlg( my_mensaje + ShellTreeView1.SelectedFolder.PathName,mtInformation,[mbOK],0);
end;
end.
Cita:
Esto si funciona amigos!!!
Insisto Caro en que haces magia!!! Como le haces??? Hee???
Ya que ando emocionado y aprovechando este mismo tema!!!
Que me faltaría para guardar las tablas en una carpeta llamada respaldo o cualquier nombre???
Estoy a tus ordenes!!! Caro!!!
Saludos Caro!!! desde San Juan del Río, Querétaro, México.
|