How to write names of many files in single excel file along with its folder name?

8 次查看（过去 30 天）
ahmed obaid
ahmed obaid 2017-2-2
评论： ahmed obaid 2017-2-2
Dear experiences
i have many folders where every folder contain large number of text files.. i need to write their names along with parent directory name in an excel file.. such as following:
for example if there are master folder include 100 folders { fol1, fol2, fol3..etc} in every sub-folder{fol1,fol2..etc} there are some text files .. i need to write their names in an excel file where first column contain sub-folder name, and second columns contain the names of text files in that sub-folder name, and so on for others .. all result in a single excel file.. such that.
A column B column
fol1 1st text file name in fol1
fol1 2nd text file name in fol1
fol2 1st text file name in fol2
etc..
i have tested the following code but its write all files in first row..
projectdir = 'D:\masterfiles';
xls_filename ='D:\masterfiles\master.xls'
column_range = A;
row_range = 2;
xls_sheet = 'Sheet1';
dinfo = dir(projectdir);
dinfo(~[dinfo.isdir]) = []; %remove non-folders
dinfo(ismember({dinfo.name}, {'.', '..'})) = []; %remove . and .. directories
num_subdir = length(dinfo);
for S = 1 : num_subdir
this_subdir = dinfo(S).name;
subdinfo = dir( fullfile(projectdir, this_subdir, '*.htm*') );
num_subfile = length(subdinfo);
for F = 1 : num_subfile
this_file = subdinfo(F).name;
xlswrite(xls_filename,{dinfo(S).name}, xls_sheet, 'A');
xlswrite(xls_filename,{this_file}, xls_sheet, xlscol(row_range));
row_range =row_range + 1;
end
end
thanks for any suggestion.

请先登录，再回答此问题。

采纳的回答

Guillaume
Guillaume 2017-2-2
Assuming you're using R2016b, where dir supports recursing into folder these 4 lines are all you need:
projectdir = 'D:\masterfiles';
t = struct2table(dir(fullfile(projectdir, '*\*.txt'))); %find text files in all immediate subdirectories of projectdir
t.folder = strrep(t.folder, fullfile(projectdir, '\'), ''); %fullfile(path, '\') canonise the path
writetable(t(:, {'folder', 'name'}), fullfile(projectdir, 'master.xls');
  5 个评论
显示 3更早的评论
Guillaume
Guillaume 2017-2-2
Try this:
d = dir(fullfile(projectdir, '*'));
files = [];
for subdir = d([d.isdir] & ~ismember({d.name},{'.', '..'}))'
subfiles = dir(fullfile(projectdir, subdir.name, '*.txt'));
[subfiles.folder] = deal(subdir.name);
files = [files; subfiles]; %#OK<AGROW>
end
t = struct2table(files);
writetable(t(:, {'folder', 'name'}), fullfile(projectdir, 'master.xls');

请先登录，再进行评论。

更多回答（1 个）

Jan
Jan 2017-2-2
编辑：Jan 2017-2-2
Collect the data at first and write them to the file in one block:
% [EDITED, 02.02.2017 21:19 UTC]
projectdir = 'D:\masterfiles';
xls_filename = 'D:\masterfiles\master.xls';
xls_sheet = 'Sheet1';
dinfo = dir(projectdir);
dinfo(~[dinfo.isdir]) = []; %remove non-folders
dinfo(ismember({dinfo.name}, {'.', '..'})) = []; %remove . and .. directories
num_subdir = length(dinfo);
output = {};
for S = 1:num_subdir
this_subdir = dinfo(S).name;
subdinfo = dir(fullfile(projectdir, this_subdir, '*.htm*'));
if ~isempty(subdinfo )
subname = {subdinfo.name}.';
subpath = repmat({this_subdir}, length(subname), 1);
output = cat(1, output, cat(2, subpath, subname)); % [BUGFIX]
end
end
Range = sprintf('A%1:B%d', size(output, 1));
xlswrite(xls_filename, output, xls_sheet, Range);
  3 个评论
显示 1更早的评论
ahmed obaid
ahmed obaid 2017-2-2
thank for your help, now its only write the last folder along with its file names and keeping cells to N/A .. as in my attached image.
Jan
Jan 2017-2-2
The code had another bug, which is fixed now. The range must be specified to avoid filling the complete column.

请先登录，再进行评论。

类别

在 Help Center 和 File Exchange 中查找有关 Spreadsheets 的更多信息

标签

产品

Community Treasure Hunt

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

Start Hunting!

Translated by