WhatsApp网页版安卓版下载知乎
楼主朋友可能要现在已经分好区的空间大小，已用空间、剩余空间。
当然我也不敢保证谁对谁错，
我还是WhatsApp网页版官方下载入口把我的理解 然后 也把代码贴出来让楼主看看吧
下面代码的功能：显示光驱当前分区，以及各个盘的总空间，剩余空间。
当然。如果要硬whatsapp网页版在线下载盘总空间，我们可以把所有空间加起来，就达到要求了。
希望下面的代码对楼主有用！
'硬盘空间大小 以及光驱
'添加Drive1 Label1 Label2
Private 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
Private Declare Funcwhatsapp网页版看不到好友头像tion GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nwhatsapp网页版群发脚本Drive As String) As Long
Const DRIVE_CDROM = 5
Public drivenwhatsapp网页版里如何推荐好友m As String, cddrive As String
Private Sub Form_Load()
'查找CD-ROM的驱动器号
cddrive = ""
For i = 65 To 90
If GetDriveType(Chr$(i) & ":\") = DRIVE_CDROM Then
cddrive = UCase(Chr$(i)) & ":\"
Exitwhatsapp网页版国内注册不了 For
End If
Next i
drivenm = "c:"
Label1.AutoSize = True
whatsapp网页版怎么注册Label2.AutoSize = True
Drive1.Left = (Me.Width - Drive1.Width) \ 2
Drive1.Drive = "c"
Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
gethd
End Sub
Private Sub Form_Activate()
MsgBox "你的光驱在:" & cddrive
End Sub
Private Sub Drive1_Change()
drivenm = Mid(Drive1.Drive, 1, 3)
gethd
End Sub
Private Sub gethd() '得知硬盘容量
On Error Resume Next
Dim dfs&, clWhatsApp网页版登录1&, cl2&, sec1&, byt1&, tspace&, getdiskvolm&, lSize&, kk%
Dim hdtype$, hdspace$, hdfspace$
dfs = GetDiskFreeSpace(drivenm, sec1, byt1, cl1, cl2)
If dfs Then
cl2 = Int(cl2 * sec1 / 1024 * byt1)
lSize = Len(Format$(cl2, "#########"))
If lSize < 11 Then
kk = 11 - lSize
End If
hdspace = Space(kk) + Format$(cl2, "#########") + " KBytes"
cl1 = Int(cl1 * sec1 / 1024 * byt1)
lSize = Lenwhatsapp网页版多账号营销(Format$(cl1, &quwhatsapp网页版语音怎么转换成文字ot;#########"))
If lSize < 11 Then
kk = 11 - lSize
End If
hdfspace = Space(kk) + Format$(cl1, "#########") + " KBytes"
Else
hdspace = whatsapp网页版详细介绍""
hdfspace = ""
End If
Label1.Caption = "你的" & drivenm & "盘的总空间是:" & Format(Str(Val(hdspace) / 1024 &#whatsapp网页版 语音验证47; 1024), "##0.0") + " G"
Label2.Caption = "你的" & drivenm & "盘剩余空间是:" & Format(Str(Val(hdfspace) / 1024), "###,##0.0") + " M"
If UCase(Left(Drive1.Drive, 2)) = UCase(Left(cddrive, 2)) Then
If Val(Label1.Caption) = 0 And Val(Label2.Caption) = 0 Then
MsgBox "这张盘是空的光盘"
Else
If Vawhatsapp网页版软件怎么用l(Label1.Caption) > 0 And Val(Labewhatsapp网页版语音通话养号l2.Caption) > 0 Then
MsgBox "这张盘不是空的光盘,但还有空间"
Else
If Val(whatsapp网页版登录设备查看Label1.Caption) > 0 And Val(Label2.Caption) = 0 Then
MsgBox "这张盘是写满并终止的光盘"
End If
End If
End If
End If
End Sub
WhatsApp网页版请注明：WhatsApp网页版 » whatsapp网页版安卓版下载知乎 VB6中怎么获取磁盘信息?
