[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...