Recursively List Data Folder Contents

// ListDataFolder(dfr, level)
// Recursively lists objects in data folder.
// Pass data folder path for dfr and 0 for level.
// Example: ListDataFolder(root:, 0, "NoteBook")
//Start with sNBName = "" to print to history
Function ListDataFolder(dfr, level, sNBName)
    DFREF dfr
    Variable level          // Pass 0 to start
    String sNBName
   
    String name
    String sString
   
    if (level == 0)
        name = GetDataFolder(1, dfr)
        sPrintf sString, "%s (data folder)\r", name
        WriteBrowserInfo(sString, 1, sNBName)
    endif
 
    Variable i
 
    String indentStr = "\t"
    for(i=0; i<level; i+=1)
        indentStr += "\t"
    endfor
 
    Variable numWaves = CountObjectsDFR(dfr, 1)
    for(i=0; i<numWaves; i+=1)
        name = GetIndexedObjNameDFR(dfr, 1, i)
        sPrintf sString, "%s%s (wave)\r", indentStr, name
        WriteBrowserInfo(sString, 2, sNBName)
    endfor 
 
    Variable numNumericVariables = CountObjectsDFR(dfr, 2) 
    for(i=0; i<numNumericVariables; i+=1)
        name = GetIndexedObjNameDFR(dfr, 2, i)
        sPrintf sString, "%s%s (numeric variable)\r", indentStr, name
        WriteBrowserInfo(sString, 3, sNBName)
    endfor 
 
    Variable numStringVariables = CountObjectsDFR(dfr, 3)  
    for(i=0; i<numStringVariables; i+=1)
        name = GetIndexedObjNameDFR(dfr, 3, i)
        sPrintf sString, "%s%s (string variable)\r", indentStr, name
        WriteBrowserInfo(sString, 4, sNBName)
    endfor 
 
    Variable numDataFolders = CountObjectsDFR(dfr, 4)  
    for(i=0; i<numDataFolders; i+=1)
        name = GetIndexedObjNameDFR(dfr, 4, i)
        sPrintf sString, "%s%s (data folder)\r", indentStr, name
        WriteBrowserInfo(sString, 1, sNBName)
        DFREF childDFR = dfr:$(name)
        ListDataFolder(childDFR, level+1, sNBName)
    endfor 
   
//when finished walking tree, save as RTF with dialog  
    if(level == 0 && strlen(sNBName) != 0)
        SaveNotebook /I /S=4  $sNBName
    endif
End

Function WriteBrowserInfo(sString, vType, sNBName)
    String sString
    Variable vType
    String sNBName
   
    if(strlen(sNBName) == 0)
        print sString
        return 0
    endif
    DoWindow $sNBName
    if(V_flag != 1)
        NewNoteBook/F=1 /N=$sNBName /V=1 as sNBName
    else
        DoWindow/F $sNBName
    endif
    Notebook $sNBName selection={endOfFile, endOfFile}
    if(vType == 1)//wave
        Notebook $sNBName fstyle=1
        Notebook $sNBName text=sString
        Notebook $sNBName fstyle=-1
    else
        Notebook $sNBName text=sString 
    endif
   
End