超小问题!女朋友要的!在线等,大家帮帮忙吧!!!谢谢大家了.. 用一个COMBOX控件,下面有几项。C ,D ,E。分边带表C,D,E盘。选哪一个盘就把哪个盘的,总容量和剩容量打出来。可以显在文本框里。总容量和剩容量怎么得到呀!这么简单的问题...大家帮忙呀! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 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说明 获取与一个磁盘的组织有关的信息,以及了解剩余空间的容量 返回值 Long,非零表示成功,零表示失败。会设置GetLastError 参数表 参数 类型及说明 lpRootPathName String,不包括卷名的一个磁盘根路径 lpSectorsPerCluster Long,用于装载一个簇内扇区数的变量 lpBytesPerSector Long,用于装载一个扇区内字节数的变量 lpNumberOfFreeClusters Long,用于装载磁盘上剩余簇数的变量 lpTtoalNumberOfClusters Long,用于装载磁盘上总簇数的变量 注解 在采用FAT16格式的windows95系统中,如一个驱动器(分区)的容量超过了2GB,则不应使用这个函数。此时,这个函数能识别的最大分区容量只有2GB 我错了!!!大哥们帮忙了!!!这个API不会用哇我是玩C++的!!救命了!!!!!!!!!!!!!!!!!!! Dim fsoTest As New FileSystemObjectDim drv1 As Drive, sReturn As String'由于FSO对象包含在Scripting 类型库 (Scrrun.Dll)中,所以在使用前首先需要在在工程中引用这个文件,单击“工程”,“引用”,然后在“引用”对话框中选中“Microsoft Scripting Runtime”前的复选框,然后单击“确定”。Private Sub Combo1_Click()Set drv1 = fsoTest.GetDrive(Combo1.Text)sReturn = "Drive " & Combo1.Text & vbCrLfsReturn = sReturn & "VolumeName" & drv1.VolumeName & vbCrLfsReturn = sReturn & "Total Space: " & FormatNumber(drv1.TotalSize / 1024, 0)sReturn = sReturn & "Kb" & vbCrLfsReturn = sReturn & "Free Space: " & FormatNumber(drv1.FreeSpace / 1024, 0)sReturn = sReturn & "Kb" & vbCrLfsReturn = sReturn & "FileSystem:" & drv1.FileSystem & vbCrLfText1.Text = sReturnEnd SubPrivate Sub Form_Load()For Each drv1 In fsoTest.Drives Combo1.AddItem drv1.DriveLetterNextEnd Sub 编程知识自测, 令理科生沉默,文科生落泪, 心理脆弱承受能力不高者慎入!!! 读卡器字符串问题 MSDN里一段让人很汗的文字:关于抓BUG的的 qbasic程序清单是用什么语言写的? 如何判断它? 如何在filelistbox中只显示.bmp文件 MultiLine TextBox怎么控制它的滚动条总是滚动到低端 请教怎么将一个数据库加到另一个同类型的数据库中? VB中,我在一个窗体上放置了一个ADO控件和一个数据列表控件datalist1,将ADO控件的各项参数都设好后,在datalist1的属性中却怎么也找不到 为什么不能及时更新? 十万火急呀 IMAGE字段图象显示问题?
获取与一个磁盘的组织有关的信息,以及了解剩余空间的容量
返回值
Long,非零表示成功,零表示失败。会设置GetLastError
参数表
参数 类型及说明
lpRootPathName String,不包括卷名的一个磁盘根路径
lpSectorsPerCluster Long,用于装载一个簇内扇区数的变量
lpBytesPerSector Long,用于装载一个扇区内字节数的变量
lpNumberOfFreeClusters Long,用于装载磁盘上剩余簇数的变量
lpTtoalNumberOfClusters Long,用于装载磁盘上总簇数的变量
注解
在采用FAT16格式的windows95系统中,如一个驱动器(分区)的容量超过了2GB,则不应使用这个函数。此时,这个函数能识别的最大分区容量只有2GB
这个API不会用哇我是玩C++的!!
救命了!!!!!!!!!!!!!!!!!!!
Dim drv1 As Drive, sReturn As String
'由于FSO对象包含在Scripting 类型库 (Scrrun.Dll)中,所以在使用前首先需要在在工程中引用这个文件,单击“工程”,“引用”,然后在“引用”对话框中选中“Microsoft Scripting Runtime”前的复选框,然后单击“确定”。Private Sub Combo1_Click()
Set drv1 = fsoTest.GetDrive(Combo1.Text)
sReturn = "Drive " & Combo1.Text & vbCrLf
sReturn = sReturn & "VolumeName" & drv1.VolumeName & vbCrLf
sReturn = sReturn & "Total Space: " & FormatNumber(drv1.TotalSize / 1024, 0)
sReturn = sReturn & "Kb" & vbCrLf
sReturn = sReturn & "Free Space: " & FormatNumber(drv1.FreeSpace / 1024, 0)
sReturn = sReturn & "Kb" & vbCrLf
sReturn = sReturn & "FileSystem:" & drv1.FileSystem & vbCrLf
Text1.Text = sReturnEnd SubPrivate Sub Form_Load()
For Each drv1 In fsoTest.Drives
Combo1.AddItem drv1.DriveLetter
Next
End Sub