ntbackup のログファイルをプログラムで扱えないのですが？

質問

Windows 2000/XP のバックアップ (ntbackup) を実行すると、%USERPROFILE% \Local Settings \Application Data \Microsoft \Windows NT \NTBackup \data フォルダの backupxx.log (xx は数字) ファイルにバックアップログが記録されます。

バックアップログファイルを、メモ帳以外のエディタで開いたり、プログラムで処理すると正しく表示/処理できないことがあります。
バックアップログファイルは Unicode で記録されるため、Unicode 対応のエディタや、Unicode を意識したプログラムでないと正しく扱うことができません。

という、記述を見つけました。
今、VBで扱いたいのですがUnicodeを意識したプログラムというのが
分かりません。サンプルプログラムなどやり方を知っている方至急
教えて頂けませんでしょうか？よろしくお願いします。

回答No.1

noname#102878 · ベストアンサー

こんばんは。
以下のコードを試してください。

Private Sub Command1_Click()
Const ForReading = 1
Const TristateTrue = -1

Dim fs As Object, f As Object
Dim strLine As String

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("D:\Test.txt", _
ForReading, _
False, _
TristateTrue)

Do While f.AtEndOfStream <> True
strLine = f.ReadLine
Text1.Text = Text1.Text & strLine & vbCrLf
Loop
f.Close
End Sub

VB6.0のOpenステートメントでファイルを開く場合、日本語環境ですとシフトJISでの読み込みになってしまいUNICODEファイルに対応することが出来ません。
そこでFileSystemオブジェクトを使用しました。
詳しくはWebのMSDNオンライン(参考URL)、もしくはお手持ちのMSDN(私の場合はOffice2000Dev. April2000)で[プラットフォームSDK]-[プラットフォームSDK(日本語)]-[インターネット/イントラネット/エクストラネット]-[スクリプト]-[VBScriptランゲージリファレンス]-[メソッド]-[OpenTextFileメソッド]をご覧ください。

参考URL：

http://www.microsoft.com/japan/developer/library/script56/jsmthOpenTextFile.htm

お礼

詳しい返答ありがとうございます！やってみます！