本帖最后由 u010229087 于 2013-07-20 18:25:22 编辑

解决方案 »

  1.   

    改成这样试下吧:
    FilePath = File1.Path & "\" & File1.FileName
    OLE1.CreateLink FilePath
      

  2.   


    谢谢啊 按照您的方法貌似打开了
    其实一直都对VB立面取字符串值的方法比较疑惑啊..包括SQL 还有类似于今天这里的用法,最开始都是简单粗暴的用select case 解决的,但是越写觉得越臃肿.
    能劳烦您给我详细讲讲这一块么?小的不胜感激啊....以前主要是用C编硬件的东西
    现在突然要软硬件结合开发,搞接口选了比较简单的VB,看来还是学得不够啊....
      

  3.   

    你的主贴中:
    FilePath = File1.Path & File1.FileName
    OLE1.CreateLink " '"& FilePath &"' "File1.Path 如果不是根目录,它的结尾是没有"\"字符的,所以你的FilePath的值不正确。
    我想绝大多情况下,这些文档都不会放根目录(但U盘传递文件,多数都放在根目录)
    当然完整的代码,还要加上File1.Path 是否以\结尾的判断,再决定是否加上\。你的FilePath = File1.Path & File1.FileName 字符串连接结果不正确,当然在下一句就无法打开文件了。
    你把它用单引号括起来也没用,无法找到文件的。