Sample 4 ログファイル

' ログファイルの読込
'
' Set objTarget = CreateObject("Scripting.FileSystemObject")
'
' Select Case objTarget.FileExists(dirLOG(1) & "newWindow.log")
'
' Case True
'
' Open dirLOG(1) & "newWindow.log" For Input As #1
'
' If EOF(1) = False Then Line Input #1, myNewWindow ウインドゥタイトル
' If EOF(1) = False Then Line Input #1, myDistSheet 'シート1の名前
' If EOF(1) = False Then Line Input #1, myDistRange '出力範囲名
'
' Close #1
'
' End Select
'
' Set objTarget = Nothing
'
'
'' どれかが空欄なら、ブックを新規作成する
'
' Select Case True
'
' Case Len(myNewWindow) = 0, Len(myDistSheet) = 0, Len(myDistRange) = 0
'
' GoTo FIN_LOG_CHECK
'
' End Select
'
'