Postby ConvertFromOldNGs » Fri Aug 07, 2009 2:35 pm
by hanisoft >> Thu, 13 Dec 2001 7:59:50 GMT
I've tried direct picker. But 'mask' property of FildFolder won't work, so I pick files directly not via Browser.
The source is below.
viewSystemDir()updating;
vars
f : FileFolder;
s : Integer;
fl, fl2 : FileNode;begin
create f transient;
foreach fl in f.files do
if fl.fileName = '\WINDOWS' then
break;
endif;
endforeach;
foreach fl2 in fl.FileFolder.files do
if fl2.fileName = '\WINDOWS\FONTS' then
break;
endif;
endforeach;
foreach s in 1 to fl2.FileFolder.files.size do
write fl2.FileFolder.files[s].fileName;
endforeach;
// write f.files[1].FileNode.name;
delete f;
end;
Above processor takes a lot of time.
Any other idea?