Как определить, что папка это подключенный логический диск

[calypso]

Есть определённая таблица Excel, которая ищет файлы на диске. Всё работает, за исключением ситуации когда VBA находит на диске папку например C:\KINGSTON32GB , а это смонтированная флешка (логический диск т.к. не хватает свободных букв в системе).
Поиск файлов реализован через FSO. Как можно определить, что текущая папка является таким смонтированным диском?

[EducatedFool]

хм... наверное, определить-то несложно,
вот только чтобы дать вам пример кода, это сначала надо протестировать
А с этим - проблема (как-то не хочется воссоздавать ситуацию на своем компе)

я вот никогда не сталкивался с ситуацией, когда буквы заканчиваются
не проще ли поотключать лишние подключенные диски, чтобы избежать проблемы?

[EducatedFool]

Нашёл:

Возвращаемое значение: число - определяет тип ресурса. Возможные значения:
0 - неизвестное устройство.
1 - устройство со сменным носителем.
2 - жёсткий диск.
3 - сетевой диск.
4 - CD-ROM.
5 - RAM-диск.

Sub test2()
    Dim FSO As New FileSystemObject
    If FSO.GetDrive("Z:").DriveType = 3 Then MsgBox "Сетевой диск"
End Sub

[IgorGO]

я вот никогда не сталкивался с ситуацией, когда буквы заканчиваются

Игорь, у меня было однажды - я много распечатывал всякой ерунды и в принтере закончилась буква "В", так потом все слова без буквы "В" распечатывались!

[calypso]

If FSO.GetDrive("Z:").DriveType = 3 Then MsgBox "Сетевой диск"

А NTFS папка разве монтируется как сетевой диск?
Вы не поняли наверно, я говорю что на локальном диске C: есть папка C:\blablabla, эта папка не содержит файлов, а является ссылкой на другой логический диск, которому не хватает буквы. Это называется монтирование тома "как папки"

[calypso]

Почему VBA выдаёт ошибку при заходе внутрь такой "папки" я не знаю, проще поставить условие что если папка не физическая, а является ссылкой - то пропускать её.