#! perl -slw
use strict;
use Win32::OLE qw[in];

my $fso = Win32::OLE->new( 'Scripting.FileSystemObject' );
my @folders = $fso->GetFolder( $ARGV[0] );

my $fCount =0;

while( @folders ) {
	my $folder = pop @folders;
	$fCount += $folder->Files->Count;
	for my $subFolder ( in $folder->SubFolders ) {
		$fCount += $subFolder->Files->Count;
		push @folders, $_ for in $subFolder->SubFolders ;
	}
}

print $fCount;