《取得磁碟機(jī)之Volumn及Serial Number》文章已經(jīng)歸檔，站長之家不再展示相關(guān)內(nèi)容，下文是站長之家的自動化寫作機(jī)器人，通過算法提取的文章重點內(nèi)容。這只AI還很年輕，歡迎聯(lián)系我們幫它成長：

適用ACCESS97、2000這兩項磁碟機(jī)資料須使用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) VolF...

......