VBSメモ

(for Internet Explorer)

Sub main()
W_init

a = 1
W "a:" & a

W_finish
End Sub

main

' Debug Tool -----------------------------------------------------------

Sub W_init()
Set fs = WScript.CreateObject( "Scripting.FileSystemObject" )
On Error Resume Next
fs.DeleteFile "c:\wsh_dbg.txt"
On Error Goto 0
Set fs = Nothing
End Sub

Sub W(var)
Set fs = WScript.CreateObject( "Scripting.FileSystemObject" )
Set f = fs.OpenTextFile( "c:\wsh_dbg.txt", 8, True )
f.WriteLine( var )
Set f = Nothing
Set fs = Nothing
End Sub

Sub W_finish()
Set fs = CreateObject( "Scripting.FileSystemObject" )
Set f = Nothing
On Error Resume Next
Set f = fs.GetFile( "c:\wsh_dbg.txt" )
On Error Goto 0
If Not f Is Nothing Then
Set sh = WScript.CreateObject("WScript.Shell")
sh.Run "notepad.exe c:\wsh_dbg.txt"
Set sh = Nothing
End If
Set f = Nothing
Set fs = Nothing
End Sub

printf に相当するものは、 WScript.Echoです。

← ▼ ▲

動作ログ

Set fs = CreateObject( "Scripting.FileSystemObject" )
Set logg = fs.CreateTextFile( Wscript.ScriptFullName + ".log", True, False )

スクリプトは、バッチファイルのように動作中の様子を確認できません。
動作の様子をファイルに記録するコードを示します。

logg.WriteLine "...ing : " + s

logg.Close: fs.DeleteFile Wscript.ScriptFullName + ".log"

初期化：

後始末：

記録

動作の様子を、スクリプトファイルの名前＋".log" のファイル名で、記録します。
後始末まで到達したら、動作ログファイルは削除されます。
途中でエラーになったら、ファイルは残ります。

← ▲