Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.221.187.121] |
|
Сообщ.
#1
,
|
|
|
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 VolName$, VolNumber&, MCM&, FSF&, FSys$, erg& If GetVolumeInformation("СЮДА ПИСАТЬ БУКВУ ДИСКА", VolName$, 127&, VolNumber&, MCM&, FSF&, FSys$, 127&) = 0 Then MsgBox "Нет" Else MsgBox "Есть" End If End Sub |