vb下怎么打开word文件

2013-03-26

vb下如何打开word文件上传到服务器的是.doc的文件，得到的也是相对路径，如何读取word中的内容啊？求大家帮

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

热点排行

VB

vb下怎么打开word文件