Excel VBA - следующая доступная функция привода

Question

У меня есть подпрограмма, которая может сопоставить общий диск c: pc-s из списка Excel, часть этого скрипта - это функция, которая может возвращать следующий доступный диск. Работает нормально, но есть небольшие ошибки, которые я бы хотел исправить.

Задача этой функции - проверить следующую доступную букву диска и вернуть ее для основного сабвуфера. Единственная проблема функции в том, что после того, как она закончилась с буквами "D:",..., "Z:", следующая буква, которую она возвращает, - "[". Я хотел бы дать сообщение об ошибке, что больше нет доступных букв дисков после последнего.

Private Function NextAvailableDrive() As String

Dim iDrive As Integer
Dim iFirst As Integer
Dim iFirstFree As Integer, sFirstFree As String
Dim sNextDrive As String

iDrive = 67 'starts looking at D:\

      Do
         iDrive = iDrive + 1
          sNextDrive = Chr$(iDrive) + ":"
           iFirstFree = GetDriveType(sNextDrive)
       'Function returns 1 if drive is available
        Loop Until iFirstFree = 1

      sFirstFree = Chr$(iDrive) + ":"
      NextAvailableDrive = sFirstFree
End Function

Благодарю вас

Answer 1

Просто вставьте код в свой Do цикл, чтобы проверить, если i > 90 (буква "Z") и выбросить сообщение.