硬盘空间如何得知？

2003-10-23 06:22:09 160 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

lwplwp123 墨衍会员 · AI 创作全网分发关注 + 加入社区

VMWare下扩展Linux硬盘空间本文主要研究了VMWare下动态扩展linux硬盘空间的问题阅读详情

有什么办法可以知道我的C区共有多少空间，用了多还，还有多少？
最好是一个命令，或是一个函数，sql里的函数也可以。
高手请指点一下。

...全文

Python 驱动 CAD 二次开发：从零搭建自动化绘图环境本文详细介绍了如何利用Python进行CAD二次开发，实现自动化绘图。通过win32com库建立Python与CAD软件的通信，文章从环境搭建、连接CAD、操作文档到核心绘图与批量处理，提供了完整的实战指南。该方法能显著提升机械设计、建筑绘图等领域的重复性工作效率，将创造力从繁琐劳动中解放出来。阅读详情

lwplwp123

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

lwplwp123 2003-10-24

打赏
举报

高手们，俺想得到远程序服务器上的空间，看来是要再做些努力了。
服务器上有SQL，能不能通过SQL得知，
要不的话俺还得在服务器上运行一个程序。
不过这已要多谢各位了。
晚上给分。

lwplwp123 2003-10-24

打赏
举报

高！
谢！

online 2003-10-24

打赏
举报

如果把与那远程计算机硬盘共享，依次盘符会是h:,k:,l:
sdrive="h:\"即可
如果有driver控件，会自动列出所有的盘符
sDrive = Left$(DrvSelect.Drive, 1)
sDrive = sDrive & ":\"

sharkliang 2003-10-24

打赏
举报

关注

online 2003-10-24

打赏
举报

Option Explicit

' API声明
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 Sub Form_Load()
GetDriveInfo
End Sub

' 选中一个驱动器时
Private Sub drvSelect_Change()
GetDriveInfo
End Sub

' 获取磁盘剩余空间信息并显示在相应的标签中
Private Function GetDriveInfo()
Dim sDrive As String
Dim lBytes As Long
Dim lMBFree As Double
Dim lMBTotal As Double
Dim lSecPerClust As Long ' 扇区每簇
Dim lBytePerSect As Long ' 字节每扇区
Dim lNumFreeClust As Long ' 空白簇的数目
Dim lTotalNumClust As Long ' 簇的总数

' 获取盘符
sDrive = Left$(DrvSelect.Drive, 1)
sDrive = sDrive & ":\"
' 调用API函数返回剩余空间
lBytes = GetDiskFreeSpace(sDrive, lSecPerClust, lBytePerSect, lNumFreeClust, lTotalNumClust)
' 转换以兆为单位
lMBFree = ((lSecPerClust * lNumFreeClust) / 1024) * lBytePerSect / 1024
lMBTotal = ((lSecPerClust * lTotalNumClust) / 1024) * lBytePerSect / 1024
' 显示信息
lblSecPerClust.Caption = lSecPerClust & " Sectors/Cluster"
lblBytePerSect.Caption = lBytePerSect & " Bytes/Sector"
lblNumFreeClust.Caption = lNumFreeClust & " Free Clusters"
lblTotalNumClust.Caption = lTotalNumClust & " Total Clusters"
lblTotalSpace.Caption = lMBTotal & " MB Total Space"
lblSpaceFree.Caption = lMBFree & " MB Free on Drive " & DrvSelect.Drive
End Function

kmzs 2003-10-23

打赏
举报

不错

whjwsy 2003-10-23

打赏
举报

可用filesystemobject来获取

wxrwan 2003-10-23

打赏
举报

TechnoFantasy 2003-10-23

打赏
举报

Private Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias "GetDiskFreeSpaceExA" (ByVal lpRootPathName As String, lpFreeBytesAvailableToCaller As Currency, lpTotalNumberOfBytes As Currency, lpTotalNumberOfFreeBytes As Currency) As Long
Private Sub Form_Load()
Dim r As Long, BytesFreeToCalller As Currency, TotalBytes As Currency
Dim TotalFreeBytes As Currency, TotalBytesUsed As Currency
'the drive to find
Const RootPathName = "C:\"
'get the drive's disk parameters
Call GetDiskFreeSpaceEx(RootPathName, BytesFreeToCalller, TotalBytes, TotalFreeBytes)
'show the results, multiplying the returned
'value by 10000 to adjust for the 4 decimal
'places that the currency data type returns.
Me.AutoRedraw = True
Me.Cls
Me.Print
Me.Print " Total Number Of Bytes:", Format$(TotalBytes * 10000, "###,###,###,##0") & " bytes"
Me.Print " Total Free Bytes:", Format$(TotalFreeBytes * 10000, "###,###,###,##0") & " bytes"
Me.Print " Free Bytes Available:", Format$(BytesFreeToCalller * 10000, "###,###,###,##0") & " bytes"
Me.Print " Total Space Used :", Format$((TotalBytes - TotalFreeBytes) * 10000, "###,###,###,##0") & " bytes"
End Sub

TechnoFantasy 2003-10-23

打赏
举报

API函数GetDiskFreeSpaceEx

硬盘空间如何得知？

相关推荐