DOBON.NETプログラミング掲示板過去ログ
FDの書込み禁止エラー
題名: FDの書込み禁止エラー
著者: みち
日時: 2005/03/15 15:16:33
ID: 9808
この記事の返信元:
(なし)
この記事への返信:
[9809]
Re[1]: FDの書込み禁止エラー
じゃんぬねっと
2005/03/15 15:25:12
ツリーを表示
環境/言語:[WindowsXP SP1 VisualStudio2003 VB.net]
分類:[.NET]
何度もすみません。
FDの書込み禁止状態で、任意のエラーメッセージを
表示したいのですが、Windows標準のエラーメッセージが
先に表示されてしまい、次に任意のエラーメッセージが
表示される現象になっています。
http://dobon.net/vb/bbs/log3-8/4465.html#4488
こちらを参考にして作ってみたのですが、
駄目でした。
'*******************************************************************
'* F_DriveWrite : FD書込みチェック *
'* 引数:ドライブ名 *
'*******************************************************************
Private Function F_DriveWrite(ByVal DriveLetter As String) As Boolean
Try
Dim Target As String
F_DriveWrite = True
Target = DriveLetter & "dummy"
'新しいフォルダを作成
System.IO.Directory.CreateDirectory(Target)
'フォルダを削除
System.IO.Directory.Delete(Target)
Catch ex As Exception
F_DriveWrite = False
End Try
End Function
2度も似たような質問をするな!っと言われること
覚悟の上で書き込んでおります・・・。
申し訳ないのですがどなたかわかる方いらっしゃいましたら
教えてください。
題名: Re[1]: FDの書込み禁止エラー
著者: じゃんぬねっと
URL:
http://jeanne.wankuma.com/
日時: 2005/03/15 15:25:12
ID: 9809
この記事の返信元:
[9808]
FDの書込み禁止エラー
みち
2005/03/15 15:16:33
この記事への返信:
[9811]
Re[2]: FDの書込み禁止エラー
みち
2005/03/15 15:59:06
[解決]
ツリーを表示
こんにちは、じゃんぬねっと です。
■No9808に返信(みちさんの記事)
> FDの書込み禁止状態で、任意のエラーメッセージを表示したいのですが、
> Windows標準のエラーメッセージが先に表示されてしまい、
> 次に任意のエラーメッセージが表示される現象になっています。
ライト プロテクトが取得できれば良いのですかね?
GDNJ に参考となるスレッドがあります。
http://www.gdncom.jp/general/bbs/ShowPost.aspx?PostID=26151
# 私は、Windows 標準のエラーメッセージで良いと思うんですけどね。
題名: Re[2]: FDの書込み禁止エラー
著者: みち
日時: 2005/03/15 15:59:06
ID: 9811
この記事の返信元:
[9809]
Re[1]: FDの書込み禁止エラー
じゃんぬねっと
2005/03/15 15:25:12
この記事への返信:
(なし)
ツリーを表示
レスありがとうございます。
さっそく試してみましたが
同じ現象でした。
標準のメッセージにできないか確認してみることにします。
わざわざどうもありがとうございました。
解決済み!
DOBON.NET
|
プログラミング道
|
プログラミング掲示板
分類:[.NET]
何度もすみません。
FDの書込み禁止状態で、任意のエラーメッセージを
表示したいのですが、Windows標準のエラーメッセージが
先に表示されてしまい、次に任意のエラーメッセージが
表示される現象になっています。
http://dobon.net/vb/bbs/log3-8/4465.html#4488
こちらを参考にして作ってみたのですが、
駄目でした。
'*******************************************************************
'* F_DriveWrite : FD書込みチェック *
'* 引数:ドライブ名 *
'*******************************************************************
Private Function F_DriveWrite(ByVal DriveLetter As String) As Boolean
Try
Dim Target As String
F_DriveWrite = True
Target = DriveLetter & "dummy"
'新しいフォルダを作成
System.IO.Directory.CreateDirectory(Target)
'フォルダを削除
System.IO.Directory.Delete(Target)
Catch ex As Exception
F_DriveWrite = False
End Try
End Function
2度も似たような質問をするな!っと言われること
覚悟の上で書き込んでおります・・・。
申し訳ないのですがどなたかわかる方いらっしゃいましたら
教えてください。