Excel VBA – 下一个可用的驱动器function

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

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