How to change uigetfolder on uigetdir?

24 次查看(过去 30 天)
Hello
I have an old code using uigetfolder but when I run it I have error message: The function UIGETFOLDER only works on a MS-Windows PC. I wonder if I can use uigetdir to fix it or maybe there is beter way?
function folder = uigetfolder(title, initial_path)
%UIGETFOLDER Standard Windows browse for folder dialog box.
%
% folder = uigetfolder(title, initial_path)
%
% Output: folder = selected folder (empty string if dialog cancelled)
% Inputs: title = title string (OPTIONAL)
% initial_path = initial path (OPTIONAL, defaults to PWD)
%
% Examples: folder = uigetfolder - default title and initial path
% folder = uigetfolder('Select results folder') - default initial path
% folder = uigetfolder([], 'C:\Program Files') - default title
%
% See also UIGETFILE, UIPUTFILE
%-----------------------------------------------------------------------------------------------
if ~strcmp(computer, 'PCWIN')
error_dialog_handle = errordlg(['The function ', upper(mfilename), ' only works on a MS-Windows PC'], ...
mfilename, ...
'modal');
folder = '';
else
if nargin < 2
initial_path = pwd;
end
if nargin < 1 | isempty(title)
title = 'Select a folder';
end
% Error checking
if ~ischar(title)
error('The title must be a string')
end
if ~ischar(initial_path)
error('The initial path must be a string')
end
if ~exist(initial_path, 'dir')
error(['The initial path: ', initial_path, ' does not exist!'])
end
folder = uigetfolder_win32(title, initial_path);
end
%-----------------------------------------------------------------------------------------------

采纳的回答

YT
YT 2019-2-6
编辑:YT 2019-2-6
Wow I looked up this function on FEX and its last update was in the year 2000 (so its pretty much ancient). Like you said yourself, uigetdir(path, title) will work just fine (which was introduced in R2006a). Just remove the error_dialogue part en change uigetfolder_win32 to uigetdir.
function folder = uigetfolder(initial_path, title)
%UIGETFOLDER ^please note that I changed the position of initial_path and title; makes more sense
if nargin < 2
initial_path = pwd;
end
if nargin < 1 | isempty(title)
title = 'Select a folder';
end
% Error checking
if ~ischar(title)
error('The title must be a string')
end
if ~ischar(initial_path)
error('The initial path must be a string')
end
if ~exist(initial_path, 'dir')
error(['The initial path: ', initial_path, ' does not exist!'])
end
folder = uigetdir(initial_path, title);
end
  4 个评论
Piotr Matysiak
Piotr Matysiak 2019-2-7
Thank You for your quick answer! Everything is working fine ;)
YT
YT 2019-2-8
No problem. Please dont forget to click on the 'accept answer' button to close this question.

请先登录,再进行评论。

更多回答(0 个)

类别

Help CenterFile Exchange 中查找有关 Environment and Settings 的更多信息

Community Treasure Hunt

Find the treasures in MATLAB Central and discover how the community can help you!

Start Hunting!

Translated by