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 DataGirdでデータが表示されない(2010.11.05)
- VB6 コレクション(2007.08.28)
- VB6 On Error Resume Nextが動作しない(2007.06.27)
- VB6 PDF自動印刷(調査中)(2006.09.05)
- FAX送信 続き(2006.09.04)
コメント