0

Excel リストから pc-s の共有 c: ドライブをマップできるサブがあります。このスクリプトの一部は、次に利用可能なドライブを返すことができる関数です。正常に動作しますが、修正したい小さなバグがいくつかあります。

この関数の仕事は、次に利用可能なドライブ文字をチェックし、それをメイン サブに返すことです。この関数の唯一の問題は、文字 '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

if (文字 "Z")Doをチェックしてメッセージをスローするコードをループに入れるだけです。i > 90

于 2015-03-12T18:50:14.480 に答える