vb下如何打开word文件
上传到服务器的是.doc的文件，得到的也是相对路径 ，如何读取word中的内容啊？求大家帮忙解决啊！！下面是我的代码，不过老是乱码。。。
function FSOFileRead(filename)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True,TristateFalse)
FSOFileRead = objCountFile.ReadAll
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
End Function
***************************************
还有一种是这样的，可是得不到数据
response.ContentType="application/x-msword"
Const adTypeBinary=1
Dim strFilePath
strFilePath=Server.MapPath(txtUrl)
Set objStream=Server.CreateObject("ADODB.Stream")
objStream.Open()
objStream.Type=adTypeBinary
objStream.LoadFromFile(strFilePath)
Response.BinaryWrite(objStream.Read())
objStream.Close
Set objStream=Nothing
[解决办法]
看看这个：http://download.csdn.net/detail/veron_04/1627134
