Всегда ли диски A и B - дискета, или проблемы с GetDriveType

[Pantalone]

Флоповод у нас вроде определяется как REMOVABLE, но как определить что он дисковод, а не какой-нибудь флеш-диск или что там еще можно повесить на A или B? Какую иконку присваивать?

[SHURUP]

А почему бы не брать стандартную виндозную иконку?
Имхо так лучше.
http://bbs.vbstreets.ru/viewtopic.php?p=79213#79213 - примерчик

[Pantalone]

Я храню состояние системы, при следующей загрузке какого-то диска может не быть, где я его картинку возьму? Выдрать иконку и хранить в спецпапке? Не, а если иконки юзер поменяет системные это такое попугайство и шапито будет в обозначении дисков, лучше стандартные иконки. Главное определить что это флоппи, а не что-то там другое.

[Zoomie]

Я думаю на A или B можно повесить только флопик...

[Pantalone]

Zoomie
К сожалению нет, можно повесить что угодно, вчера убедился.
Да, труба...
Как же определить флопик это или что-то другое?

[Ennor]

Код: Выделить всё

SUBST
Associates a path with a drive letter.

SUBST [drive1: [drive2:]path]
SUBST drive1: /D

  drive1:        Specifies a virtual drive to which you want to assign a path.
  [drive2:]path  Specifies a physical drive and path you want to assign to
                 a virtual drive.
  /D             Deletes a substituted (virtual) drive.

Type SUBST with no parameters to display a list of current virtual drives.

[AndreyIl]

DriveType=Removable
IsReady=False

[Pantalone]

Ennor
Вообще-то вопрос как программно понять флопик это или нет, а не как повесить на его букву другой диск.

[Pantalone]

AndreyIl
А если IsReady=True?

[AndreyIl]

IsReady=True, если вставлена дискета. Для других дисков IsReady=False

[Pantalone]

Ну вставлена дискета, как определить что это флопик, а не флешка?
Или хочешь сказать что все Removable кроме флопа всегда IsReady=False?

[AndreyIl]

Для флопа IsReady=False, если нет дискеты. Для флэшки IsReaady=True, т.к. есть доступ к носителю. Если вставлена дискета, то TotalSize=1457664.

[Pantalone]

На другом форуме вы говорите что IsReaady=True бывает толкьо для дискетки, а теперь оказывается еще и для флешки. TotalSize еще ни о чем не говорит. Есть внятный алгоритм определения что у нас флопик с данными, а не флешка?

[Ennor]

http://msdn.microsoft.com/library/defau ... ontrol.asp

[AndreyIl]

Вот пример на VBScript

Dim Sc As FileSystemObject
Set Sc = CreateObject("Scripting.FileSystemObject")
MsgBox Sc.Drives("A").IsReady
MsgBox Sc.DriveExists("A")
MsgBox Sc.Drives("A").TotalSize

Sc.DriveExists("A")=Sc.Drives("A").IsReady (одно и то же)

Что касается IsReady=True, читайте внимательнее предыдущие сообщения.

[Pantalone]

Все это не то.

[alibek]

А чем DeviceIOControl не подходит?

[AndreyIl]

Такой метод пойдет?

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk", , 48)
For Each objItem In colItems
If objItem.Description = "Дисковод 3,5 дюйма" Then
MsgBox "Access: " & objItem.Access
MsgBox "Availability: " & objItem.Availability
MsgBox "BlockSize: " & objItem.BlockSize
MsgBox "Caption: " & objItem.Caption
MsgBox "Compressed: " & objItem.Compressed
MsgBox "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCode
MsgBox "ConfigManagerUserConfig: " & objItem.ConfigManagerUserConfig
MsgBox "CreationClassName: " & objItem.CreationClassName
MsgBox "Description: " & objItem.Description
MsgBox "DeviceID: " & objItem.DeviceID
MsgBox "DriveType: " & objItem.DriveType
MsgBox "ErrorCleared: " & objItem.ErrorCleared
MsgBox "ErrorDescription: " & objItem.ErrorDescription
MsgBox "ErrorMethodology: " & objItem.ErrorMethodology
MsgBox "FileSystem: " & objItem.FileSystem
MsgBox "FreeSpace: " & objItem.FreeSpace
MsgBox "InstallDate: " & objItem.InstallDate
MsgBox "LastErrorCode: " & objItem.LastErrorCode
MsgBox "MaximumComponentLength: " & objItem.MaximumComponentLength
MsgBox "MediaType: " & objItem.MediaType
MsgBox "Name: " & objItem.Name
MsgBox "NumberOfBlocks: " & objItem.NumberOfBlocks
MsgBox "PNPDeviceID: " & objItem.PNPDeviceID
MsgBox "PowerManagementCapabilities: " & objItem.PowerManagementCapabilities
MsgBox "PowerManagementSupported: " & objItem.PowerManagementSupported
MsgBox "ProviderName: " & objItem.ProviderName
MsgBox "Purpose: " & objItem.Purpose
MsgBox "Size: " & objItem.Size
MsgBox "Status: " & objItem.Status
MsgBox "StatusInfo: " & objItem.StatusInfo
MsgBox "SupportsFileBasedCompression: " & objItem.SupportsFileBasedCompression
MsgBox "SystemCreationClassName: " & objItem.SystemCreationClassName
MsgBox "SystemName: " & objItem.SystemName
MsgBox "VolumeName: " & objItem.VolumeName
MsgBox "VolumeSerialNumber: " & objItem.VolumeSerialNumber
End If
Next

[Ennor]

Можно и через WMI, только конечно условие поменять надо - а то смешно прям, чесслово.

Ну а лукать, соответственно, в проперти DriveType и MediaType. Как раз то, что нужно.

[Pantalone]

Да этот способ работает, но одно но, по которому я от него отказался:
работает ли WMI на большинстве машин, не говоря уже о том, что оно просто может отсутствовать?

ЗЫ: с Msgbox это ты здорово придумал ))