[VBS]資料夾內檔案內容增加

就是會在同一個目錄內檔案增加幾行的文字，程式碼如下：

' 日期：20080308
' 作者：Kwedr
' 作用：在檔案後增加資料'
' 開啟瀏覽資料夾畫面，選擇資料夾
dim oShell
dim oFolder
dim oFolderItem 
set oShell = CreateObject("Shell.Application")
set oFolder = oShell.BrowseForFolder(0, "選擇你要更改檔名的資料夾", 0)
set oFolderItem = oFolder.Items.Item
dim fileItem 
dim name
Const ForAppend = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
For each fileItem in oFolder.Items
  name = oFolderItem.Path & "\" & fileItem.name
  Set opFile = objFSO.OpenTextFile( name , ForAppend)
  opFile.WriteLine("")
  opFile.Close
Next
Wscript.echo "完成"