¿Como guardar una tabla desde el componente shell treeview?

[*Caro*]

Hola krlox31416, según a lo que te entiendo, tu quieres obtener el path que se selecciona en el ShellTreeView, lo puedes hacer de esta forma.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
 showmessage(ShellTreeView1.SelectedFolder.PathName);
end;

sobre el path que tienes, despues sería aumentar el slash, con la función TrailingBackslash o una cadena '\' y concatenar el nombre de tu archivo que ya lo tienes.

Otra forma de seleccionar una carpeta es usando SelectDirectory.

Código Delphi [-]
var
  Carpeta : String;
begin
  if SelectDirectory('Seleccione la ruta de la carpeta', 'c:\', Carpeta) then
  begin
   showmessage(Carpeta+'\Tabla.DB');
  end;

para este ultimo añades en el uses la unidad FileCtrl.

Saluditos

[krlox31416]

Primeramente gracias Caro por tu ayuda...

No pense que tan pronto respondieran al llamado... ya veo que esto si funciona y bien!!!

voy a checar estas lineas de codigo que me regalaste...

yo estoy trabajando con delphi 5 y 6, voy a checar los componentes que se necesitan...

despues te cuento que tal me fue va...

y de nuevo 1000 % gracias... por la ayuda...

si necesitas de mi ayuda mandamelas por este medio...
ya tienes mis correos alternativos!!!...

saludos desde San Juan del Río Queretaro. México

[krlox31416]

Que tal Caro!!!
Disculpa que no mande respuesta inmediatamente pero lo que paso fue que ya había respondido antes ya 3 veces y me sacaba de la pagina ya que antes de mandar el mensaje le di en vista previa para ver como quedaba el mensaje y me saco de la pagina por lo que perdí todo lo que te había escrito junto con el código que púese…

Y otro problema es que no se a donde ir para poder ver la respuesta que mandaste o la dirección que se crea al preguntar dudas en este foro no se como ir al hilo sobre mi tema
Por lo que mejor lo abri desde el Hotmail y directamente me abre sobre el tema…

Pero = me traba la maquina ¡!! Estoy desesperado por mandarte este mensaje!!!

Bueno en fin aquí pongo lo anterior zaz!!!

Este es el código que utilizo para copiar una tabla usado para respaldar una tabla


Código Delphi [-]
// con este código copio mi tabla desde esta ubicación C:\sistema_caja\base de //datos\articulos.db
// y después la guardo por defaul en esta otra ubicación C:\articulos.db

procedure TForm1.Button2Click(Sender: TObject);
begin
if not CopyFile (Pchar ('C:\sistema_caja\base de datos\articulos.db'), Pchar ('C:\articulos.db'),false) then
begin
Application.MessageBox('La base de datos artículos no se puede respaldar'
+#13'debido a que no existe.','Error',MB_ICONERROR);
end
else
begin
Application.MessageBox('La base de datos artículos se ha respaldado ! ! !','Información',MB_ICONINFORMATION);
end;
end;

end.





Y en el código que me pasaste ya cheque para que sirve y que es lo que hace busque en la ayuda de delphi 5 para que sirve el SelectDirectory y vi un ejemplo así que no tuve ningún problema en saber que hacia el SelectDirectory … este funciona como si se tratara del shell treeview…


Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
My_carpeta: String;
begin
if SelectDirectory('Seleccione la ruta de la carpeta', 'C:\sistema_caja\base de datos\articulos.db', My_carpeta) then
begin
showmessage(My_carpeta);
end;
end;





lo que note fue que si concateno dos a más tablas usando el SelectDirectory me aparece como si usara el componente shell treeview eje:


Código Delphi [-]
procedure TForm1.Button4Click(Sender: TObject);
var
my_carpeta :String;
begin
SelectDirectory('Selecione las bases de datos','C:\sistema_caja\base de datos\articulos.db + proveedores.db + contraseña.db + estado_caja.db', My_carpeta);
end;





de lo contrario si pongo una sola tabla


Código Delphi [-]
procedure TForm1.Button4Click(Sender: TObject);
var
my_carpeta :String;
begin
SelectDirectory('Selecione las bases de datos','C:\sistema_caja\base de datos\proveedores.db', My_carpeta);
End;





Me aparece solo la tabla según sea el caso

Pero según yo el código que me pasaste no me ayuda para lo que deseo que es copiar una tabla o tablas desde cierta ubicación para después guardar una tabla o tablas
aunque no esta demas saber en que ruta se esta guardando


Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);

begin

showmessage(ShellTreeView1.SelectedFolder.PathName);

end;





pero se supone que con el shell treeview ves visualmente y seleccionas la ruta en la que vas a guardar la tabla o tablas

por otra parte no supe lo de: despues sería aumentar el slash, con la función TrailingBackslash o una cadena '\' y concatenar el nombre de tu archivo que ya lo tienes.no se para que sirve la función TrailingBackslash y eso del slash


o no supe como hacer a andar el código será que algo estoy haciendo mal o que me hace falta…

si estoy mal en algo corrígeme!!!

Y si hay alguien más que pueda ayudarme de antemano se lo agradeceré…

Si en algo puedo ayudarles estoy a sus ordenes!!!…


Saludos desde San Juan del Río, Querétaro, México...

[*Caro*]

Hola de nuevo krlox31416, para poder ver el hilo que has abierto, puedes buscarlo de varías formas, al ingresar por la pagina principal del club tienes varias opciones, Editar Perfil, Editar Opciones,Ver mensajes privados, ingresas a cualquiera de ellos, al lado izquierdo buscas Ver suscripciones para que te salga un listado de todos los hilos en los que estas participando, también lo puedes buscar en el subforo que lo has abierto el hilo, incluso con el buscador.

Sobre tu pregunta, lo que te pase es para seleccionar el directorio donde copiaras tu archivo, nose si te estoy entendiendo bien, tu quieres copiar los archivos que tengas en la carpeta C:\sistema_caja\base de datos\ que pueden ser uno o varios, si es así entonces tendras que recorrer la carpeta y copiar los que tengan extención db.

Código Delphi [-]
var
 Origen, Destino, aPath : String;
 sr: TSearchRec;
begin
 aPath := 'C:\sistema_caja\base de datos\';
  if FindFirst(aPath + '*.db', faAnyFile, sr) = 0 Then
     repeat
       Origen := aPath+sr.Name;
       Destino := my_carpeta+'\'+sr.Name;
       CopyFile(PChar(Origen), PChar(Destino), False);
     until FindNext(sr) <> 0;
   FindClose(sr);
end;

donde en my_carpeta esta el directorio seleccionado por el usuario, mas o menos así sería, sobre el TrailingBackslash es para que te añada el slash o barra '\' al final de tu path.

Saluditos

[krlox31416]

gracias caro deja voy a checar este codigo...
pero era lo de menos copiar una o más tablas...
lo que quiero es el guardar en el destino...
espera mi siguiente respuesta haber que tal ma va...

gracias ....

disculpa mi ignorancia sobre el uso del shell treeview...

te escribo pronto...

saludos!!!!....

[krlox31416]

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;

Basto concatenar esto:

Código Delphi [-]
ShellTreeView1.SelectedFolder.PathName //que es de tipo string

A tu otro código

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; //aqui en esta linea le concateno lo anterior
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.

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.

[*Caro*]

Hola de nuevo krlox31416, que bueno que te haya servido lo anterior que te puse, ahora sobre tu pregunta, supongo que en base al path que ha escogido en tu ShellTreeView tu quieres crear un directorio si que no existiera, paar ello puedes utilizar la función CreateDir para crear y DirectoryExists para verificar si existe.

Código Delphi [-]

 PathDestino := ShellTreeView1.SelectedFolder.PathName+'\Respaldo';
 if not DirectoryExists(PathDestino) then
  CreateDir(PathDestino); //Creamos el directorio ...................
Origen := aPath+sr.Name;
Destino :=  PathDestino+'\'+ sr.Name; //aqui en esta linea le concateno lo anterior
CopyFile(PChar(Origen), PChar(Destino), False);

Saluditos