28
Январь
2009
Как узнать имя диска, файловую систему и серийный номер тома?
Как узнать имя диска, файловую систему и серийный номер тома?
'Свойство 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