Re: $B%G%#%9%/MFNL$N%A%'%C%/J}65$($F(J

Article View: fj.lang.visualbasic

Article #1202

Back to fj.lang.visualbasic Previous Next

#1202

From: B 0f J BLw9 J
Date: Thu, 16 Oct 1997 00:00

30 lines
1288 bytes

$B$I$&$b!"D3M}>pJs%7%9%F%`$N]/0f$H$$$$$^$9!#(J

> $B#V#B$NCf$+$i!"%O!]%I%G%#%9%/$N;D$jMFNL$rD4$Y$kJ}K!$r(J
> $B$4B8CN$NJ}$,$*$j$^$7$?$i!"65$($F2<$5$$!#(J

API$B$r;HMQ$7$F!"<hF@$9$kJ}K!$J$i9T$C$?$3$H$,$"$j$^$9!#(J


$B@k8@%3!<%I(J
Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA"
(ByVal lpRootPathName As String, lpSectorsPerCluster As Long,
lpBytesPerSector As Long, lpNumberOfFreeClusters As Long,
lpTtoalNumberOfClusters As Long) As Long


$B<B9T%3!<%I(J
Dim lwk as Long
    lwk = GetDiskFreeSpace(vbNullString, secter_cluster, bytes_sector,
freeclusters, diskclusters)
    If lwk = 1 Then
        lwk = ((freeclusters * secter_cluster * bytes_sector) / 1024) /
1024
        lbFreeDisk2 = Format(lwk, "###,###,##0") & " MB"
    End If


$B$3$l$G$$$1$k$+$H;W$$$^$9!#(J
$B$G$o$G$o(J

Technical Details

Message-ID: <01bcda1f$41bfc720$3b0b18ac@sakurai>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

References: <tadao-1610971836070001@tadao.ga.sony.co.jp>

Show Full Headers

Complete Article Headers

X-Google-Language: Japanese,JIS
X-Google-Thread: 105c2e,13bd9e688a317dbf
X-Google-Attributes: gid105c2e,public
From: "$B]/0f(J $BLw9((J" <sakurai@cjs.co.jp>
Subject: Re: $B%G%#%9%/MFNL$N%A%'%C%/J}65$($F(J
Date: 1997/10/16
Message-ID: <01bcda1f$41bfc720$3b0b18ac@sakurai>
X-Deja-AN: 281030300
References: <tadao-1610971836070001@tadao.ga.sony.co.jp>
Organization: CJS Corporation
Newsgroups: fj.lang.visualbasic

Reply to Parent Message

Article View: fj.lang.visualbasic

Re: $B%G%#%9%/MFNL$N%A%'%C%/J}65$($F(J

Re: $B%G%#%9%/MFNL$N%A%'%C%/J}65$($F(J