'обнаружение подключенных на компьютере USB накопителей
    Dim objWMI, objCollection, objItem, objWSNet
    Dim objLogicalDisks, objLD, objPartitions, objPart
    Dim strComputer, strTemp
    strComputer = "."
    Set objWMI = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & strComputer & "\root\cimv2")
    Set objCollection = objWMI.ExecQuery("SELECT * FROM Win32_LogicalDisk WHERE DriveType=2")
    'Количество_подсоединённых_USB_устройств = 0 'для информации

    For Each objItem In objCollection
        Set objLogicalDisks = objWMI.ExecQuery("ASSOCIATORS OF {Win32_LogicalDisk.DeviceID=""" & _
                                               objItem.DeviceID & """} WHERE AssocClass=Win32_LogicalDiskToPartition")
        For Each objLD In objLogicalDisks
            Set objPartitions = objWMI.ExecQuery("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & _
                                                 objLD.DeviceID & """} WHERE AssocClass=Win32_DiskDriveToDiskPartition")
            For Each objPart In objPartitions
                strTemp = strTemp & objItem.DeviceID & " => " & objPart.Caption & " (Диск " & objPart.Index & ")" & vbNewLine
                Диск_папки_файлы_программы = Left$(objItem.DeviceID, 1)

                'Буква_съемного_диска = objItem.DeviceID 'для информации
                'Имя_съёмного_диска = objPart.Caption 'для информации
                'Порядковый_номер_накопителя_на_момент_запроса = objPart.Index 'для информации
                'Имя_съёмного_диска_его_буква = objPart.Caption & " " & objItem.DeviceID 'для информации
                'Количество_подсоединённых_USB_устройств = Количество_подсоединённых_USB_устройств + 1 'для информации

                If Len(Dir$(Диск_папки_файлы_программы & ":" & Адрес_размещения_папки_Рабочая, vbDirectory)) <> 0 Then GoTo Выход_из_поиска_флешки

            Next

            'установка объекта в значение Nothing требуется для освобождения памяти, которая была выделена для создания этого объекта
            Set objPart = Nothing
            Set objPartitions = Nothing
        Next
        Set objLD = Nothing
        Set objLogicalDisks = Nothing
    Next
    Set objItem = Nothing
    Set objCollection = Nothing
    Set objWMI = Nothing