FC2ブログ
ブログパーツ アクセスランキング
インフラ情報まとめ
アクセスランキング
サーバー、クライアント関係の構築、運用等のまとめ書きです。旧名 ほぷぅ(。・ω・)ノPCまとめ

エラー処理




にほんブログ村 IT技術ブログ IT技術メモへ

エラー処理


------------------------------------------------

On Error Resume Next


'ディスクが挿入されていない場合エラーの処理 挿入されていたら空き容量を表示

On Error Resume Next
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objDrive = objFS.GetDrive("j:")
jspace = objDrive.AvailableSpace
If Err.Number <> 0 Then
MsgBox(Err.Description & vbCR &_
"Jドライブにメディアを挿入してください")
Else
MsgBox("空き容量:" & FormatNumber(jspace/1024,1) & "KB")
End If


------------------------------------------------

実行結果

ほぷぅ(。・ω・)-vbs On Error Resume Next



エラーオブジェクト Err


'0での除算を行いエラー情報を表示

On Error Resume Next
a = 10
b = 0
c = a / b
If Err.Number <> 0 Then
MsgBox("エラーNo." & Err.Number & vbCR & Err.Description)
End If

------------------------------------------------

実行結果

ほぷぅ(。・ω・)-vbs Err


エラー番号またはエラー値を取得・設定 Number


'誤った形式の文字列を日付型に変更しようとしてエラーを表示させます

On Error Resume Next
myDate = "77.1.4"
newDate = FormatDateTime(myDate)
If Err.Number <> 0 Then
MsgBox("エラーNo." & Err.Number & vbCR & Err.Description)
End If

------------------------------------------------

実行結果

ほぷぅ(。・ω・)-vbs Number


エラーの発生元を参照または設定 Source


'誤った形式の文字列を日付型に変更しようとしてエラーのソースと説明を表示させます

On Error Resume Next
myDate = "77.1.4"
newDate = FormatDateTime(myDate)
If Err.Number <> 0 Then
MsgBox(Err.Source & vbCR & Err.Description)
End If

------------------------------------------------

実行結果

ほぷぅ(。・ω・)-vbs Source

エラーを説明する文字列を取得・設定したい Description


'ディスクが挿入されていない場合エラーの処理 挿入されていたら空き容量を表示

On Error Resume Next
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objDrive = objFS.GetDrive("j:")
jspace = objDrive.AvailableSpace
If Err.Number <> 0 Then
MsgBox(Err.Description)
Else
MsgBox("空き容量:" & FormatNumber(jspace/1024,1) & "KB")
End If

------------------------------------------------

実行結果

ほぷぅ(。・ω・)-vbs Description


実行時エラーを生成し情報を表示 Raise


'0での除算を行いエラー情報を表示

On Error Resume Next
Err.Raise 11,,"0で除算しましたね・・"
MsgBox("エラーNo." & Err.Number & vbCR & Err.Description)
Err.Raise(76)
MsgBox("エラーNo." & Err.Number & vbCR & Err.Description & " 本当の76番エラーはパスが見つかりませんです")

------------------------------------------------

実行結果

ほぷぅ(。・ω・)-vbs Raise


ほぷぅ(。・ω・)-vbs Raise2


ヘルプファイルへのパスを取得・設定したい HelpFile

helpFile [1 2] 1=Errオブジェクト 2=ヘルプファイルへのパス


On Error Resume Next
a = 12/0
If Err.Number <> 0 Then
MsgBox Err.Description, ,"エラーNo." & Err.Number,_
Err.HelpFile, Err.helpContext 'ヘルプボタンを追加
End If

------------------------------------------------

実行結果
ほぷぅ(。・ω・)-vbs HelpFile


ヘルプファイルへのトピックを取得・設定したい HelpContext

'HelpContext [1 2] 1=Errオブジェクト 2=ヘルプトピックのコンテキスト番号


On Error Resume Next
a = 12/0
If Err.Number <> 0 Then
MsgBox Err.Description, ,"エラーNo." & Err.Number,_
Err.HelpFile, Err.helpContext 'ヘルプボタンを追加
End If

------------------------------------------------

実行結果
ほぷぅ(。・ω・)-vbs HelpContext


実行時エラーを生成しクリアしてから再びエラーを Clear


'0での除算を行いエラー情報を表示

On Error Resume Next
Err.Raise(11)
MsgBox("エラーNo." & Err.Number & vbCR & Err.Description)
Err.Clear
Err.Raise(6)
MsgBox("エラーNo." & Err.Number & vbCR & Err.Description)

------------------------------------------------

実行結果


ほぷぅ(。・ω・)-vbs Clear

ほぷぅ(。・ω・)-vbs Clear2


関連記事







テーマ:プログラミング - ジャンル:コンピュータ


  1. 2010/10/16(土) 19:20:51|
  2. VBScript
  3. | トラックバック:0

トラックバック

トラックバック URL
http://pcmemorin.blog.fc2.com/tb.php/21-b93a4a38
この記事にトラックバックする(FC2ブログユーザー)


サイトマップ・お奨め記事

CentOS7 まとめ
Ubuntu14 まとめ
Ubuntu12用無線アダプタ紹介
Ubuntu12 まとめ
Server 2008R2 まとめ
SCCM2012R2 まとめ
Windows10 アップグレード
Windows7 まとめ
Windows7 SSD まとめ
Windows8 まとめ
EaseUS Todo Backup Server
Linux Destbision まとめ
Linuxコマンド関連Index
Zorin8.1まとめ
Fedora17まとめ
Fedora15まとめ
VB Script まとめ
USB3.0で快適バックアップ
リンク集・メール


スポンサードリンク


リンク


サイト登録Paseon

・はじめての自宅サーバ構築 - Fedora/CentOS -

・Fedoraで自宅サーバー構築

・CentOSで自宅サーバー構築

・ぼくんちのTV別館

・ネットセキュリティブログ

・まとめ横丁

・オールフリーソフト


相互リンク更新情報
BookMark
GPUベンチマーク(ドスパラ)
VMware OS仮想化
EaseUS
Fedora releases ISO
【Http外部からの表示確認】
ポートスキャンチェック
IPA情報処理推進機構
無料DNS ieServer
無料DNS-MyDNS
yahooログイン履歴チェック
メール不正中継拒否テスト
Fedora Project
allbootdisks
Edy Viewer
ESXi動作実績ハードウェア@Wiki
IEEE Standards

---ライセンス認証解除系リンク---
ShadowProtect Personal
.NET製品
弥生



--所有サーバーWiki--
NEC Express5800/S70
HP ProLiant ML110G5
PRIMERGY TX100 S3

このブログをリンクに追加する

カテゴリ

Linux (45)
Linux-CentOS7 (70)
Linux-Ubuntu14.04 (87)
Linux-Ubuntu12.04 (76)
Linux-Zorin8.1 (36)
Linux-Fedoras.soft (19)
Linux-Fedora18 (11)
Linux-Fedora17 (39)
Linux-Fedora15 (60)
Linux-Fedora11 (36)
Linux-Fedora16 (1)
Linux-Security (3)
Linux/Unix シェル (38)
Linux Distribution (53)
仮想OS (31)
Windows Server 2008 (254)
Windows Server 2012 (30)
Windows Server コマンド (39)
Windows Server アプリ (14)
Windows (40)
Windows 10 (3)
Windows 7 (59)
Windows 8 (257)
Windowsアプリ (23)
Windows 8 アプリ (29)
Windows レジストリ (6)
Windows BAT (17)
ネットワーク (5)
MySQL (1)
ニュース (8)
ハードウェア (11)
Windows VBScript-Basp21 (1)
VBScript (29)
Windows Vista (1)
Windows グループポリシー (3)
Security (6)
未分類 (4)
クールなアイテムまとめ (5)
Game (1)
PowerShell (4)


Linux ブログランキングへ

カテゴリ2

SCCM Backup 遠隔操作 VirtualBox FeliCaポート/パソリ ESXi 

カウンター

RSSリンクの表示

アクセスランキング

[ジャンルランキング]
コンピュータ
144位
アクセスランキングを見る>>

[サブジャンルランキング]
その他
31位
アクセスランキングを見る>>



フィードメーター - ほぷぅ(。・ω・) ノ PCまとめ Linux,Win,自宅サ..


Windows ブログランキングへ

にほんブログ村 IT技術ブログ IT技術メモへ
にほんブログ村

全記事表示リンク

全ての記事を表示する

検索フォーム

RSSリンクの表示

 



Linux ブログランキングへ





<%plugin_third_title>

<%plugin_third_description>

<%plugin_third_content>

<%plugin_third_description2>