Dynamics Nav: Seleccionar la ruta de una carpeta

En Dynamics Nav existe la code unit Common Dialog Management donde ya están implementadas una serie de funciones para poder seleccionar ficheros del equipo y capturar su ruta pero no existe nada que nos permita hacer lo mismo pero con carpetas.

Para hacer esto mismo podemos usar está función:

//------ Params

WindowTitle : Text[50]

HighestFolder : Text[500]

//------- Return Type

Text[1024]

//------- Variants

ShellControl Automation 'Microsoft Shell Controls And Automation'.Shell

Folder Automation 'Microsoft Shell Controls And Automation'.Folder3

FolderText Text 1024

IF ISCLEAR(ShellControl) THEN

CREATE(ShellControl);

Folder := ShellControl.BrowseForFolder(0,WindowTitle,0,HighestFolder);

IF NOT ISCLEAR(Folder) THEN

FolderText := Folder.Items().Item.Path;

CLEAR(ShellControl);

EXIT(FolderText);