findfile.pl

Find a file (Perl) Uses the FindFile() method to locate a file.

00001 use Win32::OLE;
00002 use Win32::OLE::Variant;
00003 my $session = Win32::OLE->new('MiKTeX.Session')
00004   or die "MiKTeX is not properly installed.\n";
00005 my $path = Variant(VT_BSTR|VT_BYREF, '');
00006 if ($session->FindFile($ARGV[0], $path)) {
00007   print "$path\n";
00008 }

Generated on Fri Dec 14 18:27:43 2007 for MiKTeX by  doxygen 1.5.1-p1