Tengo una aplicación en la cual quiero mover ficheros de muchos tipos de un otros lugares a un archivo dentro de mi aplicación entre los ficheros incluyo videos textos etc. He probado utilizando opendialog para cargar y hasta ahí todo bien pero no sé cómo hacer para guardar dentro de mi archivo cuya ruta seria (.\datos\) y luego de esa barra iría un archivo que se crea cuando edito un edit así que seria
delphi
('.\datos\ '+edit1.text)
. También he utilizado el código que viene en trucomania y este funciona bien cuando le doy la dirección completa incluyendo disco y todo pero no me funciona con la que yo creé de datos.
delphi
function CopiaTodo(Origen,Destino : String) : LongInt; var F : TShFileOpStruct; sOrigen, sDestino : String; begin Result := 0; sOrigen := Origen + #0; sDestino := Destino + #0; with F do begin Wnd := Application.Handle; wFunc := FO_COPY; pFrom := @sOrigen[1]; pTo := @sDestino[1]; fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION end; Result := ShFileOperation(F); end; begin CopiaTodo(opendialog1.filename\datos\ , '.\datos\ '+edit1.text); end;
También utilicé la forma de ( CopyFile)
delphi
CopyFile(PChar(opendialog1.filename),PChar('.\datos\ '+edit1.text),FALSE)
pero me da el error que en el anterior funciona con la dirección completa pero no con la simplificada que puse antes, el problema es que la carpeta donde se guardara se crea si no existe cuando edito el edit1 espero como siempre su ayuda gracias