Obtener nombre de carpeta

[rodri_morales]

Buen día a todos, tengo una consulta que me surgió, les comento:

Tengo una estructura de carpetas que el nombre representa la fecha, dentro de estas carpetas tengo distintos archivos .txt, de los cuales tengo que tomar uno en particular. Lo que necesito es obtener el nombre de la carpeta para agregarlo como dato.

Ej:

LOAD

     ....

[...\20151005\Archivo.txt]

(txt, codepage is 1252, no labels, delimiter is ';', msq);

Necesito tomar 20151005 para agregarlo como dato a la tabla.

Muchas gracias!

[Joaquin_Lazaro]

Hola Rodrigo:

Yo uso estas instrucciones para manipular la ubicación de carpetas

IF ComputerName() = 'MiServidor' then

  vEntorno = SubField(DocumentPath(), '\', 3);

ELSE // en este caso vale el nombre del PC de desarrollo

  vEntorno = SubField(DocumentPath(), '\', 2);

ENDIF;

vSharedQVD = Left(DocumentPath(), (Index (DocumentPath(), '\', -2 ))) & 'Compartidos\Datos\qvd\';

vPath = Left(DocumentPath(), (Index (DocumentPath(), '\', -1 ))) & 'qvd\';

vPathTemp = Left(DocumentPath(), (Index (DocumentPath(), '\', -1 ))) & 'Temp\';

vPathWork = Left(DocumentPath(), (Index (DocumentPath(), '\', -1 )));

Todo esto es relativo a la carpeta donde está ubicado tu qvw

Saludos

Joaquín