No me guarda el fichero en el directorio que deseo
 

Hola, tengo este código:
:confused:

Código Delphi [-]
function BuscaUltimo(u: Char; cadena: string): integer;
var n: integer;
begin
     Result:= 0;
     n:= 1;
     //hará la comparación,mientras le índice 'n'
     //sea < q long 'cadena'
     while n <= length(cadena) do
     begin
     //en el caso de q haya un caracter repetido,se devolverá
     //la última posición donde se encuentra dicho carácter.
     //Ejemplo:'\'
          if cadena[n] = u then Result:= n;
          Inc(n);
     end;
end;
//---Esto de abajo programado en un procedimiento
 //GUARDAMOS EN LA CARPETA C:\MEDIOS\MEDIO2\
       //LA FOTO CON EL Nº DE COPIAS A IMPRIMIR
       directorio_medio2:='C:\MEDIOS\MEDIO2\'; //ésta ya está creada
       directorio_fecha:=IntToStr(Trunc(Now*24*3600*60));
       directorio_medio2:=directorio_medio2+directorio_fecha+'\';
       
//pos es un entero que encuentra el último '\'
        pos:=BuscaUltimo('\','C:\FOTO_PARA_IMPRIMIR\foto_a_imprimir.bmp');

//consigo foto_a_imprimir.bmp        nombre_fichero:=Copy('C:\FOTO_PARA_IMPRIMIR\foto_a_imprimir.bmp',pos+1,length('C:\FOTO_PARA_IMPRIMIR  \foto_a_imprimir.bmp')-pos);

//supuestamente tendría por //ejemplo:C:\MEDIOS\MEDIO2\12742\foto_a_imprimir.bmp
        directorio_medio2:=nombre_fichero;

No me crea el directorio_fecha, y por tanto no está el fichero bmp.
Alguna otra idea?.He probado con concat,pero no me sale nada.
Por favor,si sabes de alguna idea que hayas probado y funcione,
te diré que gracias.
Saludos.

Hola...

intenta con esto, te permite preguntar si existe el directorio, de lo contrario te lo crea..

Código Delphi [-]
   If not DirectoryExists('C:\MEDIOS\MEDIO2') Then
      Begin
          {$I-}
           MkDir('C:\MEDIOS\MEDIO2');

tambien intenta sacar la ruta a un label o mensaje para ver si tu proceso esta correcto....

Tambien encontre esto...

es un codigo para almacenar una foto... en una ruta x... con un nombre xx.. aunque la imagen la estoy rescatando de un TImage...

Código Delphi [-]
Var
Nombre_Archivo : String;

Nombre_Archivo:= Concat(DateToStr(Date()),'-',0001');

TImage1.Picture.SaveToFile('C:\MEDIOS\MEDIO2\'+Nombre_Archivo+'.jpg');

espero te sirva...

Prueba también con la funcion ForceDirectories, que no solo crea un directorio si no existe, sino que también crea todos los "padres" de acceso a la carpeta si fuera necesario

Un saludo

gracias
 

me ha venido bien tanto ForceDirectories como Mkdir.Me han resuelto el problema.

Saludos.gracias.