DataBrowser Folder Versioning Button

// This installs or removes a VersionFolder button in the DataBrowser
// The VersionFolder button will create a duplicate of the currently selected data folder
// with a date+time stamp appended to it:  'folder name'YYMMDDHHSS
// Copy this to the procedure window, compile, open a Data Browser,
// and then type InstallVersions() on the command line
// Select a data folder to version and click the VersionFolder button
// Remove the button by typing RemoveVersions() at the command line
// This also works with multiple data folders selected ... it will parse and run the command on each one
// It may choke on data folders with long names!
 
#pragma rtGlobals=1
 
Function InstallVersions()
 
    Execute/P/Q/Z "ModifyBrowser appendUserButton={VersionFolder,\"StoreFolderVersion(%s)\"}"   
    return 0
 
end
 
Function RemoveVersions()
 
    Execute/Q/Z "ModifyBrowser deleteUserButton=VersionFolder"  
    return 0
 
end
 
Function StoreFolderVersion(df)
    DFREF df
    
        // return if this is not a data folder
 
    if (DataFolderRefStatus(df)==0)
        return 0
    endif
 
    // uncomment this next portion if you would like to avoid versioning the Packages data folder
 
//  if (DataFolderRefsEqual(df,root:Packages))
//      return 0
//  endif
    
        // get information about the data folder
 
    string cdf = ParseFilePath(1,GetDataFolder(1,df),":",1,0)
    string sdf = ReplaceString("'",GetDataFolder(0,df),"")
    
        // create the new data folder name
 
    string currDTS, vdf
    
    sprintf currDTS, "%s%s",secs2date(DateTime,-2,":")[2,9],secs2time(DateTime,2)
    sprintf currDTS "%s%s" sdf, ReplaceString("'",ReplaceString(":",currDTS,""),"")
    sprintf vdf, "%s%s", cdf, PossiblyQuoteName(currDTS)
    
        // if the new already exists, do not overwrite
 
    if (DataFolderExists(vdf))
        return 0
    endif
 
       // make the new data folder
    
    DuplicateDataFolder df, $vdf
    
    return 0
 
end