趣味プログラミングblog

---

Option Explicit
'デバッグログを出力v01

debugtext("test")

sub DebugText(Text)
const fName = "VBSdebug.log"
const Path = "C:\VBScript\debug\"
call makeDirEX(Path)

dim strNow: strNow = "[" & now & "]"
dim Scriptname : Scriptname = "[" & WScript.ScriptName & "] "

call AppendText(Path & fName,strNow & Scriptname & Text & chr(10))

end sub

Sub makeDirEX(Path)
With CreateObject("Scripting.FileSystemObject")
if right(Path,1)="\" then Path = left(Path,len(Path)-1) '\削除
Dim tmp, j , strDir
tmp = Split(Path, "\")
For j = 0 To UBound(tmp)
If j = 0 Then
strDir = strDir & tmp(j) & "\"
Else
strDir = strDir & tmp(j) & "\"
If .FolderExists(strDir) Then
'あればなにもしない
Else 'なければ作る
.CreateFolder strDir
End If
End If
Next
End With
End Sub

sub AppendText(strFullname,Text)
dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")
Dim wMode:wMode = 2 '2:書き込みモード、8:追記モード（新規不可）
if FSO.FileExists(strFullname) = true then wMode = 8

With FSO.OpenTextFile(strFullname, wMode, True)
.Write Text
.Close
End With
set FSO = nothing
end sub