No me guarda el fichero en el directorio que deseo

[kapullok_2006]

Hola, tengo este código:

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.

[[BlueSteel]]

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

[[BlueSteel]]

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

[[ElKurgan]]

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

[kapullok_2006]

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

Saludos.gracias.