Mercurial > hg > camir-ismir2012
diff toolboxes/FullBNT-1.0.7/KPMtools/mkdirKPM.m @ 0:cc4b1211e677 tip
initial commit to HG from
Changeset:
646 (e263d8a21543) added further path and more save "camirversion.m"
author | Daniel Wolff |
---|---|
date | Fri, 19 Aug 2016 13:07:06 +0200 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/toolboxes/FullBNT-1.0.7/KPMtools/mkdirKPM.m Fri Aug 19 13:07:06 2016 +0200 @@ -0,0 +1,24 @@ +function mkdirKPM(dname) +% function mkdirKPM(dname) +% If directory does not exist, make it +% +% mkdirKPM('foo\bar\baz') makes subdirectories bar and baz +% mkdirKPM('foo\bar\baz.txt') makes subdirectories bar + +% convert foo\bar\baz to pathstr=foo\bar, name=baz +% convert foo\bar\baz.txt to pathstr=foo\bar, name=baz +[pathstr, name, ext, versn] = fileparts(dname); +if ~isempty(ext) % we stripped off something after final period + % convert foo\bar to pathstr=foo, name=bar + % convert foo\bar.bad to pathstr=foo, name=bar.bad + [pathstr, name, ext, versn] = fileparts(pathstr); + name = sprintf('%s%s', name, ext); % in case there is a period in the directory name +end + +dname = fullfile(pathstr, name); +if ~exist(dname, 'dir') + %fprintf('mkdirKPM: making %s, %s \n', pathstr, name); + mkdir(pathstr, name) +else + %fprintf('mkdirKPM: %s already exists\n', dname) +end