Tag: 驱动器映射

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 […]