Excel VBA - 下一个可用的驱动功能

Question

我有一个 sub 可以从 excel 列表映射共享的 c: pc-s 驱动器，该脚本的一部分是一个可以返回下一个可用驱动器的函数。它工作正常，但我想修复一些小错误。

此函数的工作是检查下一个可用的驱动器号并将其返回给主子。该函数唯一的问题是，在它完成了字母 '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”）并抛出一条消息。