tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： VolumeDeviceClassで「〜バッファが無効です」エラー
投稿日： 2015/05/13(Wed) 22:24
投稿者： Kobaちゃん
Win7、VB2008Expressで下記のようにVolumeDeviceClassを使ってUSBを外す処理
を実装していますが、なぜか特定のPCで「〜バッファが無効です」のエラーが出ます。
原因と対処方法をどなたか教授お願いしたい。

Public Function Eject(ByVal UsbDrv As String) As String
      Dim res as string
      Dim volumeDeviceClass As New VolumeDeviceClass()
            ↑
　　　この時点でVolumeDeviceClass.Devices=要求された操作に対して与えられた
      バッファが無効ですとなっている

      For Each device As Volume In volumeDeviceClass.Devices
       　　↑ 「〜バッファが無効です」エラーが発生
        If device.LogicalDrive = UsbDrv Then
            res = device.Eject(False)        'OKはNull文字、エラーはエラー内容を返す
            if res=Nothing then
                 Eject="OK"
                 Exit Function
            Else
                 Eject=res
                 Exit Function
            End If
        End If
      Next
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。