Running through filesystem directories programatically

Share icon

I have been struggling to find a solution for an Igor analysis I need to do.

My experimental data are fluorescence spectra that need to be integrated
(through the area function). The data are organized as follows;

1) a root directory within the filesystem whose name is a date string
2) Within this root multiple folders named after the sample measured
3) Within each sample folder exactly four ASCII files containing x-y data representing the fluorescence spectra. Each of these four curves needs to be integrated in a certain range and the four values need to be combined into one datapoint (being the fluorescence anisotropy value). The files that need to be processed each time are *VVA.*, *VHA*.*, *HHA.*, *HVA.*

I would like to point igor to the root directory (the one of a certain date) after which it would have to automatically cycle through all subdirectories present, processing the files in each subfolder. However I do not seem to be able how to achieve this. All I can have it do at the moment is point it to an actual subfolder and process the 4 files in this folder, however, what I would like to do is have it output something like;

Date: Sample1 -> calculated anisotropy value
Date: Sample2 -> calculated anisotropy value
Date: Sample3 -> calculated anisotropy value
...

An example of the input data is attached to this post. The files that need to be processed each time are *VVA.txt, *VHA*.txt, *HHA.txt, *HVA.txt

This would be the result of experimental data in the paths of form C:\Date\Sample*\(four files here)

Is it possible to have Igor run through all subdirectories of a certain
path in the filesystem?

My current code looks like this;

Function CalcAnisotropy(Duplication,Start,Stop,NameWave,WaveCondition,Appendix)
	Variable Duplication
	Variable Start
	Variable Stop
	
	String NameWave
	String WaveCondition
	String Appendix
	
	prompt Duplication, "Keep original wave (1) or overwrite (0):"
	prompt Start, "Start integration at (nm):"
	prompt Stop, "Stop integration at (nm):"
	prompt NameWave, "Select source wave", popup, Wavelist("*", ";", "")
	prompt WaveCondition, "Give match condition for wavename (empty in case of single wave):"
	prompt Appendix, "Appendix for new wave in case of keeping original wave:"
	doprompt "Input parameters", duplication, start, stop, namewave, wavecondition, appendix
	if (V_flag == 1)
		Print "Cancelled by user..."
		return -1
	endif
	variable HH
	variable HV
	variable VH
	variable VV
	variable R
	string wn2
	string wl
	wl= wavelist(Wavecondition, ";","")
	
	NameWave = stringfromlist(0,wl,";")
	Printf NameWave + ": "
	HH = area($NameWave,Start,Stop)
	Print HH
	
	NameWave = stringfromlist(1,wl,";")
	Printf NameWave + ": "
	HV = area($NameWave,Start,Stop)
	Print HV
	
	NameWave = stringfromlist(2,wl,";")
	Printf NameWave + ": "
	VH = area($NameWave,Start,Stop)
	Print VH
	
	NameWave = stringfromlist(3,wl,";")
	Printf NameWave + ": "
	VV = area($NameWave,Start,Stop)
	Print VV
	
	Printf "Anisotropy: "
	R = ((VV*HH)/(HV*VH)-1)/((VV*HH)/(HV*VH)+2)
	Print R
	
end
<\igor>
250608.zip (253.27 KB)
KrisJ: You might take a look at the IndexedFile() function and the GetFileFolderInfo operation. Between the two of those, I believe you should be able to accomplish what you wish.

July 7, 2008 at 04:02 pm - Permalink
See the help for the IndexedDir function. It includes an example of recursively traversing directories.

July 7, 2008 at 09:43 pm - Permalink