Perlコーディング初心者質問スレ Part 56

[0834 nobodyさん 2008/01/30(水) 18:43:24 ID:???]

use strict;use warnings;
use Win32::OLE;
my $sh = Win32::OLE->new('WScript.Shell');
print $sh->SpecialFolders("Desktop");


use strict;use warnings;
use Win32 qw/CSIDL_DESKTOP/;
print Win32::GetFolderPath( &CSIDL_DESKTOP );