From: perl-win32-users-boun...@listserv.activestate.com
[mailto:perl-win32-users-boun...@listserv.activestate.com] On Behalf Of Daniel
Burgaud
Sent: 13 March 2012 22:53
To: Perl-Win32-Users
Subject: directory listing of Computer on win32
Hi All,
I am clueless how to do a directory list
This should show you all the local drives (minus CDs) :) Drive E:
is a USB Flash drive in my output below
HTH
use Win32::OLE;
$objWMIService = Win32::OLE-GetObject(winmgmts://./root/cimv2);
$colDisks = $objWMIService-ExecQuery(Select * from Win32_LogicalDisk
where ProviderName IS NULL
I am clueless how to do a directory list starting at the very root
Computer which includes all drives.
What I am doing to get a directory tree is this:
my $directory = ;
opendir DIR, $directory;
my @files = readdir DIR;
closedir DIR;
But it only start at one drive - not all
This seems a similar problem to the intermittent one I reported some while
ago. In my case, I found that using perlapp from a command window and NOT
moving the window once perlapp had started usually allowed it to complete
normally. However, I am using a licenced version of perlapp, not a trial
i would submit the problem is not perlapp, but rather the permissions on
the machine where you are running this at. try either or both:
launch all of this from an 'elevated to run as admin' cmd window (eg; its
not enough to have a windows login in windows vista, or higher, thats admin
- you