displink2folder( folder, pre_text, link_text, post_text )

function displink2folder( folder, pre_text, link_text, post_text )
    % DISPLINK2FOLDER( FOLDER )
    % Displays a hyperlink that opens an Explorer window in the folder
    % Optional arguments:
    % CSPM_DISPLINK2FOLDER( FOLDER, PRE_TEXT, LINK_TEXT, POST_TEXT )
    %    PRE_TEXT - before link
    %    LINK_TEXT - text with link
    %    POST_TEXT - text after link
    %
    % Paul Macey, July 2008

    if ~ispc, return, end

    if nargin < 1
        folder = uigetdir('Select folder to make link for');
        if folder == 0, return, end
    end
    if ~exist(folder,'dir') && ~exist(folder,'file')
        disp(['Folder "',folder,'" does not exist.'])
        return
    end
    if nargin < 2
        pre_text = '';
    end
    if nargin < 3
        link_text = folder;
    end
    if nargin < 4
        post_text = '';
    end

    % Notes:  
    %        * " &" returns control to the matlab command window
    %        * don't need "" for folder names with spaces 
    disp([pre_text,...
        '<a href = "matlab: [s,r] = system(''explorer ',folder,' &'');">',...
        link_text,'</a>',...
        post_text])

end