0

我有一个 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

谢谢你

4

1 回答 1

1

只需将代码放入Do循环中以检查是否i > 90（字母“Z”）并抛出一条消息。

于 2015-03-12T18:50:14.480 回答