Chip 2000 May/Chip_2000-05_cd1.bin/zkuste/Perl/ActivePerl-5.6.0.613.msi/䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥/_827374589e27bd72ae4086eebca709f7

Text File | 2000-03-15 | 472b | 20 lines

<Job Id="SpecialFolder">
<script language=PerlScript>
$WshShell = $WScript->CreateObject("WScript.Shell");
$numFolders = $WshShell->SpecialFolders->{Count};
$title = "PerlScript & WSH Example";
$style = 1;


for($i=0; $i<$numFolders; $i++) {
$ok_or_cancel =  $WshShell->Popup(
                 $WshShell->SpecialFolders($i),
                 undef,
                 $title,
                 $style);

exit if ($ok_or_cancel == 2);
}

</script>
</job>