How to selec a folder in WEBCLIENT in Navision.

Hello @kovaidon,

Looks like the DotNet Folder Dialog doesn't work, so I did a workaround borrowing some functions from the codeunit 419 of BC.

OBJECT Codeunit 50997 Folder Mgt.
{
  OBJECT-PROPERTIES
  {
    Date=15-10-18;
    Time=23:43:21;
    Modified=Yes;
    Version List=DIR;
  }
  PROPERTIES
  {
    OnRun=BEGIN
          END;

  }
  CODE
  {
    VAR
      ServerFileHelper@1000000003 : DotNet "'mscorlib'.System.IO.File";
      ServerDirectoryHelper@1000000002 : DotNet "'mscorlib'.System.IO.Directory";
      PathHelper@1000000004 : DotNet "'mscorlib'.System.IO.Path";

    PROCEDURE GetServerDirectoryListInclSubDirs@1000000002(VAR TempNameValueBuffer@1000 : TEMPORARY Record 823;DirectoryPath@1001 : Text);
    BEGIN
      TempNameValueBuffer.RESET;
      TempNameValueBuffer.DELETEALL;

      GetServerDirectoryListInclSubDirsInner(TempNameValueBuffer,DirectoryPath);
    END;

    LOCAL PROCEDURE GetServerDirectoryListInclSubDirsInner@1000000001(VAR NameValueBuffer@1000 : Record 823;DirectoryPath@1001 : Text);
    VAR
      ArrayHelper@1002 : DotNet "'mscorlib'.System.Array";
      FileSystemEntry@1004 : Text;
      Index@1003 : Integer;
      LastId@1005 : Integer;
    BEGIN
      ArrayHelper := ServerDirectoryHelper.GetDirectories(DirectoryPath);
      FOR Index := 1 TO ArrayHelper.GetLength(0) DO BEGIN
        IF NameValueBuffer.FINDLAST THEN
          LastId := NameValueBuffer.ID;
        EVALUATE(FileSystemEntry,ArrayHelper.GetValue(Index - 1));
        IF ServerDirectoryExists(FileSystemEntry) THEN
          NameValueBuffer.ID := LastId + 1;
          NameValueBuffer.Name := COPYSTR(FileSystemEntry,1,250);
          NameValueBuffer.Value := COPYSTR(GetFileNameWithoutExtension(NameValueBuffer.Name),1,250);
          NameValueBuffer.INSERT;
          GetServerDirectoryListInclSubDirsInner(NameValueBuffer,FileSystemEntry)
      END;
    END;

    PROCEDURE ServerDirectoryExists@48(DirectoryPath@1000 : Text) : Boolean;
    BEGIN
      EXIT(ServerDirectoryHelper.Exists(DirectoryPath));
    END;

    PROCEDURE GetFileNameWithoutExtension@35(FilePath@1000 : Text) : Text;
    BEGIN
      EXIT(PathHelper.GetFileNameWithoutExtension(FilePath));
    END;

    BEGIN
    END.
  }
}

You can call the function like this:

FolderMgt.GetServerDirectoryListInclSubDirs(Buffer, 'C:\NAV09R2(32794)');
PAGE.RUN(823, Buffer);

There FolderMgt and Buffer (temporary) are:

Name	DataType	Subtype
FolderMgt	Codeunit	Folder Mgt.	
Buffer	Record	Name/Value Buffer	

You need to provide a path to the function, an improve would be first show the logical units in the server an after choosing one show the folders.

Also you need to elaborate the call to the PAGE 823 to get the folder chosen.

Regards.