NAME

Win32::FindFile - Perl extension for calling win32 FindFirstFileW/FindNextFileW ( or FindFirstFile FindNextFile )

SYNOPSIS

  use Win32::FindFile;
  
  my @txt_files = FindFile( "*.txt" );
  my @dir_content = FindFile( "*" );

  # and finally
  # print entire directory content in unicode 
  #
  binmode( STDOUT, ":utf8" );
  for ( @dir_content ){
	  utf8::decode( $_ );
	  print $_, "\n";
  };
  print "Current directory is ", GetCurrentDirectory(), "\n";

# Using with Win32API::File

  use Win32::FindFile qw(wchar GetCurrentDirectory);
  use Win32API::File qw(MoveFileW);
  use Win32::API ;

  my %rename ( ... )
  for (FindFile( '*' )){
	next unless $rename{$_}:
	MoveFileW( wchar( $_ ), wchar( $rename{$_} ) or die "$^E";

  }

DESCRIPTION

Win32::FindFile are simple wrapper around win32 functions FindFileFirst/FindFileNext

EXPORT

@content = FindFile( $Pattern )

$directory = GetCurrentDirectory();

SEE ALSO

Win32, Win32API(CopyFile, DeleteFile, MoveFile)

AUTHOR

A. G. Grishaev, <grian@cpan.org<gt>

COPYRIGHT AND LICENSE

Copyright (C) 2010 by A. G. Grishaev

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.10.1 or, at your option, any later version of Perl 5 you may have available.