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);
Related
Recommended