将下面的内容写入文本文档，保存为*.vbs即可。运行文件后，该文件目录下所有TXT格式文本文档均被转换另存为DOC格式word文档。

1.Dim FSO,s
2.Set FSO=CreateObject("Scripting.FileSystemObject")
3.Set AllF=FSO.GetFolder(fso.GetParentFolderName (WScript.ScriptFullName ))
4.For Each file In AllF.Files
5.if right(file,3)="txt" then zhuanhuan file
6.Next
7.msgbox "恭喜您：已经将所有文本文件转换成WORD文件！",48+4096,"操作成功"
8.sub zhuanhuan(filename)
9.name=fso.getbasename(filename)
10.set file=fso.opentextfile(filename)
11.s=file.readall
12.file.close
13.Set objWord = CreateObject("Word.Application")
14.\'objWord.Visible = True
15.Set objDoc = objWord.Documents.Add()
16.objword.Selection.TypeText s
17.objword.ActiveDocument.SaveAs AllF & "\\" & name & ".doc"
18.objword.quit
19.end sub