如何用VBA代码获知指定硬盘或U盘的剩余容量或可用容量

xryacc2

应用户的要求，给他们加做了一个功能，就是在备份后台数据库时，同时也备到U盘一份，功能包括了
（1）检测出所有活动的U盘并获得具体盘符，
（2）复制数据库文件到用户自定义选择的U盘中（同名则可强制覆盖）
（3）获得后台数据库文件的大小
以上功能的实现所涉及的代码非常简单（参考了一位高手的部份代码），也不用增添引用，但是现在美中不足的是，如果用户的U盘可用容量不足，则无法在复制前触发提示，看有哪位高手帮助解决？万谢。
附：检测移动硬盘或U盘的例子。

li08hua

谢谢xryacc2 提供！

chuang0321

收下了，研究研究

xryacc2

持续等待高手。

todaynew

好像不需要API，用文件对象即可。


Function GetDrive() As String
'引用:Microsoft Scripting Runtime
'功能:返回驱动器字符串。
'示例：me.驱动器列表.RowSource="驱动器;类型;空间;可用空间;" & GetDrive     列表框或组合框列标题选是
Dim myFSO As New FileSystemObject
Dim myDr As Drive
Dim t As String
For Each myDr In myFSO.Drives
    If myDr.DriveType = Fixed Or myDr.DriveType = Removable Then
        Select Case myDr.DriveType
            Case Fixed
                t = "Fixed"
            Case Removable
                t = "Removable"
        End Select
        GetDrive = GetDrive & myDr.DriveLetter & ":-" & myDr.ShareName & ";" & t & ";"
        GetDrive = GetDrive & myDr.TotalSize / 1024 & ";" & myDr.FreeSpace / 1024 & ";"
    End If
Next myDr
End Function

xryacc2

高手啊，只不过又要引用Microsoft Scripting Runtime，我一直避免引用这个，听说这个东东会引起很大漏洞问题，引用它要不要紧啊？

hope678

学习了