creating a browse button to browse directories

Hi Harish

You can do it as follows:

a. Create a string field in a form
b. Create a button field and reference the string field:

      runDir=hiCreateStringField(
         ?name 'runDir
         ?prompt "Run dir"
         ?value "./avSVS"
      ) ;hiCreateStringField

      dirSel = hiCreateFormButton(
         ?name 'dirSel
         ?buttonText "..."
         ?callback "ddsFileBrowseCB(hiGetCurrentForm() 'runDir \"*\" 'directoryOnly)"
      ) ;hiCreateFormButton


Best regards
Quek

   IC61x includes the hiCreateFileSelectorField which automatically does the things that Quek created with two fields. It includes the same modes as ddsFileBrowseCB. This is example was cut from a program I wrote for a client but the documentation in the UI reference manual is very good.

Ted

     lmField = list( hiCreateFileSelectorField(
                 ?name '_LayerMapFile
                 ?prompt "Stream Layer Map"
                 ?mode 'existingFile
                 ?value AEgetLayerMap( geGetEditCellView())
                 ?defValue AEgetDefaultLayerMap( geGetEditCellView())
                 ?callback sprintf( nil "AEgetFormCheckFileExists( %s '_LayerMapFile )" formName )
                 ?editable t
        )
        0:(fieldHeight + fieldSpacing) * row++ fieldWidth:fieldHeight promptWidth)

Hi,

But with this type of button we can not select multiple directories, I mean we can select at a time one directory only. But I need a list which contains all my selected directories. How to do this.

 You are correct, it only works for a single directory, it can work with multiple files but not multiple directories. You possibly could add a callback which builds a list of directories but maybe Quek's solution is better in this case. I've not used ddsFileBrowseCB.

Ted

Hi,

Try this example instead:

lb = hiCreateListBoxField(?name 'CCStest ?prompt "Select directories" 
      ?choices setof(obj getDirFiles(".") isDir(obj)) ?multipleSelect t)
=> listBStruct@0x233fb578
fm = hiCreateAppForm(?name 'CCStestForm ?formTitle "Multiple dir select" 
       ?fields list(list(lb 0:0 400:230 100)))
=> formStruct@0x233fb598
hiDisplayForm(fm)

...  ...

hiFormDone(CCStestForm)  <--- this shows in the CDS.log when the form is done

hiGetListBoxValue(fm->CCStest)
=> ("test" "rectTest" "cpTest" "copyTest")

Hopefully you get the idea, use a listbox field with multipleSelect true and then obtain the value of what was selected afterwards.

Best regards,

Lawrence.

Thanks, Lawrence. 

Neither ddsFileBrowserCB nor hiCreateFileSelectorField allow you to select multiple directories. Maybe file an enhancement CCR on that one?

Ted

Hi Lawrence,

Suppose from browse button we had to only call .gds or .cdl file and if user select other than these two extension file will not be select.How we can do it using skill in browse button option?