use strict;
use warnings;
> > sub GetDirList {
> >
> > opendir (D_LIST, $_[0]) or die "Could not open directory $_[0]";
> > while ( defined ($vf = readdir D_LIST) ) {
> > next if $gf =~ /^\.\.?$/; # skip . and ..
> > if (-d "$_[0]/$vf") {
> > $file_list .= "$_[0]<BR>";
> > $z="$_[0]/$vf";
> > GetDirList($z);
> > }
> > }
> > closedir DIRECTORY_LIST;
> >
> > }
You have a $gf is it a typo? did you mean $vf?
/Stefan
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
