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

my $start = time;

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

my $cFolders = 0;
my $cFiles   = 0;

while( @folders ) {
    local $^W;
    my $folder = pop @folders;
    $cFiles += $folder->Files->Count;
    $cFolders += $folder->Subfolders->Count;
    for my $subFolder ( in $folder->SubFolders ) {
        $cFiles += $subFolder->Files->Count;
        $cFolders += $subFolder->SubFolders->Count;
        push @folders, $_ for in $subFolder->SubFolders ;
    }
}

my $seconds = time - $start;
my $minutes = int( $seconds / 60 );
$seconds %= 60;

printf "Folders:$cFolders Files:$cFiles [%u:%.2f]\n",
    $minutes, $seconds;

__END__
[12:05:12.81] c:\test>countFiles c:\
Folders:68860 Files:1234105 [2:14.00]