情報関連 ドライブが存在するか

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][情報関連 ドライブが存在するか]
Private Function DriveUmu(str As String) As Boolean
'*******************************************************************************
'ドライブが存在するか
'*******************************************************************************
    Dim a As String
    Dim Fso
    a = Left(str, 1)
    Set Fso = CreateObject("Scripting.FileSystemObject")
    If Fso.DriveExists(a) Then
        DriveUmu = True ' ドライブが存在します"
    Else
        DriveUmu = False 'ドライブは存在しません"
    End If
End Function





Production Japan Import Application. Since 1998