sub open_directory_file_pdf
{

	my $Directory = File::Spec->canonpath( $mw->chooseDirectory() );
	my $shortpath = Win32::GetShortPathName( "$Directory" );
	chdir($shortpath) or die "$!";
	
	opendir (DIR, "$shortpath") or die "$!";
	my @files = grep {/.*?\.pdf/}  readdir DIR;

	foreach my $file (@files) {
		system ("files/pdftotext.exe -nopgbrk -q \"$file\"" );
	}
close DIR;
}