將下面的內容寫入文本文檔，保存為*.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
