Function chkFileExists(strFileName As String) As Boolean
　　'概要 Dir関数を使って、ファイルが存在するかどうかを調べる
　　'引数 ファイル名
　　'返値 ファイルが存在する場合は True
　　'     ファイルが存在しないか、エラーが発生した場合は False
　　'備考
　　    
　　  Dim strMsg As String
　　  
　　  '/エラートラップを有効にする
　　  On Error GoTo CheckError
　　  
　　  '/Dir関数を使ってファイルが存在するかどうかを調べる
　　  chkFileExists = (Dir(strFileName) <> "")
　　  
　　  '//エラーがないときは返る
　　  Exit Function
　　 
　　  '//エラーが発生したときはその処理を行う
　　CheckError:
　　  If Err = ERR_DISKNOTREADY Then
　　    '///ディスク未準備のとき
　　    Beep
　　    strMsg = "ディスクをドライブに入れて、ドアを閉じてください。"
　　    '////メッセージボックスを表示
　　    If MsgBox(strMsg, vbOKCancel + vbExclamation) = vbOK Then
　　        Resume
　　        '/////OKボタンが押されたらエラーの発生したステートメントを再実行
　　    Else
　　        '/////キャンセルが押されたらエラーの発生したステートメントの次から実行
　　        Resume Next
　　    End If
　　  Else
　　    '///それ以外のエラーは返る
　　    Exit Function
　　  End If
　　 
　　End Function