Folder Select in Navision

Folder selection in NAV can be achieved using Windows Shell Automation Variable.

Name                    DataType             Subtype                                                                             Length
WindowsShell     Automation        ‘Microsoft Shell Controls And Automation’.Shell
Folder                   Automation        ‘Microsoft Shell Controls And Automation’.Folder2

Path                       Text                                                                                                                   250

Name      ConstValue
Text000 Select %1

IF ISCLEAR(WindowsShell) THEN
CREATE(WindowsShell);
Folder := WindowsShell.BrowseForFolder(0,STRSUBSTNO(Text000,FIELDCAPTION(Path)),0);
IF NOT ISCLEAR(Folder) THEN
Path := FORMAT(Folder.Items().Item.Path);