メインドライブに割り当てられた手紙を検索

Question

Environのような機能を見つけようとしていますが、私のビジネスの主なドライブが特定のPC上のどのドライブにマップされているかを見つけようとしています。

"G：\ Eworking \ SET \ Operations \ file"というファイルパスを使用しています。私のPCはGドライブ内にあるようにマップされていますが、別のものがマップされている可能性がありますです。

私はアルファベットを通り、前にif Dir([filepath]) thenを実行しているif elseメソッドを試しましたが（下記参照）、これを行う良い方法があるかどうか疑問に思っていましたか？

Sub LoopThroughDrives() 
sFilePath As String 

sFilePath = ":\Eworking\SET\Operations\file" 

If Dir("A" & sFilePath) > 0 Then 
    msgbox ("It's in drive A") 
    Else 
     If Dir("B" & sFilePath) > 0 Then 
      msgbox ("It's in drive B") 
      Else 
       If Dir("C" & sFilePath) > 0 Then 
        msgbox ("It's in drive C") 
        Else 
         '........................... 
         'All other letters of the alphabet, checking each possibility 
         '........................... 
       End If 
     End If 
End If 

End Sub 

Answer 1

A ... ASCII文字を使用する次のループが適切であるようです。

dim c as integer 
for c = 65 to 90 
    If CBool(Len(Dir(Chr(c) & sFilePath))) Then 
     msgbox "It's in drive " & Chr(c) '<~~msgbox, not magbox 
     exit for 
    end if 
next c 
if c > 90 then msgbox "never found" 

Answer 2

次のようにドライブ文字とパスを取得することができます：

For Each d In CreateObject("Scripting.FileSystemObject").Drives 
    Debug.Print d.DriveLetter, d.Path, d.ShareName 
Next