Popup Menu of Root DataFolders

// This example shows a panel popup menu to list data folders from the root level
// It excludes the Packages folder from the list
// The New selection allows you to create a new data folder from the root level
// NOTE: this does NOT set the location to the folder ... see the comments for details
 
Function MakePanel()
 
    // make a sample panel
    // ... (use your own values here)
    
    NewPanel/W=(10,10,50,50)
 
    // ..
    // strings for popup menu
    
    string theTopFldr = StringFromList(0,ListofRootDataFolders())
    string fldrList = "ListofRootDataFolders()"
 
    // popup menu location, size, and title (change these as you desire)
    
    PopupMenu FolderList,pos={5,13},size={84,20},title="root:"
    
    // popup menu mode, popvalue, value, and procedure
        // do not change these
    
    PopupMenu FolderList, mode=1, popvalue=theTopFldr
        PopupMenu FolderList, value=#fldrList, proc=ChangeFolder
    
    // ..
    
    return 0
end
 
// function to return list of root data folders
 
Function/S ListofRootDataFolders()
 
    string LoFldrs="New;\M1-;", theOne
    variable ic = 0
    do
        theOne = GetIndexedObjName("root:",4,ic)
        if (strlen(theOne)==0)
            break
        endif
        LoFldrs +=  theOne + ";"
        ic += 1
    while(1)
    
    LoFldrs = RemoveFromList("Packages",LoFldrs)
    
    if (strlen(LoFldrs)==0)
        LoFldrs = "-- none --"
    endif
 
    return LoFldrs
end
 
// function to change the data folder
 
Function ChangeFolder(pa) : PopupMenuControl
    STRUCT WMPopupAction &pa
 
    string theFldr = ""
    
    switch( pa.eventCode )
        case 2: // mouse up
                  switch(pa.popNum)
            case 1:     // selection is "New"
                    prompt theFldr, "New folder name?"
                DoPrompt "New Folder", theFldr
                if (V_flag==1)
                    break
                endif
                if (strlen(theFldr)==0)
                    break
                endif
 
                                // create the new folder (but do not go there)
 
                NewDatafolder/O $theFldr
                PopupMenu FolderList, mode=(ItemsInList(ListofRootDatafolders()))
                break
                    
            // put your other cases here for different folders
            // case ....
 
             endswitch
             ControlUpdate FolderList
 
                    // put code here to do something when a folder is selected
                    // ....
 
                    // ....
 
            break
    endswitch
 
    return 0
end