symbolic paths and opening files

Macro loadODMRtraces(pathname)
    // calls loadtrace on all files in folder called pathname
    // Load and process all files in a given folder.
    //   The folder is specified by pathName which becomes a dialog 
    //   if no input is given.
    //   YOU MUST INCLUDE #include <Strings as Lists>
    //   SOMEWHERE IN YOUR PROCEDURE, AS THIS MACRO
    //   CALLS SUBROUTINES FROM THAT INCLUDE FILE.
    String pathName //  name of symbolic path or "" to get dialog
    variable/d numfiles
    String filename
    PauseUpdate; Silent 1   // Processing files . . . 
    Variable index=0
    variable/d tracenum
    if (strlen(pathName)==0)            // if no path specified, create one
        NewPath/O temporaryPath     // this will put up a dialog
        pathName = "temporaryPath"
    endif
    print IndexedFile($pathName,-1,"????")
    do
        fileName = IndexedFile($pathName, index, ".csv")
        if (strlen(fileName)==0)
            break // break out of loop
        endif
//      Assume file name is of form mmddyyc.xxxx, where x is a number. Strip off the number.
        tracenum = str2num(filename[7,10])
        loadODMRtrace(tracenum,filename,pathname)
        print index,filename,tracenum
        index += 1
    while(1)
    if (Exists("temporaryPath"))            // kill temp path if it exists
        KillPath temporaryPath
    endif
EndMacro