Quintiq file version 2.0
#parent: PanelExcel/ButtonBrowse3DDrive
Response OnClick () inherited id:Response_PanelExcel_ButtonBrowse3DDrive_OnClick
{
  #keys: '[108486.1.1093124646]'
  BaseType => //DialogEDIImportExport/Response_PanelExcel_ButtonBrowse3DDrive_OnClick
  Body:
  [*
    // Select file import location
    dlg := construct( dlgSelectFileOrFolder );
    
    fileItems := null( structured[FileItem], owning );
    
    startDirectory := guard( DataHolderDirectoryFileItem.Data().URL(), ''  );
    
    directory := dlg.SelectFolderWithFiles( this, '', startDirectory, fileItems );
             
    if( not isnull( directory ) )
    {
      // Workaround for fileItems not being filled in above call
      info(directory.URL());
      fileProvider := FileProvider::CreateFromURL( directory.URL() );
      fileItems := fileProvider.List( directory );  
          
      DataHolderFileItems.Data( &fileItems ); 
      DataHolderDirectoryFileItem.Data( directory.Copy() );
    }
  *]
  DefinitionID: 'Responsedef_GUIButtonBase_OnClick'
}
