my @xmlfiles = ();
	opendir(DIR, $self->{dirtree}->GetSelectedPath()) || die "Cannot open selected path. Make sure a path is selected!";
	@xmlfiles = grep(/\.xml$/, readdir(DIR));
	closedir(DIR);
	
	my $xmlreader;
	my $showerr = 0;
	my @taglist = ();
	# For every XML file in our list...
	for(my $count = 0; $count < @xmlfiles; $count++){
		# Create an XML reader for that file, get all the tag data into an array then add only relevant tag data
		# to the @taglist array.
		# $xmlreader = new HTML::TagReader $self->{dirtree}->GetSelectedPath() . "\\" . $xmlfiles[$count];
		# my @tagarr = $xmlreader->gettag($showerr);
		# for(my $subcount = 0; $subcount < @tagarr; $subcount++){
		#	push(@taglist, $tagarr[$subcount*3]); 
		# }
		my $infile = $self->{dirtree}->GetSelectedPath() . "\\" . $xmlfiles[$count];
   		my %removedumplicate;
		my @tagarr;
   		my $p=new HTML::TagReader $infile;
   		while(@tagarr = $p->getbytoken(!my $opt_W)){
       		my $origtag =$tagarr[0];
       		if($tagarr[1] eq "" || $tagarr[1] eq "!--"){ 
           		next;
       		}
       		if ($removedumplicate{$tagarr[0]}){
            	next;
      	 	}
       push(@taglist, $tagarr[0]);
       $removedumplicate{$tagarr[0]}++;
       }
	}