Just to see what I could provide in Perl, I threw together a little recursing script. Here are the results:
c:\data\scripts>recurse2.pl c:\winnt
Elapsed time: 15 seconds
Files: 10824, Bytes: 1287020642
dir c:\winnt /s took 50 seconds.
Total Files Listed:
10726 File(s) 1,284,268,060 bytes
857 Dir(s) 16,329,506,816 bytes free
I am still checking/debugging but if anyone is interested, I'll compile it and post it on my web site.
c:\data\scripts>recurse2.pl c:\winnt c:\data
Elapsed time: 19 seconds
Files: 13546, Bytes: 2004357973
---------------------------------------------
checking C:\data on my computer:
DOS DIR
Total Files Listed:
2720 File(s) 717,319,707 bytes
c:\data\scripts>recurse2.pl c:\data
Elapsed time: 5 seconds
Not quite sure where the 2 additional files came from. But on another directory the program and DOS Dir match.
Files: 2722, Bytes: 717336963
[ 06 June 2002, 04:45: Message edited by: Howard Bullock ]
