2013-04-10から1日間の記事一覧

FSO WriteLineでエラー(失敗)する場合はunicodeが原因かも。

[wsh][vbs]unicodeからsjisに変換できない文字があると、書き込めないでエラーになるみたい。出力ファイルをunicodeにしていいなら fso.CreateTextFile("c:\sandbox\hoge.txt",true,true)のようにunicode=trueにすればOK。 sjisじゃないと困る場合はvbsファ…

Errオブジェクトを使ってエラー処理

On Error Resume Next しつつ Errオブジェクトを使えば、エラーで分岐が書ける。ちなみにエラーが無ければ Err.Number = 0 となる Option Explicit Dim dblCalculatedNumber, strDivisorNumber Do strDivisorNumber = InputBox("割る数を入力してください") …