以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]图片  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=59254)
--  作者：风声
--  发布时间：2014/10/31 13:36:00
--  [求助]图片

With FileWatcher
    .Path = "E:\\狐表\\账册\\蓝峰管理\\送货单"
    .Delay = 1000
    .Enabled = True
End With

上面是项目事件的代码。

 

 

 

Dim r As Row = Tables("出库明细").Current
r("送货单") = r("送货单号") & ".jpg"
FileSys.CopyFile(e.FullPath, ProjectPath & "Attachments\\送货单" & r("送货单"),True)

 

这是监视器的代码

 

我扫描文件后在图片列输入该图片的名称后能打开图片然而项目重启后图片列就打不开了，另外没有把图片复制到指定的目录中。求解
--  作者：有点甜
--  发布时间：2014/10/31 14:03:00
--  

Dim r As Row = Tables("出库明细").Current
r("送货单") = r("送货单号") & ".jpg"
FileSys.CopyFile(e.FullPath, ProjectPath & "Attachments\\" & r("送货单"),True)
--  作者：风声
--  发布时间：2014/10/31 15:20:00
--  
老师，为什么不能导到子文件夹，譬如（送货单）文件夹
--  作者：有点甜
--  发布时间：2014/10/31 15:21:00
--  

Dim r As Row = Tables("出库明细").Current
r("送货单") = "送货单\\" & r("送货单号") & ".jpg"
FileSys.CopyFile(e.FullPath, ProjectPath & "Attachments\\" & r("送货单"),True)
--  作者：风声
--  发布时间：2014/10/31 16:53:00
--  
I:\\狐表\\Attachments\\送货单。这是图片调用后存放的路径。老师，还是不能复制到要存放的文件夹中。
--  作者：有点甜
--  发布时间：2014/10/31 16:55:00
--  

  这段代码有问题？代码触发了吗？

 

Dim r As Row = Tables("出库明细").Current
r("送货单") = "送货单\\" & r("送货单号") & ".jpg"
FileSys.CopyFile(e.FullPath, ProjectPath & "Attachments\\" & r("送货单"),True)
--  作者：风声
--  发布时间：2014/10/31 16:59:00
--  
没有
--  作者：有点甜
--  发布时间：2014/10/31 17:03:00
--  

1、检测你监视的文件夹的路径；

 

2、看对应的事件是否触发。
--  作者：风声
--  发布时间：2014/10/31 18:03:00
--  
With FileWatcher
    .Path = "E:\\狐表\\账册\\蓝峰管理\\送货单"
    .Delay = 1000
    .Enabled = True
End With
--  作者：有点甜
--  发布时间：2014/10/31 18:05:00
--  
 看8楼