MKDir y SaveFile

[Alejo15x]

Hola,

tengo un problema

veran, intento guardar 2 archivos,
1 en la carpeta anterior, el segundo archivo en una carpeta seguida del mismo.

Mi codigo và asì.

Código Delphi [-]
l.Lines.SaveToFile(s1.filename+'.npc');

Código Delphi [-]
la.Lines.AddStrings(listavoices.Items);
MKDir(s1.FileName);
l.lines.SaveToFile(s1.FileName);

un saludo

[rgstuamigo]

Para utilizar el procedimeinto MKDir y poder crear una sub-carpeta(Sub-directorio) debes especificar un Path correcto que contenga la ruta completa+ el nombre de la nueva carpeta y no el path de un archivo como se ve que lo estas haciendo.Otra cosa que debes tener cuidado al usar MkDir es que si ya existe un directorio(una carpeta) con el mismo nombre, te va generar un error..
He aquí un ejemplo sguiendo tu código:

Código Delphi [-]
...
MKDir(ExtractFilePath(s1.FileName)+'MiNuevaCarpeta');
l.lines.SaveToFile(ExtractFilePath(s1.FileName)+'MiNuevaCarpeta/'+ExtractFileName(s1.FileName));
...

Saludos...