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

※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。

※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。

Private Function DriveUmu(str As StringAs 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

 

2000年01月01日|[VBサンプルコード]:[情報関連]