首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

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

热点排行