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'
|
}
|
