Thread View: fj.lang.visualbasic
4 messages
4 total messages
Started by sasaki tadao
Thu, 16 Oct 1997 00:00
ディスク容量のチェック方教えて
Author: sasaki tadao
Date: Thu, 16 Oct 1997 00:00
Date: Thu, 16 Oct 1997 00:00
3 lines
532 bytes
532 bytes
$B#V#B$NCf$+$i!"%O!]%I%G%#%9%/$N;D$jMFNL$rD4$Y$kJ}K!$r(B $B$4B8CN$NJ}$,$*$j$^$7$?$i!"65$($F2<$5$$!#(B
Re: $B%G%#%9%/MFNL$N%A%'%C%/J}65$($F(J
Author: B 0f J BLw9 J
Date: Thu, 16 Oct 1997 00:00
Date: Thu, 16 Oct 1997 00:00
30 lines
1288 bytes
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
Re: ディスク容量のチェック方教えて
Author: Sato Masahiro
Date: Thu, 16 Oct 1997 00:00
Date: Thu, 16 Oct 1997 00:00
11 lines
893 bytes
893 bytes
In article <tadao-1610971836070001@tadao.ga.sony.co.jp>, tadao@ga.sony.co.jp says... > >$B#V#B$NCf$+$i!"%O!]%I%G%#%9%/$N;D$jMFNL$rD4$Y$kJ}K!$r(B >$B$4B8CN$NJ}$,$*$j$^$7$?$i!"65$($F2<$5$$!#(B Win32 API $B$N(B GetDiskFreeSpace $B4X?t$G!"%I%i%$%VL>$H%k!<%H%G%#%l%/%H%j$r(B $B;XDj$9$k$3$H$K$h$C$F!";D$jMFNL$r<hF@$9$k$3$H$,$G$-$^$9!#(B -- $B:4F#@59((B <masahiro@cij.co.jp>
Re: $B%G%#%9%/MFNL$N%A%'%C%/J}65$($F(J
Author: B 0f J BLw9 J
Date: Fri, 17 Oct 1997 00:00
Date: Fri, 17 Oct 1997 00:00
28 lines
1424 bytes
1424 bytes
$B$I$&$b!"D3M}>pJs%7%9%F%`$N]/0f$H$$$$$^$9!#(J
$B<+8J%l%9$G$9!#(J
$B$J$s$H$^$!!"$R$I$$%l%9$K$J$C$F$$$^$9$M!#(J
API$B$N;HMQK!$N2r@b$b:\$;$:$K$9$$$^$;$s!#(J
$B$b$&4{$K2r7h:Q$_$+$bCN$l$^$;$s$,!"$b$&>/$7(J
GetDiskFreeSpace$B$K$D$$$F>\$7$/!"@bL@$$$?$7$^$9!#(J
GetDiskFreeSpace$B!J(J S$B#t#r(Jing1$B!"(J Long1$B!"(JLong2$B!"(JLong3$B!"(JLong4 $B!K(J
S$B#t#r(Jing1
$BD4$Y$?$$%G%#%l%/%H%j$N%Q%9$r;XDj$7$^$9!#(J
vbNullString $B$r;XDj$9$k$3$H$K$h$j!"<B9T$7$F$$$k%k!<%H$rBP>]$H$7$^$9!#(J
Long1
$B%/%i%9%?Ev$?$j$N%;%/%??t$,JV$5$l$^$9!#(J
Long2
$B%;%/%?Ev$?$j$N%P%$%H?t$,JV$5$l$^$9!#(J
Long3
$B%G%#%9%/>e$N6u$-%/%i%9%?$NAm?t$,JV$5$l$^$9!#(J
Long4
$B%G%#%9%/>e$N%/%i%9%?Am?t$,JV$5$l$^$9!#(J
$B4X?t$,@5>o$K=*N;$7$?>l9g$O!"(JTRUE$B$rJV$7$^$9!#(J
$B$=$l0J30$O(JFALSE$B$rJV$7$^$9!#(J
$B8e$O!"K>$_$NC10L$K$J$k$h$&$K!"JV$5$l$?CM$r7W;;$9$l$P$$$$$G$7$g$&!#(J
$B$G$o$G$o(J
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads