load IR data from many text files

Function Load_all_txt_Files(pathName)
    String pathName // Name of an Igor symbolic folder created by Misc->NewPath
    String fileName
   
    Variable index=0
    if (strlen(pathName) == 0)
        String message = "Select a directory containing only Sylvie data files"
        NewPath/O/M=message SylvieDataPath      // This displays a dialog in which you can select a folder
        if (V_flag != 0)
            return V_flag                           // -1 means user canceled
        endif
        pathName = "SylvieDataPath"
    endif
    Variable result= 0
    do                                                  // Loop through each file in folder
        fileName = IndexedFile($pathName, index, ".txt")        // catch .txt files in folder
        if (strlen(fileName) == 0)                                  // No more files ?
            break                                       // Break out of loop                   
        endif
        result = Load_IR(fileName, pathname)
        if( result == -1 )
            break                           // user cancelled or no waves in this file (which we take to be an error)
        endif
        index += 1
    while (1)
    if (Exists("SylvieDataPath")) // Kill temp path if it exists
        KillPath temporaryPath
    endif
    return result // 0 Signifies success.
End



 Function Load_IR(fileName, pathName)
    String fileName// File name to load, not including the path, or "" to get dialog
    String pathName // Name of path or "" to get dialog
 
    // Strip the extension from the file name to get the generic name.
    String genericname = fileName[0, strsearch(fileName, ".txt", inf, 1) - 1]
   
    String Abstr="_A"
    String AbstrN="_N"
    String AbstrF="_F"
    String Wavenumberwave=genericname
    String Absorbancewave=genericname+Abstr
    String AbsorbancewaveN=genericname+AbstrN
    String AbsorbancewaveF=genericname+AbstrF
 
    //NewPath/O path, pathName
    LoadWave/A/G/D/O/P=$PathName/B="C=1, N=Wavenumber; C=1, N=Absorbance;" fileName
    Wave Wavenumber, Absorbance
   
    SetScale/I x, WaveMax(Wavenumber), WaveMin(Wavenumber), "", Absorbance
    Duplicate/O Absorbance $Absorbancewave, $AbsorbancewaveN, $AbsorbancewaveF
   
    KillWaves/Z Wavenumber, Absorbance
    return 0                                // Signifies success.
End

String first = StringFromList(0, S_waveNames)  // Name of first wave created by LoadWave
String second = StringFromList(0, S_waveNames)  // Name of second wave created by LoadWave

String name = <file name>
String firstName = name + "First"
String secondName = name + "Second"
String columnInfoStr
sprintf columnInfoStr, "N='%s';N='%s';", firstName, secondName
LoadWave/B=columnInfoStr ...
<pre><code class="language-igor">