Save Experiment SnapShot with Date+Time Stamp Suffix

// Save Experiment SnapShot
Function SaveExpSnapShot()
 
    string pstr = "", nstr, lssn, ossn
    variable vs = 0, vh = 0, vk = 1
 
    // get current experiment info  
    string CurrExperiment = IgorInfo(1)
    string dstamp = DateTimeStamp()
    string SExpName
    
    // note string
    Prompt nstr, "What note for this snapshot?"
    DoPrompt "Note for snapshot?" nstr
    if (v_flag == 1)
        return 0
    endif
    sprintf lssn, "%s\r%s", DateTimeStamp(dsep="-",tsep=":",sep="/"), nstr
    
    // save it?
    PathInfo home
    if (v_flag == 0)
        NewPath/Q/C/M="Where should this experiment be saved?" tsave
        if (v_flag == 0)
            vs = 1
        endif
    else
        vh = 1
        vs = 1
    endif
    
    if (vs == 1)
        SVAR/Z SSN = root:SnapShotNote
        if (SVAR_exists(SSN))
            SExpName = ParseFilePath(1,CurrExperiment,"_",1,0) + dstamp
            ossn = SSN
            SSN = lssn + "\r" + ossn
            vk = 0
        else
            SExpName = CurrExperiment + "_" + dstamp
            string/G root:SnapShotNote
            SVAR SSN = root:SnapShotNote
            SSN = lssn
        endif
            
        switch(vh)
            case 0: // not to home
                SaveExperiment/P=tsave/C as SExpName
                PathInfo tsave
                pstr = S_path
                KillPath tsave
                break
            case 1: // to home
                SaveExperiment/C as SExpName
                PathInfo home
                pstr = S_path
                break
        endswitch
        
        switch(vk)
            case 0: // replace existing with old
                SSN = ossn
                break
            case 1: // kill temporary
                killstrings/Z root:SnapShotNote
                break
        endswitch
        
        sprintf nstr, "%s --> Experiment snapshot saved: %s %s\r%s", DateTimeStamp(dsep="-",tsep=":",sep="/"), pstr, SExpName, nstr
        print nstr
    endif
 
    
    return 0
end
 
 
// date/time stamp in various ways
// dsep - date separator string (default "")
// tsep - time separator string (default "")
// sep - date + time separator string (default "")
// dtonly - 0: all, 1: date only, 2: time only (default 0)
Function/S DateTimeStamp([dsep,tsep,sep,dtonly])
    string dsep, tsep, sep
    variable dtonly
 
    string a, b, c, dstr, tstr, rtstr, gExp
 
    if (ParamIsDefault(sep))
        sep = ""
    endif
 
    if (ParamIsDefault(dsep))
        dsep = ""
    endif
 
    if (ParamIsDefault(tsep))
        tsep = ""
    endif
    
    if (ParamIsDefault(dtonly))
        dtonly = 0
    endif
    
    gExp = "([0-9]+)/([0-9]+)/([0-9]+)" 
    SplitString/E=(gExp) secs2date(datetime,-1), a, b, c
    dstr = c[2,3] + dsep + b + dsep + a
 
    gExp = "([0-9]+):([0-9]+)"  
    SplitString/E=(gExp) secs2time(datetime,2), a, b
    tstr = a + tsep + b
 
    switch(dtonly)
        case 0: // all
            rtstr = dstr + sep + tstr
            break
        case 1: // date only
            rtstr = dstr
            break
        case 2: // time only
            rtstr = tstr
            break
    endswitch
    
    return rtstr
end