Visual Basic FAQ

Как узнать имя диска, файловую систему и серийный номер тома?

'Свойство TextBox Multiline установите в True
Option Explicit

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
Private Sub Form_Load()
Dim lngNumber As Long, strNameDisk As String, _
                    strNameSystem As String
strNameDisk = String$(255, Chr$(0))
strNameSystem = String$(255, Chr$(0))
GetVolumeInformation "D:\", strNameDisk, 255, _
        lngNumber, 0, 0, strNameSystem, 255
strNameDisk = Left$(strNameDisk, InStr(1, _
                    strNameDisk, Chr$(0)) - 1)
strNameSystem = Left$(strNameSystem, InStr(1, _
                  strNameSystem, Chr$(0)) - 1)
Text1.Text = ""
Text1.Text = "Имя диска D:\ " & strNameDisk & vbCrLf & _
"Файловая система диска D:\ - " & strNameSystem & vbCrLf & _
"Серийный номер диска D:\ - " & Trim(Str$(lngNumber))
End Sub

Запись опубликована on 26.01.2009 at 9:00 и размещена в рубрике: Windows. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.