2022年7月
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31            
無料ブログはココログ

« OJTについて | トップページ | 悲しみもひとしお »

VB6 ドライブが存在するかチェックする

VB6の関数

Private Function GetDrive(ByVal strDriveName) As Boolean

    Dim objFso As Object
    Dim objDrive As Object
   
    On Error GoTo GetDrive_Err:
   
    GetDrive = False
   
    Set objFso = CreateObject("Scripting.FileSystemObject")
   
    On Error GoTo GetDrive_Err1:
    Set objDrive = objFso.GetDrive(strDriveName)
    On Error GoTo GetDrive_Err:
   
    Set objDrive = Nothing
    Set objFso = Nothing

    GetDrive = True

    Exit Function

GetDrive_Err:

    MsgBox Error$

GetDrive_Err1:

    Exit Function

End Function

呼び出し例

If GetDrive("D:") = False Then
    MsgBox "ドライブが存在しません"
End If
   

« OJTについて | トップページ | 悲しみもひとしお »

VB6」カテゴリの記事

コメント

コメントを書く

(ウェブ上には掲載しません)

トラックバック


この記事へのトラックバック一覧です: VB6 ドライブが存在するかチェックする:

« OJTについて | トップページ | 悲しみもひとしお »