异国色恋浪漫潭,日韩欧美视频免费在线观看,中文字幕日韩欧美

導讀數據庫，簡而言之可視為電子化的文件柜——存儲電子文件的處所，用戶可以對文件中的數據進行新增、截取、更新、刪除等操作。所謂“數據庫”是以一定方式儲存在一起、能與多個用戶共享、具有盡可能小的冗余度、與應...

數據庫，簡而言之可視為電子化的文件柜——存儲電子文件的處所，用戶可以對文件中的數據進行新增、截取、更新、刪除等操作。所謂“數據庫”是以一定方式儲存在一起、能與多個用戶共享、具有盡可能小的冗余度、與應用程序彼此獨立的數據集合。

適用ACCESS97、2000

　這兩項磁碟機資料須使用API函數方可取得，代碼如下：
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函數（GetVolumeInformation），可取得磁碟機的兩項資料。

全新的路由器不僅讓你更穩定快速地連接無線網絡，更可以讓家中的智能設備連接在一起。

溫馨提示：喜歡本站的話，請收藏一下本站！

當前位置:雨林木風下載站 > 應用軟件教程 > 詳細頁面

取得磁碟機之Volumn及Serial Number

本類教程下載

系統下載排行