iT邦幫忙

DAY 16
3

WSH研習記錄系列 第 18

WSH研習記錄--檔案I/O操作(寫入篇)

檔案可以建立,可以讀內容
當然也是可以寫入的..
寫入純文字檔案(WriteLine方法、Write方法)
要對純文字檔案做寫入的動作,可使用WriteLine方法或Write方法
底下的範例會以加寫入的方式來開啟,並留下處理時間的記錄。

Option Explicit
Private FSO
Private LogFilePath
Private FileName
Private m
Private d
Private DD
DD = Date()
If Month(DD) <= 9 then
	m = "0" & Cstr(Month(DD))
else
	m = Cstr(Month(DD))
End If
If Day(DD) <= 9 then
	d = "0" & Cstr(Day(DD))
else
	d = Cstr(Day(DD))
End If
FileName = Cstr(Year(DD)) & m & d & ".log"
WScript.ECHO FileName
Set FSO = CreateObject("Scripting.FileSystemObject")
LogFilePath = FSO.BuildPath(FSO.GetFolder("."),  FileName)
With FSO.OpenTextFile(LogFilePath, 8, True)
	.Write Now()
	.Write vbTab
	.WriteLine "開始處理"
	WScript.Sleep 1000
	.Write Now()
	.Write vbTab
	.WriteLine "處理結束"
	.Close
End With
Set FSO = Nothing

寫得有點長了
裡面除了使用寫入的方法之外
另外加上了日期的函數
這是為了將來若用WSH來自動完成某些事可以留下記錄(log)
以此為範本,可以用在各種需記錄的地方

提供給有需要的人..


上一篇
WSH研習記錄--檔案I/O操作
下一篇
WSH研習記錄--資料夾操作篇
系列文
WSH研習記錄42

尚未有邦友留言

立即登入留言