Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: час есть такой вариант
Dim obj, objs Set objs = GetObject("winmgmts:").InstancesOf("Win32_DiskDrive") For Each obj In objs If obj.InterfaceType = "USB" Then ' тока не понятно как теперь определить имя\путь к этому накоплятелю End If Next
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.