Velocity Reviews - Computer Hardware Reviews

Velocity Reviews > Newsgroups > Programming > Perl > Perl Misc > File::Find Problems with ntfs compressed folders

Thread Tools

File::Find Problems with ntfs compressed folders

John Armsby
Posts: n/a
My apologies if this has already been posted.... Just point where...

I am using the following script to get file path, filename, and
timestamp. Worked fine until the NT guys started compressing folders.
I can point the script explicitly at a compressed folder and it will
recurse down. Unfortunately it does not seem to "see" compressed
folders by default and then recurse down.

Is there an update to this somewhere??

#!c:\perl\bin\perl -w

# uses the arc server name and returns the full path and file
# along with the timestamp of the file......

use File::Find;

# find \&Getit , 'develop/';
# find \&Getit , 'j:/depts/wspproje/projectd/library/';
# find \&Getit , '\\\HDQ_Doc1/Vol1/depts/wsp projects/project
find \&Getit , '\\\';

sub Getit
if ( -f && (@FileStat = stat) )
$FileName =$File::Find::name;
$FileTime = $FileStat[9];
$LocalFileTime =localtime($FileTime);
$FileName =~s|/|\\|g; # added to replace foreward slashes with
back slashes... 4/26/00
$FileName =~s|\\\\10\.228\.128\.11||g;
$FileName =~s|\\PowerServer|PowerServer|g;



Reply With Quote

Thread Tools

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off

Similar Threads
Thread Thread Starter Forum Replies Last Post
Need to unzip uploaded Windows compressed folders Cal Who ASP .Net 7 01-30-2010 04:11 PM
Re: Shared Folders/NTFS Permissions AJR MCDST 3 01-25-2007 01:21 PM
Creating a batch to determine if HD is NTFS if not format it NTFS Tech Computer Support 3 04-06-2004 06:19 PM
Syncing POP folders with IMAP folders Rich Computer Support 1 02-12-2004 09:36 PM
Compressed folders John MCSE 11 12-16-2003 07:21 PM