List all DCR/Pages based on root foler/path

Does anyone know if there's a way in Perl (template) where we can list out all the DCR (pages) based on a root folder (path)?

Thanks!

Find more posts tagged with

Comments

vaibhav2288

Does anyone know if there's a way in Perl (template) where we can list out all the DCR (pages) based on a root folder (path)?

Thanks!

Bellow code gets all the files in the dir... then user RE to get the only files with .dcr or .page extension.

my $vpath = "D:\\TPL";
opendir(IMD, $vpath);
my @thefiles= readdir(IMD);
print @thefiles;

Might help....

Rick Poulin

Note that the above only reads the current folder and doesn't recursively go down any tree. You can do that yourself, or use File::Find:


use File::Find;
my @files;
find(\&dostuff,'/iwmnt/default/path/to/whatevz');
sub dostuff {
    # Same as readdir, this will give you files, subdirectories,
    # and implicit directories '.' and '..'
    push (@files, $File::Find::name) if -f $File::Find::Name;
}