【access小品】获取硬盘信息函数-煮江品茶
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


【access小品】获取硬盘信息函数

发表时间:2010/10/20 评论(0) 浏览(6103)  评论 | 加入收藏 | 复制
   
摘 要:获取硬盘信息函数
正 文:

点击下载此附件


演   示:


代   码:

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.IsReady = True Then
        Select Case myDr.DriveType
            Case 0: t = "Unknown"
            Case 1: t = "Removable"
            Case 2: t = "Fixed"
            Case 3: t = "Network"
            Case 4: t = "CD-ROM"
            Case 5: t = "RAM Disk"
        End Select
        GetDrive = GetDrive & myDr.DriveLetter & ":;" & myDr.ShareName & ";" & t & ";"
        GetDrive = GetDrive & myDr.TotalSize / 1024 & ";" & myDr.FreeSpace / 1024 & ";"
    End If
Next myDr
End Function


Access软件网交流QQ群(群号:198465573)
 
 相关文章
把EXE文件存入到表的字段中,再从表中读出存到硬盘  【huanghai  2004/11/16】
得到硬盘物理序列号  【hycapril  2007/10/18】
API 获得硬盘唯一出厂序列号  【UMV整理  2007/11/24】
不用控件自动获得硬盘物理序列号  【5988143  2008/2/1】
自定义时间分段函数示例  【杜超-2号  2013/6/1】
常见问答
技术分类
相关资源
文章搜索
关于作者

煮江品茶

文章分类

文章存档

友情链接