急救:如何判断磁盘已满

2006-10-25 10:36:16 247 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

开源SDR与气象监测项目解析：从硬件设计到系统构建软件定义无线电（SDR）通过软件实现射频信号处理，其核心在于高速模数转换和可编程逻辑，为通信与信号处理提供了灵活、可重构的解决方案。分布式传感网络则通过大量低成本节点协同工作，实现对环境数据的大范围、高密度采集，其技术价值在于以众包方式革新了传统监测模式。在工程实践中，高速ADC选型、FPGA数据处理、传感器校准与低功耗设计是关键挑战。这些技术广泛应用于业余无线电、物联网监测、环境研究等领域。本文以Simple Software Radio Peripheral（SSRP）和Open Weather两个开源阅读详情

请问如何判断某个盘已满,因为我不断往盘里写入文件,如果满了就换别的盘,全满了就覆盖原来的.
还要如果判断哪个文件的创建日期是最旧的

...全文

用51单片机和LD3320语音模块DIY一个会说话的温度报警器（附完整代码）本文详细介绍了如何使用51单片机和LD3320语音模块DIY一个智能温度报警器，包括硬件选型、电路设计、软件开发及核心功能实现。通过DS18B20温度传感器和语音模块的结合，实现温度超标时的语音报警功能，适合智能家居系统等应用场景。附完整代码，方便开发者快速复现。阅读详情

hxfkof

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

Hassle 2006-10-25

打赏
举报

Option Explicit

'引用Microsoft Scripting Runtime

Private Sub Command1_Click()
Dim FSO As FileSystemObject

Set FSO = New FileSystemObject
MsgBox FSO.Drives("C").FreeSpace & "/" & FSO.Drives("C").TotalSize
Set FSO = Nothing
End Sub

happy_sea 2006-10-25

打赏
举报

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

Function GetDiskSpaceFree(ByVal strDrive As String) As Long
Const strSEP_DRIVE$ = ":"

Dim strCurDrive As String
Dim lDiskFree As Long

On Error Resume Next

strCurDrive = Left$(CurDir$, 2)

If InStr(strDrive, strSEP_DRIVE) = 0 Or Len(strDrive) > 2 Then
strDrive = Left$(strDrive, 1) & strSEP_DRIVE
End If

ChDrive strDrive

If Err <> 0 Then
lDiskFree = -1
Else
Dim lRet As Long
Dim lBytes As Long, lSect As Long, lClust As Long, lTot As Long

lRet = GetDiskFreeSpace(vbNullString, lSect, lBytes, lClust, lTot)
On Error Resume Next
lDiskFree = (lBytes * lSect) * lClust
If Err Then lDiskFree = 2147483647
End If

If lDiskFree = -1 Then
MsgBox Error$ & vbLf & _
"确定驱动器 " & strDrive & " 的磁盘可用空间时出错", _
vbExclamation, "Error"
End If

GetDiskSpaceFree = lDiskFree

ChDrive strCurDrive

Err = 0
End Function

Private Sub cmdFreeSpace_Click()
Dim k&

k& = GetDiskSpaceFree("d:\")

If k& = -1 Then
' Error
Else

MsgBox "磁盘d " & " 剩余空间为" & _
Format(k& / (2 ^ 20), "Fixed") & "Mb。"

End If
End Sub

VBToy 2006-10-25

打赏
举报

Private Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, _
lpSectorsPerCluster As Long, _
lpBytesPerSector As Long, _
lpNumberOfFreeClusters As Long, _
lpTotalNumberOfClusters As Long) As Long
Private Sub Command1_Click()
Dim d As String
Dim SecpC As Long
Dim BpS As Long
Dim fC As Long
Dim tC As Long
Dim f As Double
GetDiskFreeSpace "d:", SecpC, BpS, fC, tC
f = CDbl(SecpC) * CDbl(BpS) * CDbl(fC)
d = "D盘剩余：" & f & " Byte"
Debug.Print SecpC, BpS, fC, tC, d

End Sub

mustudent 2006-10-25

打赏
举报

.Net的话好弄点 vb用api
期待高人

急救:如何判断磁盘已满

相关推荐