|
Привет!
Вот тебе готовая прога на ВЭБЭ, которая определяет платформу, имя тома и серийный номерок НГМД.
Пользуйся на здоровие!!!
Option Explicit
Dim LfRet As String
Dim Kod As String
Private Sub Command1_Click()
Dim D$
txt_Resume = ""
D$ = "c:\"
Kod = PDisk(D$)
MsgBox Kod
End Sub
Public Function PDisk(D$)
LfRet = Chr(10) & Chr(13)
Dim Serial As Long, VName As String, FSName As String 'Create buffers
VName = String$(255, Chr$(0))
FSName = String$(255, Chr$(0))
'получаем информацию о диске
GetVolumeInformation D$, VName, 255, Serial, 0, 0, FSName, 255
'Strip the extra chr$(0)'s
VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1)
FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1)
PDisk = LfRet & "Имя диска " & VName _
& LfRet & "Файловая система " & FSName _
& LfRet & "Серийный номер диска " & Trim(Str$(Serial))
End Function
не забудь декларировать в отдельном модуле :
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
С уважением, Lavalit
|