ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander Cherepukhin                2:5025/17      16 Nov 2000  14:21:35
 To : All
 Subject : Re: Free disk space
 -------------------------------------------------------------------------------- 
 

 sub FreeSpace #(0:Dir)
 {
   my $sDir = $_[0];
   my $iSize;
 
   die "Cannot run 'dir $sDir'" unless open(DIR, "dir $sDir|");
   while(<DIR>)
   {
     if($_ =~ /^(.+)bytes free/)
     {
       $size = $1;
       $size =~ s/ |\xFF//g;
       close DIR;
       return $size;
     }
   }
   close DIR;
   return 0;
 } #FreeSpace
 
 print FreeSpace("F:\\");
 
 Alexander Cherepukhin <ralex@relex.ru> wrote in message
 news:8uumfv$uh$1@mail.relex.ru...
 
 > Как узнать объем свободного пространства на диске?
 >
 > -------
 > with regards, Черепухин Александр (ralex@relex.ru)
 --- Microsoft Outlook Express 5.00.2014.211
  * Origin: RELEX Inc. (2:5025/17@fidonet)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Free disk space   Alexander Cherepukhin   15 Nov 2000 22:02:39   Re: Free disk space   Alexander Cherepukhin   16 Nov 2000 14:21:35