Recursively Print Data Folder Paths

//	PrintDataFolderPaths(startingDFR, level)
//	Recursively prints data folder paths
//	Example: PrintDataFolderPaths(root:, 0)
//	Requires Igor Pro 6.1 or later
Function PrintDataFolderPaths(startingDFR, level)
	DFREF startingDFR
	Variable level			// 0 for top level

	Variable i
	
	String prefix = ""				// Used to show data folder level using indentation
	for(i=0; i<level; i += 1)
		prefix += "\t"
	endfor
	
	Variable numDataFolders = CountObjectsDFR(startingDFR, 4)
	for(i=0; i<numDataFolders; i+=1)
		String dfName = GetIndexedObjNameDFR(startingDFR, 4, i)
		if (strlen(dfName) == 0)
			break
		endif
		
		DFREF dfr = startingDFR:$dfName
		String path = GetDataFolder(1, dfr)
		
		Print prefix + path
		
		PrintDataFolderPaths(dfr, level+1)				// Returns
	endfor
End