国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 數(shù)據(jù)庫 > Access > 正文

取得磁碟機之Volumn及Serial Number

2024-09-07 19:05:38
字體:
供稿:網(wǎng)友

適用ACCESS97、2000

這兩項磁碟機資料須使用API函數(shù)方可取得,代碼如下:

以下為引用的內(nèi)容:

Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

Function GetVolumn(X As String) As String
    If Len(X) < 3 Then
        X = Left(X, 1) & ":/"
    Else
        X = Left(X, 3)
    End If
    Dim nRet As Long, VolName As String, VolSN As Long, MaxCompLen As Long
    Dim VolFlags As Long, VolFileSys As String
    VolName = Space$(256)
    VolFileSys = Space$(256)
    nRet = GetVolumeInformation(X, VolName, Len(VolName), _
            VolSN, MaxCompLen, VolFlags, _
            VolFileSys, Len(VolFileSys))
    If nRet = 1 Then
        GetVolumn = VolName
    Else
        GetVolumn = ""
    End If
End Function

Function GetNumber(X As String) As String
    If Len(X) < 3 Then
        X = Left(X, 1) & ":/"
    Else
        X = Left(X, 3)
    End If
    Dim nRet As Long, VolName As String, VolSN As Long, MaxCompLen As Long
    Dim VolFlags As Long, VolFileSys As String
    VolName = Space$(256)
    VolFileSys = Space$(256)
    nRet = GetVolumeInformation(X, VolName, Len(VolName), _
            VolSN, MaxCompLen, VolFlags, _
            VolFileSys, Len(VolFileSys))
    If nRet = 1 Then
        GetNumber = VolSN
    Else
        GetVolumn = ""
    End If
End Function
 


前面的Declare陳述式宣告一個API函數(shù)(GetVolumeInformation),可取得磁碟機的兩項資料。

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板: 阆中市| 莫力| 延津县| 金塔县| 陆川县| 根河市| 利辛县| 武功县| 苏尼特左旗| 遵义市| 灵寿县| 文化| 武清区| 石河子市| 镇雄县| 寿光市| 柳河县| 同仁县| 绥江县| 慈溪市| 平果县| 山西省| 连平县| 社会| 巴林左旗| 小金县| 镇远县| 高州市| 泾川县| 精河县| 太和县| 柘荣县| 新巴尔虎右旗| 密云县| 正定县| 武定县| 鹤岗市| 酒泉市| 兴业县| 泸州市| 乡城县|