Load each file into separate data folder

#pragma rtGlobals=3		// Use modern global access method and strict wave access.

// This is a general framework for loading waves from multiple files, with the waves from
// each file stored in a separate data folder.
//
// This is useful when you have many similar files, each of which containing many columns.
// You wind up with one data folder for each file. The wave names in each data folder are the same.
// The data folder name identifies the source file.
//
// You need to supply your LoadWave command where it says
// "*** Put your LoadWave command here ***"
// Other changes may be required for your situation.

static StrConstant kFileNameExtension = ".txt"

Function LoadOneFile(pathName, fileName)
	String pathName			// Name of symbolic path or "" for dialog
	String fileName				// Name of data file or "" for dialog

	Variable refNum

	// First get a valid reference to a file.
	if ((strlen(pathName)==0) || (strlen(fileName)==0))
		// Display dialog looking for file.
		Open/D/R/P=$pathName/M="Select data file" refNum as fileName
		fileName = S_fileName		// S_fileName is set by Open/D
		if (strlen(fileName) == 0)	// User cancelled?
			return -1
		endif
	endif
	
	// Create data folder from file name
	String dfName = ParseFilePath(0, fileName, ":", 1, 0)
	dfName = RemoveEnding(dfName, kFileNameExtension)		// e.g., "MyFile.txt" -> "MyFile"
	if (DataFolderExists(dfName))
		String prompt
		sprintf prompt, "Data folder named '%s' exists. Click Yes to overwrite the existing data, No to cancel.", dfName
		DoAlert 1, prompt
		if (V_flag == 2)
			Print "Load cancelled. You can rename the existing data folder and try again."
			return -1							// Cancelled
		endif
		SetDataFolder $dfName
	else
		NewDataFolder/S $dfName
	endif

	String dataSetName = dfName
	
	*** Put your LoadWave command here ***
	
	SetDataFolder ::								// Restore current data folder
	
	return 0									// Success
End

Function LoadAllFilesInFolder()
	String thePath="_New Path_"
	Prompt thePath, "Name of path containing data files", popup PathList("*", ";", "")+"_New Path_"
	DoPrompt "Choose directory containing a set of data files", thePath
	if (V_flag != 0)
		return -1										// User cancelled.
	endif
	
	if (CmpStr(thePath, "_New Path_") == 0)		// User selected new path ?
		NewPath/O data								// This brings up dialog and creates or overwrites path
		if (V_flag != 0)
			return -1									// User cancelled
		endif
		thePath = "data"
	endif
	PathInfo $thePath
	String dirPath = S_path
	
	String fileList = IndexedFile($thePath, -1, kFileNameExtension)		// List of all files in the folder

	String fileName
	Variable fileIndex=0
	
	String list = ""

	do
		fileName = StringFromList(fileIndex, fileList)			// Get name of next text file in path
		if (strlen(fileName) == 0)
			break											// All done
		endif
		
		if (LoadOneFile(thePath, fileName) != 0)
			break			// Error
		endif
		
		fileIndex += 1
	while (1)												// Until all files done
	
	Printf "Loaded data from \"%s\"\r", dirPath
	
	return 0												// Success
End