Load all files in a directory

//This function automatically loads all files in a folder that the user selects. In this instance, the function
//assumes that each file is a Dionex Chromeleon generated ASCII file, and that the chromatogram's data
//points were collected at 0.2 sec. intervals. You MUST must make the changes appropriate to your data
//files on the lines below marked with exclamation points!!!
function loader()
	//initialize loop variable
	variable i=0
	string wname,fname            //wave names and file name, respectively
	
	//Ask the user to identify a folder on the computer
	getfilefolderinfo/D
	
	//Store the folder that the user has selected as a new symbolic path in IGOR called cgms
        //!!!!!!!!! if you prefer a different name, change ALL instances of cgms in the function !!!!!!!!
	newpath/O cgms S_path

	//Create a list of all files that are .txt files in the folder. -1 parameter addresses all files.
       // !!!!!!!!! if your files have a different extension, change .TXT below to your extension!!!!!!!!!!!!
	string filelist= indexedfile(cgms,-1,".TXT")

	//Begin processing the list
	do
		//store the ith name in the list into wname.
		fname = stringfromlist(i,filelist)

		//strip away ".txt" to get the name of the chromatogram, which is the file name
                //!!!!!!!!!! change the next line if you want a different name for the waves that are created !!!!!!!!!!!!!!!
		wname = fname[0,strlen(fname)-5]

		//reference a wave with the name of the chromatogram.
		wave w = $wname
		
		//if the referenced wave does not exist, create it.
		if (!waveexists(w) )

			//The /L parameter tells IGOR to load no headers, and to load the 3rd column of data (indexed as 2) only
                        //!!!!!!!! You must change this next line to tell IGOR how to load the data in each file !!!!!!!!!!!!!!!
			LoadWave/G/D/A=wave/P=cgms/O/L={0,0,0,2,0} stringfromlist(i,filelist)

			//wave created is wave0. It is renamed after the chromatogram.
			rename wave0 $wname

			//And scaled accordingly.
                        //!!!!!!!!! you MUST change or delete the following line according to your data's scaling or lack thereof. !!!!!!!!!!!!
			setscale/P x,0,0.0033333,$wname
			//Print confirmation of what was just loaded.
			print 	"Loaded "+fname

		else 
			//Othewise, tell the user that this chromatogram was previously loaded.
			print 	fname+" was previously loaded. Its corresponding wave exists."
		endif
		i += 1  		//move to next file
	while(i<itemsinlist(filelist)) 			//end when all files are processed.
end